Marc Bisson
New Member
- Outlook version
- Outlook 2010 64 bit
- Email Account
- Exchange Server 2010
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
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