Hur rensar jag alla kategorier från Outlook?

Antag att det finns många saker som används i färgkategorin i din Outlook. Om du behöver rensa alla dessa kategorier från artiklarna, hur kan du hantera det här jobbet snabbt och enkelt i Outlook?

Rensa alla kategorier från en specifik mapp med funktionen Rensa alla kategorier

Rensa alla kategorier från ett specifikt konto med VBA-kod

Rensa alla kategorier från en specifik mapp med funktionen Rensa alla kategorier

Om du bara behöver rensa kategorierna i en viss mapp, gör så här:

1. Klicka på mappen som du vill ta bort färgkategorierna och tryck sedan på Ctrl + A för att välja alla objekt.

2. Högerklicka sedan och välj sedan kategori~~POS=TRUNC > Rensa alla kategorier från snabbmenyn, se skärmdump:

3. Och sedan har alla färgkategorier i den här specifika mappen rensats på en gång.

Rensa alla kategorier från ett specifikt konto med VBA-kod

För att rensa alla kategorier från alla objekt, såsom e-post, uppgifter, kontakter, anteckningar och så vidare från ett konto, kan nedanstående VBA-kod göra dig en tjänst:

1. Klicka på ett konto-e-postmeddelande som du vill rensa alla kategorier från och håll sedan ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Rensa alla kategorier från ett visst konto:

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. Tryck sedan på F5 nyckel för att köra den och sedan visas en snabbruta för att påminna dig om att alla kategorier från det valda kontot har rensats, se skärmdump: