Note: The other languages of the website are Google-translated. Back to English

 Wie lösche ich alle Kategorien aus Outlook?

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


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL