在 Outlook 中以特定顏色自動顯示私人日曆項目的 2 種方法

Outlook解決方案 2025 年 9 月 29 日

為了更輕鬆地區分日曆中的私人項目和非私人項目，您可能會想要自動以特定顏色（例如紅色）突出顯示私人項目。本文將介紹兩種實作方法。

許多用戶更喜歡根據日曆項目是否私有來對其進行分類。由於在日曆中，私人項目默認在視覺上沒有明顯差異，為了更容易識別私人項目，您可以讓 Outlook 自動以特定顏色顯示它們。在這裡我們將教您兩種獲取方法。

方法一：使用“條件格式”

首先，啟動 Outlook 並存取「日曆」窗格。
然後，轉到“視圖”選項卡並將視圖更改為“日曆”。
接下來，點擊“查看設置”按鈕。
在彈出的對話框中，單擊“條件格式”。
稍後，在隨後的對話框中，單擊“添加”並輸入名稱，例如“私人”。
然後，選擇一種特定的顏色，例如我的實例中的“深紅色”。
之後，單擊“條件”按鈕。
在下一個對話框中，切換到“高級”選項卡並添加以下過濾器：

Sensitivity > equals > private

最後，單擊“添加到列表”和幾次“確定”即可保存此格式化規則。
從現在開始，所有私人日曆項目都將顯示為“深紅色”。

方法2：使用VBA中的“自動顏色分類”

首先，使用特定顏色創建一個名為“Private”的新顏色類別。
接下來，根據“啟動 Outlook VBA 編輯器”如何在Outlook中運行VBA代碼“。
然後，將以下代碼放入“ThisOutlookSession”項目中。

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub