Az összes színkategória kötegelt törlése az Outlook összes elemében

Bizonyos célokból érdemes lehet a színkategóriákat a nulláról elkezdeni használni az Outlookban. Ezért érdemes lehet az összes színkategóriát törölni az összes Outlook-elemből. Ebben a cikkben bemutatunk egy hatékony módszert ennek elérésére.

Például a színkategóriák újjáépítéséhez törölje az Outlook összes meglévő színkategóriáját. A törlés után azonban előfordulhat, hogy ezek a kategóriák továbbra is hozzá vannak kapcsolva az Outlook-elemekhez. Az egyetlen változás, hogy a kategóriák elveszítik eredeti színüket, fehéren jelennek meg. Ilyen körülmények között reménykedhet abban, hogy minden színkategóriát törölni fog az összes elemből.

Ha ezt egy mappában lévő összes elemre szeretné megtenni, egyszerűen nyomja meg a „Ctrl + A” gombot az összes elem kiválasztásához, kattintson a jobb gombbal, és válassza a „Kategorizálás” és az „Összes kategória törlése” lehetőséget a helyi menüből. De ilyen módon minden mappát egyenként kell feldolgoznia. Ez túl unalmas. Tehát a következőkben egy sokkal kényelmesebb módszert tanítunk meg.

Az összes színkategória kötegelt törlése az Outlook összes elemében

1. Kezdésként indítsa el az Outlook alkalmazást.
2. Ezután nyomja meg az „Alt + F11” billentyűparancsokat a VBA-szerkesztő elindításához.
3. A megjelenő új ablakban másolja ki és illessze be a következő VBA-kódot egy üres modulba vagy projektbe.

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. Ezután vigye a kurzort az első szubrutinba, majd nyomja meg az „F5” gombot a makró aktiválásához.
5. Amikor megjelenik a „Befejezve” üzenet, az azt jelenti, hogy az összes színkategóriát törölték az Outlook összes eleméből.
6. Jelenleg az Outlookban lévő e-mailek, találkozók, feladatok, névjegyek vagy jegyzetek nélkül mindegyikhez nem kell feltétlenül hozzárendelni a színkategóriákat.

Súlyos Outlook-problémák megoldása

Talán tudta, hogy az Outlook előre telepítve van egy beépített javítóeszközzel – Scanpst.exe. Próbáltad már valaha? Hogy őszinte legyek, elég erős ahhoz, hogy kezelje az Outlook PST-fájljával kapcsolatos kisebb problémákat. Ha azonban a probléma jelentősen súlyos, például rosszul sérült Outlook fájlt, a belső segédprogram nem hoz hatást. Ebben a helyzetben vissza kell dőlni egy tip-top külső eszközhöz, mint pl DataNumen Outlook Repair, amely a magas PST felépülése miatt átvette a vállát riválisán.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server erősít és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com