Hi I realize this is a VERY old thread but it's still open so here's my question. I used the above code from DokeyOte and it worked great with Outlook 2010. Now I'm editing it at home where I have Outlook 2013 and as soon as I try to run the macro it stops at .subject and says Method 'Subject' of object '_TaskItem' failed I have already gone into Tools - References and added the Microsoft Outlook version.

Below is the code exactly as I have it. And also while I'm here just another quick dumb question: How can I add more than one cell from different columns to the subject line? I need several Headings to be included in the subject like Name, Report, etc. Thanks!!!

Sub NewTask()
    
    With CreateObject("Outlook.Application").CreateItem(3)
        .Subject = Cells(2, "A")
        .StartDate = Now
        .DueDate = Cells(2, "E")
        .ReminderSet = True
        .ReminderTime = .DueDate - 3 + TimeValue("8:30AM")
        .Body = Cells(2, "B") & vbNewLine & vbNewLine & Cells(2, "C")
        .Save
    End With

End Sub