Creating an appointment via VBA in a shared calendar

[Guest]

Hi,

I am trying to create, from Access, an appointment in a shared calendar
using visual basic. To create this in my personal calendar, I am using

Dim objOutlook As Object ' outlook object
Dim objOutlookMsg As Object ' outlook mail message

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olAppointmentItem)

objOutlookMsg.Subject = "Test subject"
objOutlookMsg.Body = "Test body"
objOutlookMsg.Location = "London"
objOutlookMsg.Start = "11/30/2004 9:00:00 AM"
objOutlookMsg.End = "11/30/2004 1:00:00 PM"
objOutlookMsg.Save

How do I obtain the location of the shared calendar and specify it?

Thanks in advance


Simon

 

[Sue Mosher [MVP-Outlook]]

Take a look at the Namespace.GetSharedDefaultFOlder method. Once you get the
folder, you'll use MAPIFolder.Items.Add to create the appointment.

FYI, there is a newsgroup specifically for general Outlook programming
issues "down the hall" at microsoft.public.outlook.program_vba or, via web
interface, at
http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

 

[Guest]

Many thanks, Sue. Yet again you've sorted me out!

Simon