Jak wyczyścić wszystkie kategorie z Outlooka?

Autor: Xiaoyang Ostatnia modyfikacja: 2018-11-29

Przypuśćmy, że w programie Outlook do kategorii kolorów zastosowano wiele elementów. Jeśli chcesz usunąć wszystkie te kategorie z pozycji, jak możesz szybko i łatwo poradzić sobie z tym zadaniem w programie Outlook?

Wyczyść wszystkie kategorie z określonego folderu za pomocą funkcji Wyczyść wszystkie kategorie

Wyczyść wszystkie kategorie z określonego konta za pomocą kodu VBA

Wyczyść wszystkie kategorie z określonego folderu za pomocą funkcji Wyczyść wszystkie kategorie

Jeśli chcesz tylko wyczyścić kategorie w określonym folderze, wykonaj następujące czynności:

1. Kliknij folder, z którego chcesz usunąć kategorie oznaczone kolorami, a następnie naciśnij Ctrl + aby zaznaczyć wszystkie elementy.

2. Następnie kliknij prawym przyciskiem myszy i wybierz Kategoryzować > Wyczyść wszystkie kategorie z menu kontekstowego, zobacz zrzut ekranu:

doc wyczyść kategorię 1

3. Następnie wszystkie kategorie kolorów w tym konkretnym folderze zostały wyczyszczone jednocześnie.

Wyczyść wszystkie kategorie z określonego konta za pomocą kodu VBA

Aby wyczyścić wszystkie kategorie ze wszystkich elementów, takich jak e-maile, zadania, kontakty, notatki itp. Z konta, poniższy kod VBA może wyświadczyć ci przysługę:

1. Kliknij adres e-mail konta, z którego chcesz wyczyścić wszystkie kategorie, a następnie przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Wyczyść wszystkie kategorie z określonego konta:

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. Następnie naciśnij F5 klawisz, aby go uruchomić, a następnie pojawi się okno zachęty, aby przypomnieć, że wszystkie kategorie z wybranego konta zostały wyczyszczone, patrz zrzut ekranu:

doc wyczyść kategorię 2