如何清除Outlook中的所有类别？

假设有很多项目应用于Outlook中的颜色类别。 如果需要从项目中清除所有这些类别，那么如何在Outlook中快速轻松地处理此工作？

使用“清除所有类别”功能清除特定文件夹中的所有类别

使用VBA代码清除特定帐户中的所有类别

---

使用“清除所有类别”功能清除特定文件夹中的所有类别

如果您只需要清除特定文件夹中的类别，请执行以下操作：

1。 单击您要删除颜色类别的文件夹，然后按 按Ctrl + A 选择所有项目。

2。 然后右键单击，然后选择 分类 > 清除所有类别 从上下文菜单中，查看屏幕截图：

3. 然后，立即清除了此特定文件夹中的所有颜色类别。

---

使用VBA代码清除特定帐户中的所有类别

要清除帐户中所有项目的所有类别，例如电子邮件，任务，联系人，便笺等，下面的VBA代码可以帮您一个忙：

1。 点击您要清除所有类别的帐户电子邮件，然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下宏粘贴到 模块 窗口。

VBA代码：清除特定帐户中的所有类别：

Sub BatchClearAllCategories_AllOutlookItems()
    Dim xCurrentFolder As Outlook.Folder
    Dim xFolder As Folder, xCurFolder As Folder
    Dim xPos As Integer
    Dim xRootFldName As String
    Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder
    xPos = InStr(3, xCurFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = Mid(xCurFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = Mid(xCurFolder.FolderPath, 3, Len(xCurFolder.FolderPath) - 2)
    End If
    Set xCurrentFolder = Outlook.Application.Session.Folders(xRootFldName)
    For Each xFolder In xCurrentFolder.Folders
        Call ProcessFolders(xFolder)
    Next
    MsgBox "Clear completed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFld As Outlook.Folder)
    Dim xItem As Object
    Dim i As Integer
    Dim xSubfolder As Outlook.Folder
    If CurFld.Items.Count > 0 Then
        For i = CurFld.Items.Count To 1 Step -1
            Set xItem = CurFld.Items.Item(i)
            xItem.Categories = ""
            xItem.Save
        Next
    End If
    If CurFld.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFld.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3。 然后按 F5 键运行它，然后弹出一个提示框，提醒您清除了所选帐户中的所有类别，请参见屏幕截图：