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