Ako vymeniť farebnú kategóriu položky programu Outlook za VBA

Ak chcete nahradiť farebnú kategóriu položky programu Outlook, budete musieť pôvodnú odstrániť, pretože je priradená nová kategória. V tomto článku vás teda naučíme, ako to automatizovať pomocou VBA.

Hlavným dôvodom, prečo v programe Outlook používame kategórie farieb, je lepšia klasifikácia a správa položiek programu Outlook. Navyše, Outlook nám umožňuje priradiť jednej alebo viacerým farebným kategóriám k jednej položke. Príliš veľa kategórií priradených k jednej položke však môže niekedy zamiešať vaše pravidlá klasifikácie. Mnoho používateľov preto chce namiesto prekrytia kategórií nahradiť farebnú kategóriu. Tu vám vystavíme efektívny spôsob.

Vymeňte farebnú kategóriu položky programu Outlook

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom prepnite na kartu „Vývojár“ a kliknite na tlačidlo „Visual Basic“ alebo stlačte klávesové skratky „Alt + F11“.
3. Ďalej vstúpite do okna „Microsoft Visual Basic for Applications“.
4. V tomto okamihu by ste mali dvakrát kliknúť na projekt „ThisOutlookSession“ na ľavej strane, aby ste ho otvorili.
5. Následne skopírujte nasledujúce kódy VBA do tohto okna projektu.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

6. Potom by ste tomuto novému makru mali priradiť digitálny certifikát.
7. Neskôr budete musieť skontrolovať nastavenia makier programu Outlook, aby ste sa ubezpečili, že sú podpísané makrá povolené.
8. Nakoniec by ste mali reštartovať Outlook, aby ste aktivovali nový projekt VBA.
9. Odteraz bude vždy, keď k položke priradíte novú kategóriu, automaticky odstránená predchádzajúca.

Riešenie nepríjemných problémov s programom Outlook

Pretože je Outlook náchylný na chyby a poškodenia, vo vašom Outlooku sa stretnete s rôznymi problémami. Preto by ste mali byť dostatočne opatrní. Napríklad je vhodné pravidelne si zálohovať súbory PST. Mali by ste sa navyše zmocniť mocného Oprava PST nástroj, ako napr 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 zotaviť sa Sql Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S