Wie lösche ich alle Kategorien aus Outlook?

Autor: Xiaoyang Letzte Änderung: 2018-11-29

Angenommen, in Ihrem Outlook werden viele Elemente auf die Farbkategorie angewendet. Wenn Sie alle diese Kategorien aus den Elementen löschen müssen, wie können Sie diesen Job in Outlook schnell und einfach erledigen?

Löschen Sie alle Kategorien aus einem bestimmten Ordner mit der Funktion Alle Kategorien löschen

Löschen Sie alle Kategorien eines bestimmten Kontos mit VBA-Code

Löschen Sie alle Kategorien aus einem bestimmten Ordner mit der Funktion Alle Kategorien löschen

Wenn Sie nur die Kategorien in einem bestimmten Ordner löschen müssen, gehen Sie wie folgt vor:

1. Klicken Sie auf den Ordner, in dem Sie die Farbkategorien entfernen möchten, und drücken Sie dann Strg + A um alle Elemente auszuwählen.

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

doc clear Kategorie 1

3. Anschließend wurden alle Farbkategorien in diesem bestimmten Ordner auf einmal gelöscht.

Löschen Sie alle Kategorien eines bestimmten Kontos mit VBA-Code

Mit dem folgenden VBA-Code können Sie einen Gefallen tun, um alle Kategorien aus allen Elementen wie E-Mails, Aufgaben, Kontakten, Notizen usw. aus einem Konto zu entfernen:

1. Klicken Sie auf eine Konto-E-Mail, aus der Sie alle Kategorien entfernen möchten, und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

VBA-Code: Löschen Sie alle Kategorien aus einem bestimmten Konto:

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. Dann drücken F5 Wenn Sie die Taste drücken, um es auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass alle Kategorien des ausgewählten Kontos gelöscht wurden. Siehe Screenshot:

doc clear Kategorie 2