Crear tareas en Outlook desde Access

Pues mira qué bien. Gracias a estas pocas líneas de código, podemos crear una tarea, incluyendo el aviso pertinente. Para mis clientes muy útil, para mí muy interesante.

Nota: Atención a los nombres de campos y formularios, son un ejemplo. También a los parámetros, están adaptados para mi aplicación, mejor buscar en la ayuda de cada uno de ellos para conseguir lo que queréis.

Function fncAddOutlookTask()

Dim OutlookApp As Outlook.Application

Dim OutlookTask As Outlook.TaskItem

Set OutlookApp = CreateObject("Outlook.Application")

Set OutlookTask = OutlookApp.CreateItem(olTaskItem)

With OutlookTask

.Subject = Forms!frmincidenciase1!IdIncidencia

.Body = Forms!frmincidenciase1!Descripción

.ReminderSet = Forms!frmincidenciase1!Aviso

.ReminderTime = DateAdd("d", Forms!frmincidenciase1!DiasAviso, Now)

.DueDate = Forms!frmincidenciase1!Texto18

.ReminderPlaySound = True

'Modify path.

.ReminderSoundFile = "C:\Windows\winsxs\x86_microsoft-windows-s..soundthemes-savanna_31bf3856ad364e35_6.1.7600.16385_none_28e34d1952a3a85c\Windows Print complete.wav"

.Save

End With

End Function

Como grabar una ISO con Mac OS X

Para aquellos que me habéis preguntado alguna vez que cómo se graba una ISO, ahí va eso:

1. Abrir "Utilidad de disco".

2. Arrastrar hasta la columna que tenemos a la izquierda el archivo con la imagen que

queramos "planchar" en el CDROM. Tendrá que aparecer debajo de las unidades locales del

equipo.

3. Pulsar sobre el archivo ISO y después sobre el botón "Grabar" de la barra de herramientas.

4. Aparecerá la ventana para cambiar los parámetros de grabación, lo único que queda, llegado este punto, es pulsar sobre el botón Grabar. Quemaremos el CDROM con el contenido de la imagen.

Así de sencillo, así de oculto ;-)