MS Access - добавете събитие за събития в споделен календар на Outlook - vba, ms-access, outlook, calendar, shared

Искам да добавите среща в споделен Outlookкалендар. Знам как да добавям календарите на други хора от MS Access, но имам проблеми със споделените календари. Създателят на календара също има собствен личен календар. Всичките ми предишни опити току-що са добавили към личния си календар.

Тук е моят код ... Опитах се да събера код на различни сайтове и аз просто останах. Оценявам всяка помощ.

Private Sub Add_to_Shared_Calendar_Click()
Dim outMail As Outlook.AppointmentItem
Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder "get name of other persons folder
Dim objRecip As Outlook.Recipient "other persons name
Dim strName As String "the name or email of the persons folder
Dim objAppt As Outlook.AppointmentItem
Dim objApp As Outlook.Application
On Error Resume Next
" name of person whose Calendar you want to use - right?
strName = "John Smith - Project Name Shared Calendar"
Set objNS = objApp.GetNamespace("MAPI")
Set objRecip = objNS.CreateRecipient(strName)
Set objFolder = objNS.GetSharedDefaultFolder(objRecip, olFolderCalendar)
Set outMail = Outlook.CreateItem(olAppointmentItem)
outMail.Subject = "test"
outMail.Location = ""
outMail.MeetingStatus = olMeeting
outMail.Start = Me.dateofevent
outMail.End = Me.TimeofEvent
outMail.RequiredAttendees = strName
outMail.Body = "test message"
outMail.Send
Set outMail = Nothing
End Sub

Отговори:

Заменете линиите

 outMail = Outlook.CreateItem(olAppointmentItem)
...
outMail.Send

с

 outMail = objFolder.Items.Add
...
outMail.Save