Kuidas kustutada kõik värvikategooriad kõigis Outlooki üksustes

Mõnel eesmärgil soovite Outlookis värvikategooriaid nullist kasutama hakata. Seega soovite kõigist Outlooki üksustest kõik värvikategooriad kustutada. Selles artiklis tutvustame tõhusat viisi selle saamiseks.

Näiteks värvikategooriate taastamiseks kustutate Outlookis kõik olemasolevad värvikategooriad. Kuid pärast kustutamist võite avastada, et need kategooriad on endiselt Outlooki üksustega seotud. Ainus muudatus on see, et kategooriad kaotavad oma algsed värvid, kuvatakse valgena. Sel juhul võite loota, et kustutate kõigis üksustes kõik värvikategooriad.

Selle tegemiseks kõigi üksuste jaoks ühes kaustas võite lihtsalt vajutada klahvikombinatsiooni Ctrl + A, et valida kõik üksused, paremklõpsake ja valige kontekstimenüüst "Categorize" ja "Clear All Categories". Kuid sel viisil peate töötlema iga kausta ükshaaval. See on liiga tüütu. Niisiis, järgnevalt õpetame teile palju mugavamat meetodit.

Kõigi Outlooki üksuste kõigi värvikategooriate pakkimine

1. Alustamiseks käivitage Outlooki rakendus.
2. Seejärel vajutage VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
3. Kuvatavas uues aknas kopeerige ja kleepige järgmine VBA kood tühja moodulisse või projekti.

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. Seejärel asetage kursor esimesse alamprogrammi ja vajutage makro käivitamiseks klahvi F5.
5. Kui kuvatakse viip „Lõpetatud”, tähendab see, et kõik värvikategooriad on kõigist Outlooki üksustest kustutatud.
6. Olenemata teie Outlooki meilidest, kohtumistest, ülesannetest, kontaktidest või märkmetest, ei tohi kõigile neile praegu olla absoluutselt määratud värvikategooriaid.

Tõsiste Outlooki probleemide lahendamine

Võib-olla teadsite, et Outlook on eelinstallitud koos sisseehitatud parandustööriistaga – Scanpst.exe. Kas olete seda kunagi varem proovinud? Ausalt öeldes on see piisavalt võimas, et tulla toime väikeste probleemidega, mis on seotud teie Outlooki PST-failiga. Kui probleem on aga märkimisväärselt tõsine, näiteks halvasti kahjustatud Outlook faili, sisemine utiliit efekte ei avalda. Sellises olukorras tuleb tagasi pöörduda tipptasemel välise tööriista, nt DataNumen Outlook Repair, mis on oma kõrge PST taastumise tõttu rivaalidest üle astunud.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server määrata ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom