Sub taskItemTask() Dim myTaskAssignment As TaskItem
Set myTaskAssignment = Application.CreateItem(ItemType:=olTaskItem)
With myTaskAssignment
.Assign
.Recipients.Add Name:="Your Name"
.Subject = "Body"
.Body = "body."
.DueDate = Str(Date + 3)
.Send End With End Sub