task automation

[Guest]

I am doing outlook task automation from excel and everything goes ok.
part of my code follows:

Private Sub TaskItem_Click()
Dim olApp As Outlook.Application
Dim olNewTask As TaskItem

Set olApp = CreateObject("Outlook.Application")
Set olNewTask = olApp.CreateItem(olTaskItem)

With olNewTask
.StatusUpdateRecipients = "(e-mail address removed); (e-mail address removed)"
.....
.Display
End With

End Sub

However I require the task to be generated in an specific public folder.
How can that be done?

 

[Ken Slovak - [MVP - Outlook]]

Get a handle to that MAPIFolder and use its Items.Add method.