如何批量清除所有 Outlook 項目中的所有顏色類別

出於某些目的，您可能需要在 Outlook 中從頭開始使用顏色類別。因此，您需要清除所有 Outlook 項目中的顏色類別。本文將介紹一種高效率的清除方法。

例如，為了重建顏色類別，您刪除 Outlook 中的所有現有顏色類別。 但是，刪除後，您可能會發現這些類別仍然附加到 Outlook 項目。 唯一的變化是類別失去了原來的顏色，顯示為白色。 在這種情況下，您可能希望清除所有項目中的所有顏色類別。

要對一個文件夾中的所有項目執行此操作，您只需按“Ctrl + A”選擇所有項目，右鍵單擊並從上下文菜單中選擇“分類”和“清除所有類別”。 但是，這樣一來，您就必須一個一個地處理每個文件夾。 這太乏味了。 所以，下面我們將教你一個更方便的方法。

批量清除所有 Outlook 項目中的所有顏色類別

1. 首先，啟動 Outlook 應用程式。
2. 然後，按“Alt + F11”快捷鍵來觸發 VBA 編輯器。
3. 在顯示的新窗口中，將以下 VBA 代碼複製並粘貼到空模塊或項目中。

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. 之後，將光標置於第一個子程序中，然後按“F5”鍵觸發宏。
5. 當您收到“已完成”提示時，這意味著已從所有 Outlook 項目中清除了所有顏色類別。
6. 目前，無論您的 Outlook 中的電子郵件、約會、任務、聯繫人或便箋，都必須絕對沒有分配顏色類別。

解決嚴重的 Outlook 問題

也許您已經知道 Outlook 預裝了一個內置修復工具 - Scanpst.exe。 你以前試過嗎？ 老實說，它足以處理涉及 Outlook PST 文件的小問題。 但是，如果問題相當嚴重，例如嚴重 損壞的Outlook 文件，內部實用程序不會生效。 在這種情況下，您必須依靠頂級的外部工具，例如 DataNumen Outlook Repair，由於其高 PST 恢復，它已經超越了競爭對手。

作者簡介：

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