Outlook 2016 календарь отклонил встречи

Question

Я нахожусь в Windows 10 с использованием Outlook 2016 и хочу сохранить отклоненные собрания в своем календаре.

Я пробовал код с этого сайта: https://www.slipstick.com/outlook/calendar/meeting-cancellation-calendar/

    Sub CopyMeetingtoAppointment(oRequest As MeetingItem)

    If oRequest.MessageClass <> "IPM.Schedule.Meeting.Canceled" Then
    Exit Sub
    End If

    Dim oAppt As AppointmentItem
    Dim cAppt As AppointmentItem

    Set cAppt = oRequest.GetAssociatedAppointment(True)
    Set oAppt = Application.CreateItem(olAppointmentItem)

        oAppt.Subject = "(Rule) Canceled: " & cAppt.Subject
        oAppt.Start = cAppt.Start
        oAppt.Duration = cAppt.Duration
        oAppt.Location = cAppt.Location
        oAppt.Display
        oAppt.Save

       Set oAppt = Nothing
       Set cAppt = Nothing
    End Sub

Я ожидаю, что в моем календаре будут показаны мои отклоненные встречи.

Answer 1

Необходимо создать правило для обработки входящих элементов с помощью действия «Выполнить сценарий» и выбрать этот сценарий.