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