如何在 Outlook 中接受會議邀請後自動套用色彩類別？

在日常工作中，您可能會收到多封 Outlook 會議邀請郵件。當您接受會議時，或許希望自動套用特定的色彩類別。雖然您可以手動逐一設定，但這樣做相當耗時費力。本文將教您如何在 Outlook 中自動完成這項操作。

使用 VBA 程式碼，在接受會議後自動指派色彩類別

---

使用 VBA 程式碼，在接受會議後自動指派色彩類別

1. 按住「Alt + F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 在「Microsoft Visual Basic for Applications」視窗中，於「Project 1 （VbaProject.OTM）」窗格內雙擊「ThisOutlookSession」以開啟模組，並將下列程式碼複製貼上至空白模組中。

VBA 程式碼：在接受會議後自動指派色彩類別

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

注意：在上述程式碼中，您可以將「Red Category」替換為您想要的色彩類別名稱。

3. 接著，重新啟動 Outlook 以啟用此巨集。

4. 接著，在接受會議邀請郵件並點選「立即傳送回應」選項後，指定的色彩類別將立即套用至已接受的會議。請參閱以下截圖：

注意：此程式碼僅適用於預設資料帳戶。