Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Create a TaskItem

Sub taskItem()     Dim myTask As TaskItem     Set myTask = Application.CreateItem(ItemType:=olTaskItem)     With myTask         .Subject = "plan"         .Body = "body"         .DueDate = Str(Date + 28)              .Status = olTaskInProgress         .PercentComplete = 10         .Companies = "your company"         .BillingInformation = "Sales & Marketing"         .Importance = olImportanceHigh         .Save     End With End Sub