Hoe verwijdert u alle categorieën uit Outlook?

Stel dat er veel items in uw Outlook zijn voorzien van een kleurcategorie. Hoe verwijdert u al deze categorieën snel en eenvoudig uit de items in Outlook?

Verwijder alle categorieën uit een specifieke map met de functie Alle categorieën wissen

Verwijder alle categorieën uit een specifiek account met VBA-code

---

Verwijder alle categorieën uit een specifieke map met de functie Alle categorieën wissen

Als u alleen de categorieën in een specifieke map wilt wissen, volgt u deze stappen:

1. Klik op de map waaruit u de kleurcategorie wilt verwijderen en druk vervolgens op Ctrl + A om alle items te selecteren.

2. Klik met de rechtermuisknop en kies in het contextmenu Categoriseren > Alle categorieën wissen, zie schermafbeelding:

3.Vervolgens zijn alle kleurcategorieën in deze specifieke map in één keer gewist.

---

Verwijder alle categorieën uit een specifiek account met VBA-code

Om alle categorieën van alle items – zoals e-mails, taken, contacten, notities enzovoort – van een account te wissen, kunt u de onderstaande VBA-code gebruiken:

1. Klik op een account-e-mail waarvan u alle categorieën wilt wissen en druk vervolgens op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: verwijder alle categorieën uit een specifiek account:

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. Druk vervolgens op de F5-toets om de code uit te voeren. Er verschijnt dan een meldingsvenster met de mededeling dat alle categorieën van het geselecteerde account zijn gewist, zie schermafbeelding: