Kaip paketiniu būdu išvalyti visas spalvų kategorijas visuose „Outlook“ elementuose

Kai kuriais tikslais norite pradėti naudoti spalvų kategorijas „Outlook“ programoje nuo nulio. Todėl norėtumėte išvalyti visas spalvų kategorijas visuose „Outlook“ elementuose. Šiame straipsnyje pristatysime efektyvų būdą tai padaryti.

Pavyzdžiui, norėdami atkurti spalvų kategorijas, ištrinate visas esamas „Outlook“ spalvų kategorijas. Tačiau ištrynę galite pastebėti, kad šios kategorijos vis dar yra pridėtos prie „Outlook“ elementų. Vienintelis pakeitimas yra tas, kad kategorijos praranda savo pradines spalvas ir rodomos balta spalva. Esant tokioms aplinkybėms, galite tikėtis išvalyti visas spalvų kategorijas visuose elementuose.

Norėdami tai padaryti visiems elementams viename aplanke, galite tiesiog paspausti „Ctrl + A“, kad pasirinktumėte visus elementus, dešiniuoju pelės mygtuku spustelėkite ir kontekstiniame meniu pasirinkite „Categorize“ ir „Clear All Categories“. Tačiau tokiu būdu jūs turite apdoroti kiekvieną aplanką po vieną. Tai per daug nuobodu. Taigi, toliau mes išmokysime jus daug patogesnio metodo.

Išvalykite visas spalvų kategorijas visuose „Outlook“ elementuose

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ sparčiuosius klavišus, kad suaktyvintumėte VBA redaktorių.
3. Rodomame naujame lange nukopijuokite ir įklijuokite šį VBA kodą į tuščią modulį arba 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. Po to perkelkite žymeklį į pirmąją paprogramę ir paspauskite klavišo „F5“ mygtuką, kad suaktyvintumėte makrokomandą.
5. Kai gaunate raginimą „Baigta“, tai reiškia, kad visos spalvų kategorijos buvo pašalintos iš visų „Outlook“ elementų.
6. Šiuo metu, neatsižvelgiant į el. laiškus, susitikimus, užduotis, kontaktus ar pastabas jūsų „Outlook“, visoms joms neturi būti absoliučiai priskirtų spalvų kategorijų.

Išspręskite rimtas „Outlook“ problemas

Galbūt žinojote, kad „Outlook“ yra iš anksto įdiegta su įtaisytuoju taisymo įrankiu – Scanpst.exe. Ar kada nors bandėte tai anksčiau? Tiesą sakant, jis yra pakankamai galingas, kad išspręstų mažas problemas, susijusias su jūsų Outlook PST failu. Tačiau jei problema yra labai rimta, pavyzdžiui, labai sugadinta Outlook failą, vidinė programa nepadarys efektų. Esant tokiai situacijai, turite grįžti prie aukščiausios kokybės išorinio įrankio, pvz DataNumen Outlook Repair, kuri dėl didelio PST atsigavimo nusileido savo varžovams.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server nustatyti ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com