Agrega la referencia a Outlook a tu proyecto y fijate con esto:
Dim objOutlook As Outlook.Application, objTask As TaskItem
Set objOutlook = New Outlook.Application
Set objTask = objOutlook.CreateItem(olTaskItem)
With objTask
.Subject = "Prueba"
.Importance = olImportanceHigh
.Categories = "Personal"
.StartDate = Now
.DueDate = Now
.Body = "Esta es una Tarea de Prueba"
.Save
End With
objOutlook.Quit
Valora esta respuesta
0
Comentar
ejecutar como procedimiento el contenido de una va