如果与会者拒绝，则将Outlook日历设置为特定的颜色

Question

我正在使用Windows 10，Microsoft Outlook 2016、64位系统。 我想将组织的会议的Outlook日历修改为以下内容：如果有一位与会者拒绝我的会议，将颜色设置为黄色；如果有两个或更多与会者拒绝我的会议，将颜色设置为橙色；如果所有与会者拒绝我的会议，将颜色设置为红色？ >

我有这段代码，但是只有在指定的电子邮件地址发送会议请求时，它才会更改颜色，而如果拒绝，则会更改颜色。

Sub AutoColorIncomingMeeting_Organizers(objItem As MeetingItem)
    Dim objMeeting As Outlook.AppointmentItem
    Set objMeeting = objItem.GetAssociatedAppointment(True)
    Select Case objItem.SenderEmailAddress
           Case "email address"
                objMeeting.Categories = objMeeting.Categories & "; " & "Yellow Category"
           Case "email address2"
                objMeeting.Categories = objMeeting.Categories & "; " & "Orange Category"
           Case Else
                objMeeting.Categories = objMeeting.Categories & "; " & "Red Category"
    End Select
    objMeeting.Save
End Sub

该代码将日历会议的颜色更改为特定用户的特定颜色。我想让它更通用，例如如果一个与会者拒绝将其更改为黄色，如果两个与会者拒绝将其更改为橙色，以及所有与会者拒绝将其更改为红色。