Batch wissen Alle kleurcategorieën wissen in alle Outlook-items

Soms wilt u in Outlook helemaal opnieuw beginnen met het gebruik van kleurcategorieën. Daarom wilt u alle kleurcategorieën in alle Outlook-items verwijderen. In dit artikel leggen we een efficiënte manier uit om dat te doen.

Om bijvoorbeeld kleurcategorieën opnieuw op te bouwen, verwijdert u alle bestaande kleurcategorieën in uw Outlook. Maar na verwijdering kan het zijn dat deze categorieën nog steeds aan de Outlook-items zijn gekoppeld. De enige verandering is dat de categorieën hun oorspronkelijke kleuren verliezen en in het wit worden weergegeven. Onder deze omstandigheden hoopt u misschien alle kleurcategorieën in alle items te wissen.

Om dit voor alle items in één map te doen, drukt u gewoon op "Ctrl + A" om alle items te selecteren, klikt u met de rechtermuisknop en kiest u "Categoriseren" en "Alle categorieën wissen" in het contextmenu. Maar op deze manier moet u elke map één voor één verwerken. Het is te vervelend. Daarom zullen we u hieronder een veel gemakkelijkere methode leren.

Batch Wis alle kleurcategorieën in alle Outlook-items

1. Start om te beginnen de Outlook-applicatie.
2. Druk vervolgens op de sneltoetsen "Alt + F11" om de VBA-editor te activeren.
3. Kopieer en plak in het weergegeven nieuwe venster de volgende VBA-code in een lege module of project.

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. Plaats daarna de cursor in de eerste subroutine en druk vervolgens op de “F5”-toets om de macro te activeren.
5. Wanneer u de prompt ‘Voltooid’ krijgt, betekent dit dat alle kleurcategorieën uit alle Outlook-items zijn gewist.
6. Op dit moment mogen er, ongeacht e-mails, afspraken, taken, contacten of notities in uw Outlook, absoluut geen kleurcategorieën zijn toegewezen.

Los ernstige Outlook-problemen op

Misschien weet u dat Outlook vooraf is geïnstalleerd met een ingebouwd reparatieprogramma: Scanpst.exe. Heb je het ooit eerder geprobeerd? Om eerlijk te zijn, het is krachtig genoeg om kleine problemen met uw Outlook PST-bestand op te lossen. Als het probleem echter aanzienlijk ernstig is, bijvoorbeeld ernstig beschadigde Outlook bestand, zal het interne hulpprogramma geen effecten aanbrengen. In deze situatie moet je terugvallen op een tiptop extern hulpmiddel, zoals DataNumen Outlook Repair, dat zijn rivalen heeft overtroffen vanwege het hoge PST-herstel.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com