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:
Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!
- Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
- BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
- Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
- Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
- Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

