Add an entry to a shared outlook Calendar

I have written a small program that maintains appointments in Outlook 98.

How can I reference another mail account's shared calendar to add/edit appointments?

I have checked it manually and there are no privilege issues causing problems, so it’s down to code.

The method that works when referring to the default account is:

Set Ol = CreateObject("Outlook.Application")
Set OlItem = Ol.CreateItem(olAppointmentItem)
Set Start/Finish/Body/Subject/Location etc..
OlItem.Save

Add this stuff:


Dim objRecipient As Recipient
Dim objAppt As Outlook.AppointmentItem

Set objRecipient = objNameSpace.CreateRecipient(OutlookName)
Set objAppt = objNameSpace.GetSharedDefaultFolder(objRecipient, olFolderCalendar).Items.Add