create task item in outlook

To create new Task item in Outlook.

You can download source from here.

Dim oOutlook
Dim oTaskitem

Set oOutlook = CreateObject("Outlook.Application")
Set oTaskitem = oOutlook.CreateItem(3)
'We must according to this order to create task with reminder.
'And we should set the start date and duedate before reminder setting.
'1) ReminderSet = True
'2) ReminderTime = CDate("2008-11-29 17:00")
With oTaskitem
    .Body = "body"
    .Subject = "subject"
    .StartDate = CDate("2008-11-29 18:00")
    .DueDate = CDate("2008-11-30 18:00")
    .TeamTask = True    
    .ReminderSet = True
    .ReminderOverrideDefault = True
    .ReminderTime = CDate("2008-11-29 17:00")
    .Save
    .Display
End With
Set oOutlook = Nothing
Set oTaskitem = Nothing