Kako paketno počistiti vse barvne kategorije v vseh postavkah v Outlooku

Zaradi nekaterih razlogov želite v Outlooku začeti uporabljati barvne kategorije iz nič. Zato želite počistiti vse barvne kategorije v vseh Outlookovih elementih. V tem članku bomo predstavili učinkovit način za to.

Če želite na primer obnoviti barvne kategorije, v Outlooku izbrišete vse obstoječe barvne kategorije. Toda po izbrisu boste morda ugotovili, da so te kategorije še vedno priložene elementom Outlooka. Edina sprememba je, da kategorije izgubijo svoje prvotne barve in se prikažejo v beli barvi. V teh okoliščinah lahko upate, da boste izbrisali vse barvne kategorije v vseh postavkah.

Če želite to narediti za vse elemente v eni mapi, lahko samo pritisnete »Ctrl + A«, da izberete vse elemente, z desno miškino tipko in v kontekstnem meniju izberete »Kategoriziraj« in »Počisti vse kategorije«. Toda na ta način morate vsako mapo obdelati eno za drugo. Preveč je dolgočasno. V nadaljevanju vas bomo naučili veliko bolj priročne metode.

Paketno počisti vse barvne kategorije v vseh postavkah v Outlooku

1. Za začetek zaženite aplikacijo Outlook.
2. Nato pritisnite bližnjične tipke “Alt + F11”, da sprožite urejevalnik VBA.
3. V novem oknu kopirajte in prilepite naslednjo kodo VBA v prazen modul ali 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 tem postavite kazalko v prvo podprogram in nato pritisnite tipko “F5”, da sprožite makro.
5. Ko prejmete poziv »Dokončano«, to pomeni, da so bile vse barvne kategorije odstranjene iz vseh Outlookovih elementov.
6. Trenutno ne glede na e-pošto, sestanke, naloge, stike ali zapiske v Outlooku vsi ne smejo imeti popolnoma dodeljenih barvnih kategorij.

Odpravite resne težave z Outlookom

Morda ste vedeli, da je Outlook prednameščen z vgrajenim orodjem za popravilo - Scanpst.exe. Ste že kdaj poskusili? Če sem iskren, je dovolj zmogljiv za spopadanje z majhnimi težavami, ki vključujejo datoteko Outlook PST. Če pa je težava precej resna, na primer slaba poškodovan Outlook datoteka, interni pripomoček ne bo imel učinkov. V tem primeru se morate vrniti na zunanje orodje z vrhom, kot je npr DataNumen Outlook Repair, ki se je zaradi visokega izkoristka PST prekrižal s tekmeci.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server fiksna in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com