Note: The other languages of the website are Google-translated. Back to English

 Jak wyczyścić wszystkie kategorie z Outlooka?

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


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL