Creating a Task
Sub task() Dim myTask As TaskItem Set myTask = Application.CreateItem(ItemType:=olTaskItem) End Sub