Как удалить все категории из 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, чтобы запустить макрос. Появится окно с уведомлением о том, что все категории из выбранной учётной записи удалены (см. снимок экрана):