如何批量清除所有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 文件的小问题。 但是，如果问题相当严重，例如严重 损坏的外观 文件，内部实用程序不会产生效果。 在这种情况下，您必须求助于尖端的外部工具，例如 DataNumen Outlook Repair，由于 PST 恢复率高，它已经超越了竞争对手。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 SQL Server 固定 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com