Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Assigning a Task to a Colleague

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