Kā partijā notīrīt visas krāsu kategorijas visos Outlook vienumos

Dažiem mērķiem jūs vēlaties sākt lietot krāsu kategorijas savā programmā Outlook no nulles. Tāpēc jūs vēlaties notīrīt visas krāsu kategorijas visos Outlook vienumos. Šajā rakstā mēs iepazīstināsim ar efektīvu veidu, kā to iegūt.

Piemēram, lai atjaunotu krāsu kategorijas, programmā Outlook izdzēšat visas esošās krāsu kategorijas. Bet pēc dzēšanas jūs varat atrast, ka šīs kategorijas joprojām ir pievienotas Outlook vienumiem. Vienīgās izmaiņas ir tādas, ka kategorijas zaudē sākotnējās krāsas, parādot tās baltā krāsā. Šajā gadījumā jūs varat cerēt notīrīt visas krāsu kategorijas visos priekšmetos.

Lai to izdarītu visiem vienas mapes vienumiem, varat vienkārši nospiest taustiņu “Ctrl + A”, lai atlasītu visus vienumus, ar peles labo pogu noklikšķiniet un konteksta izvēlnē izvēlieties “Kategorizēt” un “Notīrīt visas kategorijas”. Bet šādā veidā jums ir jāapstrādā katra mape pa vienam. Tas ir pārāk nogurdinoši. Tātad turpmāk mēs iemācīsim jums daudz ērtāku metodi.

Sērija Notīrīt visas krāsu kategorijas visos Outlook vienumos

1. Lai sāktu, palaidiet programmu Outlook.
2. Pēc tam nospiediet taustiņu īsinājumtaustiņus “Alt + F11”, lai aktivizētu VBA redaktoru.
3. Parādot jauno logu, nokopējiet un ielīmējiet šo VBA kodu tukšā modulī vai 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. Pēc tam ievietojiet kursoru pirmajā apakšprogrammā un pēc tam nospiediet taustiņu “F5”, lai aktivizētu makro.
5. Kad tiek parādīta uzvedne “Pabeigts”, tas nozīmē, ka visas krāsu kategorijas ir notīrītas no visiem Outlook vienumiem.
6. Patlaban neatkarīgi no jūsu e-pasta ziņojumiem, tikšanās, uzdevumiem, kontaktiem vai piezīmēm programmā Outlook visām tām nedrīkst būt absolūti piešķirtas krāsu kategorijas.

Atrisiniet nopietnas Outlook problēmas

Varbūt jūs zināt, ka programma Outlook ir iepriekš instalēta ar iebūvētu labošanas rīku - Scanpst.exe. Vai esat kādreiz to izmēģinājis? Ja godīgi, tas ir pietiekami spēcīgs, lai tiktu galā ar nelielām nepatikšanām, kas saistītas ar jūsu Outlook PST failu. Tomēr, ja jautājums ir ievērojami nopietns, piemēram, slikti bojāta Outlook failu, iekšējā lietderība neradīs efektus. Šajā situācijā jums ir jāatgriežas pie ārējā instrumenta, kas atrodas uz augšu, piemēram, DataNumen Outlook Repair, kas ir pārcēlies pāri konkurentiem, pateicoties lielai PST atkopšanai.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server noteikts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar