Wie entfernen Sie alle Kategorien aus Outlook?

Angenommen, zahlreiche Elemente in Ihrem Outlook sind mit Farbkategorien versehen – wie können Sie diese Kategorien dann schnell und einfach von allen betroffenen Elementen entfernen?

Alle Kategorien aus einem bestimmten Ordner mithilfe der Funktion „Alle Kategorien löschen“ entfernen

Alle Kategorien aus einem bestimmten Konto mithilfe eines VBA-Codes entfernen

---

Alle Kategorien aus einem bestimmten Ordner mithilfe der Funktion „Alle Kategorien löschen“ entfernen

Wenn Sie die Kategorien nur in einem bestimmten Ordner entfernen möchten, gehen Sie wie folgt vor:

1. Klicken Sie auf den Ordner, aus dem Sie die Farbkategorie entfernen möchten, und drücken Sie anschließend Strg + A, um alle Elemente auszuwählen.

2. Klicken Sie dann mit der rechten Maustaste und wählen Sie im Kontextmenü Kategorisieren > Alle Kategorien löschen, siehe Screenshot:

3. Anschließend wurden alle Farbkategorien in diesem Ordner auf einmal entfernt.

---

Alle Kategorien aus einem bestimmten Konto mithilfe eines VBA-Codes entfernen

Um alle Kategorien sämtlicher Elemente – etwa E-Mails, Aufgaben, Kontakte, Notizen usw. – eines Kontos zu entfernen, unterstützt Sie der folgende VBA-Code:

1. Klicken Sie auf eine E-Mail des Kontos, aus dem Sie alle Kategorien entfernen möchten, und drücken Sie anschließend die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.

VBA-Code: Alle Kategorien aus einem bestimmten Konto entfernen:

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. Drücken Sie anschließend die Taste F5, um das Makro auszuführen. Es erscheint daraufhin eine Meldungsbox, die Sie darüber informiert, dass alle Kategorien des ausgewählten Kontos entfernt wurden – siehe Screenshot: