add appointment to additional calander?

[Sydney]

Hi

I have found the code to open the calander from an attached mailbox. I cant
work out how to create a new appointment. The options i end up with allow
to display the additional calander and no reference to create an
appointment.

Is this possible?
Im also using similiar code to open a new message from an additional mailbox
and run into the same problem.

my stuff so far:

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("IT") 'open additional
calendar
myRecipient.Resolve
Set CalendarFolder = myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display 'opens the IT Calendar..find a way to add
appointment?

With thanks

 

[Guest]

If you have write permissions on that folder, this will work. Just set a
reference to the CalendarFolder.Items object, and call the Add method from it
using olAppointmentItem as the argument.

 

[Sydney]

Got it thanks!
I also needed to declare a variable as Outlook.AppointmentItem. Perhaps i
could have worked without that but hey...its working