如何通過 Outlook VBA 為新約會自動分配顏色類別

Outlook解決方案 2025 年 9 月 29 日

許多用戶更喜歡按“顏色類別”管理 Outlook 約會。所以他們希望 Outlook 可以自動對新約會進行分類。本文將介紹如何實現。

文章“如何在 Outlook 日曆中自動分類約會”介紹了一種解決方法。它使用條件格式對約會進行顏色編碼。實際上它只是為項目分配顏色，而不是使用顏色類別。此外，條件格式依賴於視圖設置。也就是說，如果在當前視圖中創建了條件格式規則，在另一個視圖中，該規則將無效。所以這是一個得到它。

自動為新約會指定顏色類別

首先，切換到“Developer”選項卡並單擊“Visual Basic”按鈕。
在新窗口中，雙擊打開“ThisOutlookSession”項目。
然後在“ThisOutlookSession”對話框中，您應該複製並粘貼以下 VBA 代碼：

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewAppt As Outlook.AppointmentItem
 
    If Item.Class = olAppointment Then
       Set NewAppt = Item
    'Specify a color category based on appointment subject
    'You can replace "Test" with your desired string in subject line
       If InStr(Item.Subject, "Test") > 0 Then
          If Item.Categories = "" Then
             Item.Categories = "Test Category"
             Item.Save
          End If
       End If
    End If

    Set NewAppt = Nothing
End Sub

之後，單擊工具欄中的“保存”圖標。
稍後，您應該簽署此代碼並更改宏設置。至於怎麼做，可以看文章“第2步”在Outlook中將垃圾郵件自動標記為已讀的2個步驟“。
最後你可以試一試。結果將如下圖所示：

當心Outlook中的惡意宏

有很多危險的宏。所以我們應該只使用數字簽名的宏。而且，如今，電子郵件中的病毒變得越來越普遍。它們通常在電子郵件中偽裝成無害的對象。一旦我們打開、點擊或下載它們，我們的 Outlook 就會被感染，然後數據就會被破壞。很難恢復損壞的 Outlook. 所以此時，我們只能使用第三方修復工具。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括修復SQL文件問題和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM