How to add a task item to an outlook public folder with vba macro / vbscript?

[Joe Patrick]

Hi!

I have this code to add a task to my personal outlook task list but how do I modify it to add the item to a public outlook task list?

Sub test()

Const olTaskItem = 3
Set objOutlook = CreateObject("Outlook.Application")
Set objTask = objOutlook.CreateItem(olTaskItem)
With objTask
    .Subject = "testsubject"
    .Body = "testbody"
    .ReminderSet = True
    .ReminderTime = #10/10/2005 12:00:00 PM#
    .DueDate = #10/31/2011 12:00:00 PM#
    .ReminderPlaySound = True
    .ReminderSoundFile = "C:\Windows\Media\Ding.wav"
End With

objTask.Save

End Sub

There are also multiple task lists in our public folders so I need to specify which task list it goes to.

Thank you!

 

[Joe Patrick]

Happy Monday! I'm hoping someone will see this not that the work week has begun. I appreciate any help you can provide!