Ako je možné hromadne odstrániť odstránené kategórie farieb zo všetkých položiek programu Outlook

Po odstránení farebnej kategórie sa bude naďalej zobrazovať v položkách Outlooku, ktorým ste kategóriu priradili. Toto post vás naučí, ako rýchlo odstrániť tieto kategórie farieb z položiek programu Outlook.

Outlook umožňuje používateľom ľubovoľne pridávať a odstraňovať farebné kategórie. Aj keď odstránite farebnú kategóriu, ak ste ju predtým priradili k mnohým položkám Outlooku, nebude táto farebná kategória z položiek príslušne odstránená. Teraz, keď ste odstránili túto farebnú kategóriu, čo znamená, že je to zbytočné, prečo ju neodstrániť aj z položiek Outlooku? Teraz vás v nasledujúcich textoch naučíme rýchlu metódu, ako si to uvedomiť.

Hromadne odstráňte odstránené kategórie farieb zo všetkých položiek programu Outlook

1. Hneď na úvod starAplikácia Outlook je obvyklá.
2. Potom po prístupe do hlavného okna programu Outlook môžete stlačiť klávesové skratky „Alt + F11“, čím sa zobrazí okno „Microsoft Visual Basic for Applications“.
3. Na novej obrazovke musíte nájsť a otvoriť nepoužívaný modul.
4. Ďalej skopírujte nasledujúci kód VBA do tohto modulu.

Dim objSourceStore As Outlook. Store Dim strMasterCategoryList As String Sub DeleteAllColorCategories_ThatAreNotInMasterCategoryList () Dim objSourcePSTFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Specify the source Outlook PST file Set objSourceStore = Application.Session.Stores.Item ("John Smith")' Získajte všetky farebné kategórie tohto PST súboru pre každú objCategory V objSourceStore.Categories strMasterCategoryList = objCategory.Name & "," & strMasterCategoryList Ďalšia sada objSourcePSTFile = Outlook.Application.Session.folders ("John Smith") pre každý objFolder V objSourcePSTFile.folders Volať ProcessFolders (objFolder) Ďalej (SubFaster) ByVal objCurrentFolder ako Outlook.Folder) Dim objVariant ako varianta Dim strCategories ako reťazec Dim varArray As Variant Dim i, n As Long For i = objCurrentFolder.Items.count To 1 Step -1 Set objVariant = objCurrentFolder Items.Item (i) If objVariant.Categories <> "" Then strCategories = objVariant.Categories 'Get all farebné kategórie tejto položky varArray = Split (objVariant.Categories, ",") Pre n = 0 Do UBound (varArray) 'Skontrolujte, či je každá farebná kategória tejto položky v zozname hlavných kategórií If InStr (1, strMasterCategoryList, Trim (varArray (n))) = 0 Potom 'Ak nie, odstráňte túto kategóriu Volajte RemoveCategory (objVariant, varArray (n)) objVariant.Save Koniec Ak Ďalej n Koniec Ak Ďalej i 'Spracujem všetky podpriečinky rekurzívne Ak objCurrentFolder.folders.count> 0 Potom Pre každý objSubfolder V objCurrentFolder.folders Volať ProcessFolders (objSubfolder) Ďalej Koniec Ak Koniec Sub Sub Odstrániť kategóriu ( objCurrentItem, strCategory) Dim varNewArray As Variant varNewArray = Split (objCurrentItem.Categories, ",") If UBound (varNewArray)> = 0 Then For i = 0 To UBound (varNewArray) 'Nájdite konkrétnu farebnú kategóriu If Trim (varNewArray (i )) = strCategory Potom 'Odstrániť z tejto položky varNewArray (i) = ""' Znovu vytvoriť farebné kategórie tejto položky objCurrentItem.Categories = Pripojiť sa (varNewArray, ",") Koniec Sub Koniec Ak Ďalej Koniec Ak Koniec Sub

5. Potom by ste mali zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
6. Nakoniec môžete toto makro spustiť. Stačí stlačiť kláves F5 na tejto obrazovke makra alebo kliknúť na ikonu „Spustiť“ na paneli nástrojov.
7. Po dokončení spustenia makra uvidíte, že všetky farebné kategórie, ktoré boli odstránené, boli odstránené z položiek programu Outlook.

Výhľad je náchylný na korupciu

Ak ste bežným používateľom Outlooku, možno ste sa vo svojom Outlooku stretli s rôznymi problémami. Všeobecne platí, že ak chcete opraviť malé chyby týkajúce sa súboru PST, stačí sa vrátiť k vstavanej pomôcke na opravu - Scanpst. Ak však trpíte vážnymi problémami, ako napríklad vážne narušený súbor PST, nezostáva vám nič iné, ako pomôcť externým silným nástrojom, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S