Jak wsadowo wyczyścić wszystkie kategorie kolorów we wszystkich elementach programu Outlook

Z pewnych powodów chcesz zacząć korzystać z kategorii kolorów w Outlooku od podstaw. W związku z tym chcesz usunąć wszystkie kategorie kolorów we wszystkich elementach Outlooka. W tym artykule przedstawimy skuteczny sposób, aby to zrobić.

Na przykład, aby odbudować kategorie kolorów, usuwasz wszystkie istniejące kategorie kolorów w Outlooku. Jednak po usunięciu może się okazać, że te kategorie są nadal dołączone do elementów programu Outlook. Jedyną zmianą jest to, że kategorie tracą swoje oryginalne kolory, wyświetlając się na biało. W tej sytuacji możesz mieć nadzieję na wyczyszczenie wszystkich kategorii kolorów we wszystkich elementach.

Aby to zrobić dla wszystkich elementów w jednym folderze, możesz po prostu nacisnąć „Ctrl + A”, aby zaznaczyć wszystkie elementy, kliknąć prawym przyciskiem myszy i wybrać „Kategoryzuj” i „Wyczyść wszystkie kategorie” z menu kontekstowego. Ale w ten sposób musisz przetwarzać każdy folder jeden po drugim. To zbyt uciążliwe. Dlatego w dalszej części nauczymy Cię znacznie wygodniejszej metody.

Wyczyść wsadowo wszystkie kategorie kolorów we wszystkich elementach programu Outlook

1. Na początek uruchom aplikację Outlook.
2. Następnie naciśnij skróty klawiszowe „Alt + F11”, aby uruchomić edytor VBA.
3. W wyświetlonym nowym oknie skopiuj i wklej następujący kod VBA do pustego modułu lub projektu.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Następnie umieść kursor w pierwszym podprogramie, a następnie naciśnij przycisk „F5”, aby uruchomić makro.
5. Gdy pojawi się monit „Zakończono”, oznacza to, że wszystkie kategorie kolorów zostały usunięte ze wszystkich elementów programu Outlook.
6. Obecnie, bez względu na e-maile, spotkania, zadania, kontakty lub notatki w Outlooku, wszystkie z nich nie mogą mieć przypisanych absolutnie żadnych kategorii kolorystycznych.

Rozwiąż poważne problemy z programem Outlook

Być może wiesz, że program Outlook jest dostarczany z preinstalowanym narzędziem naprawczym — Scanpst.exe. Czy kiedykolwiek próbowałeś tego wcześniej? Szczerze mówiąc, jest wystarczająco potężny, aby poradzić sobie z drobnymi problemami związanymi z plikiem PST programu Outlook. Jeśli jednak problem jest znacznie poważny, na przykład źle uszkodzony Outlook plik, narzędzie wewnętrzne nie przyniesie efektów. W takiej sytuacji trzeba zdać się na zewnętrzne narzędzie typu tip-top, np DataNumen Outlook Repair, który pokonał swoich rywali dzięki wysokiemu odtworzeniu PST.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com