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

După ce ștergeți o categorie de culoare, aceasta se va afișa în continuare în elementele Outlook, cărora le-ați atribuit categoria. Acest post vă va învăța cum să eliminați rapid astfel de categorii de culori din elementele Outlook.

Outlook permite utilizatorilor să adauge și să șteargă categorii de culori după bunul plac. Cu toate acestea, deși ștergeți o categorie de culoare, dacă ați atribuit-o mai multor elemente Outlook înainte, această categorie de culoare nu va fi eliminată din articole în consecință. Acum că ați șters această categorie de culori, ceea ce înseamnă că este inutilă, de ce să nu o eliminați și din elementele Outlook? Acum, în cele ce urmează, vă vom învăța o metodă rapidă de a o realiza.

Eliminați în lot categoriile de culori șterse din toate articolele Outlook

1. De la bun început, staraplicația dvs. Outlook ca de obicei.
2. Apoi, după accesarea ferestrei principale Outlook, puteți apăsa butoanele tastei „Alt + F11”, care va afișa fereastra „Microsoft Visual Basic pentru aplicații”.
3. În noul ecran, trebuie să găsiți și să deschideți un modul neutilizat.
4. Apoi, copiați următorul cod VBA în acest modul.

Dim objSourceStore As Outlook.Store Dim strMasterCategoryList As String Sub DeleteAllColorCategories_ThatAreNotInMasterCategoryList() Dim objSourcePSTFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Specificați fișierul PST sursă Outlook Set objSourceStore = Application.Session.Stores.Item("John Smith") 'Obțineți toate categoriile de culoare ale acestui fișier PST pentru fiecare obiect În objSourceStore.Categories strMasterCategoryList = objCategory.Name & ", " & strMasterCategoryList Următorul Set objSourcePSTFile = Outlook.Application.Session.folders("John Smith") Pentru fiecare objFolder În objSourcePSTFolders Subfolders (SubFolders ProcessFolders) ByVal objCurrentFolder As Outlook.Folder) Dim objVariant As Variant Dim strCategories As String Dim varArray Ca Variant Dim i, n As Long For i = objCurrentFolder.Items.count To 1 Step -1 Set objVariant = objCurrentFolder.Items.Item(i) Dacă objVariant.Categories <> "" Atunci strCategories = objVariant.Categories 'Get all categorii de culori ale acestui articol varArrază = Split(objVariant.Categories, ",") Pentru n = 0 La UBound(varArray) 'Verificați dacă fiecare categorie de culoare a acestui articol este în lista de categorii principale If InStr(1, strMasterCategoryList, Trim(varArray(n))) = 0 Apoi „Dacă nu, eliminați această categorie Apelați RemoveCategory(objVariant, varArray(n)) objVariant.Save End If Next n End If Next i 'Procesează toate subfolderele în mod recursiv Dacă objCurrentFolder.folders.count > 0 Atunci pentru fiecare objSubfolder din objCurrentFolder.folders Apelați ProcessFolders(objSubfolder) Next End If End Subfolder( Subfolder) objCurrentItem, strCategory) Dim varNewArray As Variant varNewArray = Split(objCurrentItem.Categories, ",") If UBound(varNewArray) >= 0 Then For i = 0 To UBound(varNewArray) 'Găsiți categoria de culoare specifică If Trim(varNewArray(i )) = strCategory Then 'Delete it from this item varNewArray(i) = "" 'Reconstruiți categoriile de culoare ale acestui articol objCurrentItem.Categories = Join(varNewArray, ",") Exit Sub End If Next End If End Sub

5. După aceea, ar trebui să schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
6. În cele din urmă, puteți rula această macrocomandă. Doar apăsați tasta F5 în acest ecran macro sau faceți clic pe pictograma „Run” din bara de instrumente.
7. După ce macro-ul se termină de rulat, veți vedea că toate categoriile de culori care au fost șterse au fost eliminate din elementele Outlook.

Outlook este predispus la corupție

Dacă sunteți un utilizator obișnuit al Outlook, poate că ați întâmpinat o varietate de probleme în Outlook. În general, pentru a remedia micile erori care implică fișierul PST, puteți recurge doar la utilitarul de remediere încorporat - Scanpst. Dar, dacă suferiți probleme grave, cum ar fi fișierul PST grav compromis, nu aveți de ales decât să vă ajutați de un instrument extern puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

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