从多个日历中删除会议

Question

我希望取消共享日历中的会议，并将其从被邀请者的日历中删除（将永远是其他同事，这些会议被设置为Outlook提醒，用于发送文档）-以下代码会取消会议，但只会从我自己的日历中删除它，是否有办法让我从其他日历中删除它？

Sub DeleteMeeting()

Dim i As Long, j As Long
Dim wb As Workbook
Dim ws As Worksheet
Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim objAppointment As Outlook.AppointmentItem

Set objOutlook = Outlook.Application
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
Set oItems = objFolder.Items
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Licences")

r = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 5 To r
    For j = oItems.Count To 1 Step -1
        If Cells(i, 8).Value <> "" And Cells(i, 5) = "Mobile Plant" Then
            Set objAppointment = oItems.Item(j)
            With objAppointment
                If .Subject = "Send licence - " + ws.Cells(i, 4).Value + " " + ws.Cells(i, 14).Value Then
                    objAppointment.MeetingStatus = olMeetingCanceled
                    objAppointment.Save
                    objAppointment.Send
                    objAppointment.Delete
                End If
            End With
        End If
    Next j
Next i
End Sub