excel - 从多个日历中删除会议

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

标签： excelvbaoutlook