'Creates a new task; assigns it a subject, start date, and due date; turns off the reminder for the task; and then saves it:
Sub taskItem()
Dim myTask As TaskItem
Set myTask = Application.CreateItem(ItemType:=olTaskItem)
With myTask
.Subject = "Arrange Review Meeting"
.StartDate = Date
.DueDate = Date + 7
.ReminderSet = False
.Save
End With
End Sub