Send Task to Outlook from Excel

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.