Hoe alle categorieën uit Outlook wissen?

Stel dat er in uw Outlook veel items worden toegepast op de kleurcategorie. Als u al deze categorieën uit de items moet verwijderen, hoe kunt u deze taak dan snel en gemakkelijk afhandelen in Outlook?

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

Wis alle categorieën van een specifiek account met VBA-code

Wis 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, doet u het volgende:

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

2. Klik vervolgens met de rechtermuisknop en kies categorizeren > Wis alle categorieën zie screenshot vanuit het contextmenu:

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

Wis alle categorieën van een specifiek account met VBA-code

Om alle categorieën uit alle items, zoals e-mails, taken, contacten, notities enzovoort van een account te wissen, kan de onderstaande VBA-code u een plezier doen:

1. Klik op een account-e-mailadres waarvan u alle categorieën wilt opschonen en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: wis alle categorieën van 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 F5 toets om het uit te voeren, en dan verschijnt er een promptvenster om u eraan te herinneren dat alle categorieën van het geselecteerde account zijn gewist, zie screenshot: