Kako serijski obrisati sve kategorije boja u svim Outlook stavkama

Iz nekih razloga, želite početi koristiti kategorije boja od nule u Outlooku. Stoga biste željeli obrisati sve kategorije boja u svim Outlook stavkama. U ovom članku ćemo predstaviti efikasan način da to postignete.

Na primjer, da biste ponovo izgradili kategorije boja, izbrišete sve postojeće kategorije boja u Outlooku. Ali, nakon brisanja, možda ćete otkriti da su ove kategorije i dalje vezane uz Outlook stavke. Jedina promjena je da kategorije gube svoje originalne 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” da odaberete sve stavke, kliknite desnim klikom i odaberite “Kategorizuj” i “Obriši sve kategorije” iz kontekstnog izbornika. Ali, na ovaj način, morate obraditi svaki folder jedan po jedan. Previše je zamorno. Dakle, u nastavku ćemo vas naučiti mnogo praktičnijoj metodi.

Grupno brisanje svih kategorija boja u svim stavkama programa Outlook

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pritisnite tasterske prečice „Alt + F11“ da biste pokrenuli VBA editor.
3. U novom prozoru koji se prikazuje, kopirajte i zalijepite sljedeći VBA kod u prazan modul ili projekat.

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 u prvi potprogram, a zatim pritisnite dugme “F5” da pokrenete makro.
5. Kada dobijete prompt „Završeno“, to znači da su sve kategorije boja obrisane iz svih Outlookovih stavki.
6. Trenutno, 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 unapred instaliran sa ugrađenim alatom za popravku – Scanpst.exe. Jeste li ga ikada prije probali? Da budem iskren, dovoljno je moćan da se nosi sa malim problemima koji uključuju vašu Outlook PST datoteku. Međutim, ako je problem prilično ozbiljan, kao što je loš oštećen Outlook fajl, interni uslužni program neće praviti efekte. U ovoj situaciji, morate se osloniti na vrhunski vanjski alat, kao što je DataNumen Outlook Repair, koji je nadmašio svoje rivale zbog svog visokog PST oporavka.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com