So löschen Sie alle Farbkategorien in allen Outlook-Elementen im Stapel

Für manche Zwecke möchten Sie in Outlook die Farbkategorien von Grund auf neu erstellen. Daher möchten Sie alle Farbkategorien in allen Outlook-Elementen löschen. In diesem Artikel stellen wir Ihnen eine effiziente Methode dafür vor.

Um beispielsweise Farbkategorien neu zu erstellen, löschen Sie alle vorhandenen Farbkategorien in Ihrem Outlook. Nach dem Löschen stellen Sie jedoch möglicherweise fest, dass diese Kategorien weiterhin mit den Outlook-Elementen verknüpft sind. Die einzige Änderung besteht darin, dass die Kategorien ihre ursprünglichen Farben verlieren und in Weiß angezeigt werden. Unter diesen Umständen können Sie hoffen, alle Farbkategorien in allen Elementen zu löschen.

Um dies für alle Elemente in einem Ordner zu tun, können Sie einfach "Strg + A" drücken, um alle Elemente auszuwählen. Klicken Sie mit der rechten Maustaste und wählen Sie "Kategorisieren" und "Alle Kategorien löschen" aus dem Kontextmenü. Auf diese Weise müssen Sie jedoch jeden Ordner einzeln verarbeiten. Es ist zu langweilig. Im Folgenden werden wir Ihnen eine viel bequemere Methode beibringen.

Stapel Alle Farbkategorien in allen Outlook-Elementen löschen

1. Starten Sie zunächst die Outlook-Anwendung.
2. Drücken Sie dann die Tastenkombinationen „Alt + F11“, um den VBA-Editor auszulösen.
3. Kopieren Sie im angezeigten neuen Fenster den folgenden VBA-Code und fügen Sie ihn in ein leeres Modul oder Projekt ein.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Setzen Sie danach den Cursor in die erste Unterroutine und drücken Sie die Taste „F5“, um das Makro auszulösen.
5. Wenn Sie die Eingabeaufforderung "Abgeschlossen" erhalten, bedeutet dies, dass alle Farbkategorien aus allen Outlook-Elementen gelöscht wurden.
6. Derzeit dürfen allen E-Mails, Terminen, Aufgaben, Kontakten oder Notizen in Ihrem Outlook keine Farbkategorien zugewiesen werden.

Beheben Sie schwerwiegende Outlook-Probleme

Vielleicht haben Sie gewusst, dass Outlook mit einem integrierten Reparatur-Tool vorinstalliert ist - Scanpst.exe. Haben Sie es schon einmal versucht? Um ehrlich zu sein, ist es leistungsstark genug, um kleine Probleme mit Ihrer Outlook PST-Datei zu lösen. Wenn das Problem jedoch erheblich schwerwiegend ist, z. B. schlecht Outlook beschädigt Datei, das interne Dienstprogramm wird keine Effekte machen. In dieser Situation müssen Sie auf ein externes Spitzenwerkzeug zurückgreifen, z DataNumen Outlook Repair, das aufgrund seiner hohen PST-Erholung seine Konkurrenten geschultert hat.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server fixieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX