Så här grupperar du Rensa alla färgkategorier i alla Outlook-objekt

Av vissa skäl vill du börja använda färgkategorier från grunden i din Outlook. Därför vill du rensa alla färgkategorier i alla Outlook-objekt. I den här artikeln kommer vi att presentera ett effektivt sätt att få det.

För att till exempel återskapa färgkategorier tar du bort alla befintliga färgkategorier i din Outlook. Men efter radering kan du upptäcka att dessa kategorier fortfarande är kopplade till Outlook-objekten. Den enda förändringen är att kategorierna tappar sina ursprungliga färger och visas i vitt. Under denna omständighet kanske du hoppas rensa alla färgkategorier i alla artiklar.

För att göra detta för alla objekt i en mapp kan du bara trycka på "Ctrl + A" för att välja alla objekt, högerklicka och välja "Kategorisera" och "Rensa alla kategorier" från snabbmenyn. Men på detta sätt måste du bearbeta varje mapp en efter en. Det är för tråkigt. Så i det följande kommer vi att lära dig en mycket bekvämare metod.

Batch Rensa alla färgkategorier i alla Outlook-objekt

1. Till att börja med, starta Outlook-applikationen.
2. Tryck sedan på “Alt + F11” -tangenterna för att utlösa VBA-redigeraren.
3. Kopiera och klistra in följande VBA-kod i det nya fönstret i en tom modul eller ett projekt.

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. Därefter placerar du markören i den första subrutinen och trycker sedan på “F5” -tangentknappen för att utlösa makro.
5. När du får meddelandet "Slutfört" betyder det att alla färgkategorier har rensats från alla Outlook-objekt.
6. För närvarande, oavsett e-post, möten, uppgifter, kontakter eller anteckningar i din Outlook, måste alla inte ha några färgkategorier som tilldelats absolut.

Lös allvarliga Outlook-problem

Du kanske har vetat att Outlook levereras förinstallerat med ett inbyggt reparationsverktyg - Scanpst.exe. Har du någonsin provat det tidigare? För att vara ärlig är den tillräckligt kraftfull för att hantera små problem med din Outlook PST-fil. Men om frågan är betydligt svår, till exempel dåligt skadade Outlook fil, kommer det interna verktyget inte att göra effekter. I den här situationen måste du falla tillbaka på ett externt verktyg, som t.ex. DataNumen Outlook Repair, som har axlat över sina konkurrenter på grund av sin höga PST-återhämtning.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server fast och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com