Измените цвет календаря Outlook на другие, если один, более двух или все участники отклонят собрание

Question

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

приведенный ниже код. Я хочу иметь возможность сделать его более общим, как если бы участник 1 отклонился, а затем отобразить в календаре определенный цвет, в противном случае, если два или более участника;посетители 1 и 3 отказываются показывать в календаре разные цвета.

В настоящее время я просматриваю примеры кодов в Интернете и нашел их здесь;datanumen.com/blogs/2-ways-auto-change-colors-incoming-meetings-based-organizers-outlook-calendar/

Sub AutoColorIncomingMeeting_Organizers(objItem As MeetingItem)
    Dim objMeeting As Outlook.AppointmentItem

    Set objMeeting = objItem.GetAssociatedAppointment(True)

    Select Case objItem.SenderEmailAddress
           Case "email1"
                objMeeting.Categories = objMeeting.Categories & "; " & "Red"
           Case "email2"
                objMeeting.Categories = objMeeting.Categories & "; " & "Green"
           Case Else
                objMeeting.Categories = objMeeting.Categories & "; " & "Purple"
    End Select

    objMeeting.Save
End Sub

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