Create an Appointment from XL Spreadsheet in a Shared Calendar.

[Marc Bisson]

Hi,

Can somebody help me.

I try to create an appointment in Outlook from values entered in an Excel spreadsheet.
I just cannot figure out how to force the posting into a Shared calendar instead of my default calendar.

For example that code example I found on a forum works fine but only posts in My Calendar.

Sub SetAppt()
Dim olapp As Outlook.Application
Dim olApt As AppointmentItem
Set olapp = New Outlook.Application
Set olApt = olapp.CreateItem(olAppointmentItem)

With olApt
.Start = Date + 1 + TimeValue("19:00:00")
.End = .Start + TimeValue("00:30:00")
.Subject = "Piano lesson"
.Location = "The teachers house"
.Body = "Don't forget to take an apple for the teacher"
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
End With

Set olApt = Nothing
Set olapp = Nothing

End Sub



But I want to post the appointment to another calendar.
Does somebody has an idea how to do it simply ? I am struggling with that part.
I got the EntryID for that Calendar but I get stuck from there.

General Information
My Shared Calendar Property displayed Location is: "\\Public Folders - bisc@myCompany.com\Favorites"
The "When posting to this folder" property is "IPM.Appointment"
There is a Folder Contact and a Folder Address defined in the Summary Tab of the Shared Calendar Properties
The Folder Path there is: \Departments/Départements\ITS/STI\Calendars/Calendriers\MY - GROUP


Thanks

 

[Diane Poremsky]

CreatItem uses the default folder for the item type. To post in another folder, you either need to identify that folder and use Add or create it and move it to the other calendar.

The sample here - http://www.slipstick.com/developer/copy-new-appointments-to-another-calendar-using-vba/ - uses the move method to move it to another calendar in your profile.