Jak dávkově vymazat všechny barevné kategorie ve všech položkách aplikace Outlook

Z některých důvodů chcete začít používat barevné kategorie v Outlooku od nuly. Proto byste chtěli vymazat všechny barevné kategorie ve všech položkách Outlooku. V tomto článku si představíme efektivní způsob, jak toho dosáhnout.

Chcete-li například znovu vytvořit kategorie barev, odstraníte všechny existující kategorie barev v aplikaci Outlook. Ale po odstranění můžete zjistit, že tyto kategorie jsou stále připojeny k položkám aplikace Outlook. Jedinou změnou je, že kategorie ztratí své původní barvy a zobrazí se v bílé barvě. Za těchto okolností můžete doufat, že vymažete všechny barevné kategorie ve všech položkách.

Chcete-li to provést pro všechny položky v jedné složce, stačí stisknout „Ctrl + A“ a vybrat všechny položky, kliknout pravým tlačítkem a z kontextové nabídky vybrat „Kategorizovat“ a „Vymazat všechny kategorie“. Ale tímto způsobem musíte zpracovat každou složku jednu po druhé. Je to příliš zdlouhavé. V následujícím textu vás tedy naučíme mnohem pohodlnější metodu.

Dávkové vymazání všech barevných kategorií ve všech položkách aplikace Outlook

1. Pro začátek spusťte aplikaci Outlook.
2. Poté stisknutím klávesových zkratek „Alt + F11“ spusťte editor VBA.
3. V zobrazeném novém okně zkopírujte a vložte následující kód VBA do prázdného modulu nebo projektu.

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. Poté umístěte kurzor do prvního podprogramu a stiskněte klávesu „F5“ pro spuštění makra.
5. Když se zobrazí výzva „Dokončeno“, znamená to, že všechny kategorie barev byly vymazány ze všech položek aplikace Outlook.
6. Bez ohledu na e-maily, schůzky, úkoly, kontakty nebo poznámky ve vašem Outlooku, všechny z nich nesmí mít absolutně přiřazeny žádné barevné kategorie.

Vyřešte vážné problémy s aplikací Outlook

Možná jste věděli, že Outlook je dodáván s předinstalovaným nástrojem pro opravu – Scanpst.exe. Už jste to někdy zkoušeli? Abych byl upřímný, je dostatečně výkonný, aby se vypořádal s malými problémy, které se týkají vašeho souboru PST aplikace Outlook. Pokud je však problém značně závažný, například špatně poškozený Outlook soubor, interní nástroj neprovede žádné efekty. V této situaci se musíte vrátit ke špičkovému externímu nástroji, jako je např DataNumen Outlook Repair, který se přehoupl přes své soupeře kvůli vysokému zotavení PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com