Wie kann man alle Kategorien aus Outlook löschen?
Angenommen, es gibt viele Elemente in Ihrer Outlook-Instanz, die Farbkategorien zugewiesen wurden. Wenn Sie nun alle diese Kategorien von den Elementen entfernen müssen, wie können Sie diese Aufgabe in Outlook schnell und einfach erledigen?
Alle Kategorien aus einem bestimmten Ordner mit der Funktion „Alle Kategorien löschen“ entfernen
Alle Kategorien aus einem bestimmten Konto mit VBA-Code entfernen
Alle Kategorien aus einem bestimmten Ordner mit der Funktion „Alle Kategorien löschen“ entfernen
Wenn Sie nur die Kategorien in einem bestimmten Ordner löschen möchten, gehen Sie bitte wie folgt vor:
1. Klicken Sie auf den Ordner, aus 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 darauf und wählen Sie im Kontextmenü Kategorisieren > Alle Kategorien löschen, siehe Screenshot:
3. Danach werden alle Farbkategorien in diesem spezifischen Ordner auf einmal gelöscht.
Alle Kategorien aus einem bestimmten Konto mit VBA-Code entfernen
Um alle Kategorien von allen Elementen wie E-Mails, Aufgaben, Kontakten, Notizen usw. aus einem Konto zu löschen, kann Ihnen der folgende VBA-Code helfen:
1. Klicken Sie auf eine E-Mail des Kontos, aus dem Sie alle Kategorien entfernen möchten, und halten Sie dann die Tastenkombination ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro in das Modulfenster 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 dann die Taste F5, um den Code auszuführen, und es wird ein Dialogfeld angezeigt, das Sie daran erinnert, dass alle Kategorien aus dem ausgewählten Konto gelöscht wurden, siehe Screenshot:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
