Send Task to Outlook from Excel

Can a macro from Excel VBA create a Task in Outlook?

I would like to have Excel create a task populated with a date in a given cell in Excel.

Basically, click a button and a task is creaed in Outlook based on the date in a given cell.

Is this possible?

Sure could use help with this.

DonkeyOte,

Question - I have pasted the code in a seperate workbook and it works. Fantastic! But when I pasted it to the workbook I need it in it gives me this error (Type Mismatch). I even copied the page with code into the workbook to make sure it would work, but no luck. Not sure why this is happening. Could you please share your expertise with solving this problem?

DonkeyOte,

Per the code below;

Sub Example()
Dim OLApp As Outlook.Application
Dim OLTk As Outlook.TaskItem
Set OLApp = New Outlook.Application
Set OLTk = OLApp.CreateItem(olTaskItem)
With OLTk
.Subject = Cells(1, "A")
.StartDate = Cells(2, "A")
.DueDate = Cells(2, "A") + 1
.ReminderTime = .StartDate - 1
.Body = "This is a Task"
.Save
End With
Set OLTk = Nothing
Set OLApp = Nothing
End Sub

It always stops at the -Dim OLApp As Outlook.Application. It works in the workbook that I first pasted it in but when I try to paste it into another workbook it errors out at that line.

Sure could use the help to get this solved.

Thanks

Sorry about that.

Not trying to break rules.

Let me figure that out and post my information again.

Thanks for the advice.

All,

Please accept my apologies.

I realize this is an old thread but hopefully someone will see this post and have a solution.

I am using the above code to create a task automatically and it works great.

Where I'm having trouble is setting the 'Priority' or Importance of the task.

I can see the Importance property of the task once I make it but think I am getting the syntax wrong to set the importance to either Low, Normal or High.

Any suggestions would be appreciated.

Thank you

Answered my own question:
when setting the importance I was trying to set the value to task.importance = olImportanceHigh (or olImportanceLow or olImportnaceNormal) which wasn't working.

If I set the task.importance = 0 (zero for Low, 1 for Normal, 2 for High) it works perfectly.

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

Ok I just realized I figured out how to add more cells to a subject because I did it with the body. Just add &. If I'm wrong please correct me. It's been months since I created this file and I forgot how it works.

But still need help with the debug message please! Thanks!!