MS Access - dodaj wydarzenie terminowe do udostępnionego kalendarza Outlook - vba, dostęp MS, program Outlook, kalendarz, udostępniony

Chcę dodać termin do udostępnionego Outlookakalendarz. Wiem, jak dodawać kalendarze innych osób z MS Access, ale mam problemy z udostępnianymi kalendarzami. Twórca kalendarza ma również swój osobisty kalendarz. Wszystkie moje poprzednie próby właśnie zostały dodane do ich osobistego kalendarza.

Oto mój kod ... Próbowałem już zebrać kod na różnych stronach internetowych i po prostu utknąłem. Doceniam każdą pomoc.

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

Odpowiedzi:

Zastąp linie

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

z

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