Cum să ștergeți în lot toate categoriile de culori din toate articolele Outlook

Din anumite motive, doriți să începeți să utilizați categoriile de culori de la zero în Outlook. Prin urmare, doriți să ștergeți toate categoriile de culori din toate elementele Outlook. În acest articol, vom prezenta o modalitate eficientă de a obține acest lucru.

De exemplu, pentru a reconstrui categoriile de culori, ștergeți toate categoriile de culori existente în Outlook. Dar, după ștergere, este posibil să descoperiți că aceste categorii sunt încă atașate elementelor Outlook. Singura modificare este că categoriile își pierd culorile originale, afișând în alb. În această circumstanță, puteți spera să ștergeți toate categoriile de culori din toate articolele.

Pentru a face acest lucru pentru toate articolele dintr-un dosar, puteți doar să apăsați „Ctrl + A” pentru a selecta toate elementele, faceți clic dreapta și alegeți „Categorizare” și „Ștergeți toate categoriile” din meniul contextual. Dar, în acest fel, trebuie să procesați fiecare folder unul câte unul. Este prea plictisitor. Deci, în cele ce urmează, vă vom învăța o metodă mult mai convenabilă.

Ștergeți în lot toate categoriile de culori din toate articolele Outlook

1. Pentru început, lansați aplicația Outlook.
2. Apoi, apăsați comenzile rapide „Alt + F11” pentru a declanșa editorul VBA.
3. În fereastra nouă care se afișează, copiați și inserați următorul cod VBA într-un modul sau proiect gol.

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. După aceea, plasați cursorul în prima subrutină și apoi apăsați butonul „F5” pentru a declanșa macro.
5. Când primiți solicitarea „Finalizat”, înseamnă că toate categoriile de culori au fost șterse din toate elementele Outlook.
6. În prezent, indiferent de e-mailuri, întâlniri, sarcini, contacte sau note din Outlook, toate acestea nu trebuie să aibă nicio categorie de culoare atribuite în mod absolut.

Rezolvați probleme grave de Outlook

Poate ați știut că Outlook vine preinstalat cu un instrument de reparare încorporat – Scanpst.exe. L-ai încercat vreodată? Pentru a fi sincer, este suficient de puternic pentru a face față micilor probleme care implică fișierul PST Outlook. Cu toate acestea, dacă problema este considerabil gravă, cum ar fi rău Outlook deteriorat fișier, utilitarul intern nu va produce efecte. În această situație, trebuie să recurgeți la un instrument extern de vârf, cum ar fi DataNumen Outlook Repair, care a trecut peste rivalii săi datorită recuperării ridicate a PST-ului.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server stabili și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com