Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

 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:

doc clear categorie 1

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:

doc clear categorie 2


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.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.