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