Hoe verwijder je alle categorieën uit Outlook?
Stel dat er veel items in je Outlook zijn toegewezen aan een kleurcategorie. Als je al deze categorieën van de items wilt verwijderen, hoe kun je dit dan snel en eenvoudig doen in Outlook?
Alle categorieën uit een specifieke map verwijderen met de functie 'Alles wissen'
Alle categorieën uit een specifiek account verwijderen met VBA-code
Alle categorieën uit een specifieke map verwijderen met de functie 'Alles wissen'
Als je alleen de categorieën in een specifieke map wilt wissen, doe dan het volgende:
1. Klik op de map waarvan je de kleurcategorieën wilt verwijderen en druk vervolgens op Ctrl + A om alle items te selecteren.
2. Klik vervolgens met de rechtermuisknop en kies Categorieën toevoegen > Alles wissen in het contextmenu, zie screenshot:
3. Alle kleurcategorieën in deze specifieke map worden nu in één keer gewist.
Alle categorieën uit een specifiek account verwijderen met VBA-code
Om alle categorieën uit alle items zoals e-mails, taken, contacten, notities enz. van een account te wissen, kan de onderstaande VBA-code je helpen:
1. Klik op een e-mail van het account waarvan je alle categorieën wilt wissen, en houd vervolgens de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster.
VBA-code: Alle categorieën uit een specifiek account wissen:
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 het script uit te voeren, waarna er een pop-upmelding verschijnt die je eraan herinnert dat alle categorieën van het geselecteerde account zijn gewist, zie screenshot:
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
