Kako zamijeniti kategoriju boja Outlook stavke s VBA

Ako želite zamijeniti kategoriju boja Outlook stavke, morat ćete ukloniti izvornu jer se dodjeljuje nova kategorija. Stoga ćemo vas u ovom članku naučiti kako to automatizirati putem VBA.

Primarni razlog zašto koristimo kategorije boja u Outlooku je bolja klasifikacija i upravljanje vašim Outlook stavkama. Osim toga, Outlook nam dopušta da jednoj stavci dodijelimo jednu ili više kategorija boja. Međutim, previše kategorija dodijeljenih jednoj stavci ponekad može zatrpati vaša pravila klasifikacije. Stoga mnogi korisnici žele zamijeniti kategoriju boja umjesto preklapanja kategorija. Ovdje ćemo vam predstaviti učinkovit način.

Zamijenite kategoriju boja Outlook stavke

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim prijeđite na karticu "Developer" i kliknite gumb "Visual Basic" ili pritisnite tipke prečaca "Alt + F11".
3. Zatim ćete ući u prozor "Microsoft Visual Basic za aplikacije".
4. U ovom trenutku trebali biste dvaput kliknuti na projekt "ThisOutlookSession" na lijevoj strani da biste ga otvorili.
5. Nakon toga kopirajte sljedeće VBA kodove u ovaj prozor projekta.

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. Nakon toga ovom novom makrou trebate dodijeliti digitalni certifikat.
7. Kasnije trebate provjeriti postavke Outlook makronaredbi kako biste bili sigurni da su potpisane makronaredbe omogućene.
8. Na kraju biste trebali ponovno pokrenuti Outlook kako biste aktivirali novi VBA projekt.
9. Od sada, svaki put kada stavci dodijelite novu kategoriju, prethodna će se automatski ukloniti.

Riješite neugodne probleme s perspektivom

Budući da je Outlook sklon pogreškama i korupciji, naići ćete na razne probleme u svom Outlooku. Stoga biste trebali biti dovoljno oprezni. Na primjer, preporučljivo je redovito izrađivati ​​sigurnosne kopije za svoju PST datoteku. Štoviše, trebali biste se dočepati moćnog PST popravak alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti se Sql Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com