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