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