Kako grupno izbrisati sve kategorije boja u svim stavkama programa Outlook

Iz nekih razloga želite početi koristiti kategorije boja od nule u Outlooku. Stoga biste željeli izbrisati sve kategorije boja u svim stavkama Outlooka. U ovom ćemo članku predstaviti učinkovit način za to.

Na primjer, kako biste ponovno izgradili kategorije boja, izbrišite sve postojeće kategorije boja u svom Outlooku. No, nakon brisanja, možda ćete otkriti da su te kategorije i dalje priložene stavkama programa Outlook. Jedina promjena je da kategorije gube svoje izvorne boje, prikazujući se u bijeloj boji. Pod ovim okolnostima, možete se nadati da ćete izbrisati sve kategorije boja u svim stavkama.

Da biste to učinili za sve stavke u jednoj mapi, možete samo pritisnuti "Ctrl + A" za odabir svih stavki, desnom tipkom miša kliknite i odaberite "Kategoriziraj" i "Izbriši sve kategorije" iz kontekstnog izbornika. Ali, na ovaj način, morate obraditi svaku mapu jednu po jednu. Previše je dosadno. Dakle, u nastavku ćemo vas naučiti mnogo praktičnijoj metodi.

Skupno brisanje svih kategorija boja u svim Outlook stavkama

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pritisnite prečace tipki “Alt + F11” za pokretanje VBA uređivača.
3. U novom prozoru koji se prikazuje kopirajte i zalijepite sljedeći VBA kod u prazan modul ili 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. Nakon toga, postavite kursor na prvu potprogram i zatim pritisnite tipku "F5" za pokretanje makronaredbe.
5. Kada dobijete upit "Dovršeno", to znači da su sve kategorije boja izbrisane iz svih Outlook stavki.
6. Trenutačno, bez obzira na e-poštu, sastanke, zadatke, kontakte ili bilješke u vašem Outlooku, svi oni ne smiju imati apsolutno dodijeljene kategorije boja.

Riješite ozbiljne probleme s Outlookom

Možda ste znali da Outlook dolazi unaprijed instaliran s ugrađenim alatom za popravak – Scanpst.exe. Jeste li ga ikada prije probali? Da budem iskren, dovoljno je moćan da se nosi s malim problemima koji uključuju vašu Outlook PST datoteku. Međutim, ako je problem znatno ozbiljan, kao što je loš oštećen Outlook datoteku, interni uslužni program neće imati učinak. U ovoj situaciji, morate se osloniti na tip-top vanjski alat, kao što je DataNumen Outlook Repair, koji je nadmašio svoje konkurente zbog visokog oporavka PST-a.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com