Hogyan törölhető az összes kategória az Outlookból?

Tegyük fel, hogy sok elemet alkalmaznak az Outlook színkategóriájára. Ha törölnie kell ezeket a kategóriákat az elemek közül, hogyan kezelheti ezt a munkát gyorsan és egyszerűen az Outlook programban?

Minden kategória törlése egy adott mappából az Összes kategória törlése funkcióval

Minden kategória törlése egy VBA kóddal ellátott számláról

Minden kategória törlése egy adott mappából az Összes kategória törlése funkcióval

Ha csak ki kell törölnie a kategóriákat egy adott mappában, kérjük, tegye a következőket:

1. Kattintson a mappára, amelyről el szeretné távolítani a színkategóriákat, majd nyomja meg az gombot Ctrl + A az összes elem kiválasztásához.

2. Ezután kattintson a jobb gombbal, majd válassza a lehetőséget Besorolás > Minden kategória törlése a helyi menüből lásd a képernyőképet:

doc egyértelmű 1. kategória

3. Ezután az adott mappában lévő összes színkategória egyszerre törölve lett.

Minden kategória törlése egy VBA kóddal ellátott számláról

Az összes kategória törlése az összes elemtől, például e-mailek, feladatok, kapcsolattartók, jegyzetek és így tovább egy fiókból, az alábbi VBA-kód jót tehet Önnek:

1. Kattintson egy fiók e-mail címére, amelyről meg szeretné tisztítani az összes kategóriát, majd tartsa lenyomva a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Minden kategória törlése egy adott fiókból:

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. Ezután nyomja meg a gombot F5 kulcs a futtatásához, majd megjelenik egy gyorsdoboz, amely emlékezteti Önt a kiválasztott fiók összes kategóriájának törlésére, lásd a képernyőképet:

doc egyértelmű 2. kategória