add appointment to additional calander?

S

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
 
E

Eric Legault [MVP - Outlook]

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.
 
S

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 :)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top