Kuidas asendada Outlooki üksuse värvikategooria VBA-ga

Outlooki lahendused September 29, 2025

Kui soovite Outlooki üksuse värvikategooriat asendada, peate uue kategooria määramisel algse eemaldama. Seega õpetame selles artiklis teile, kuidas seda VBA kaudu automatiseerida.

Peamine põhjus, miks me Outlookis värvikategooriaid kasutame, on teie Outlooki üksuste parem klassifitseerimine ja haldamine. Lisaks võimaldab Outlook meil ühele üksusele määrata ühe või mitu värvikategooriat. Liiga palju ühele üksusele määratud kategooriaid võib aga mõnikord teie klassifitseerimisreegleid segamini ajada. Seetõttu soovivad paljud kasutajad kategooriate katmise asemel asendada värvikategooria. Siin tutvustame teile tõhusat viisi.

Asendage Outlooki üksuse värvikategooria VBA-ga

Asendage Outlooki üksuse värvikategooria

  1. Käivitage kohe alguses oma Outlooki rakendus.
  2. Seejärel minge vahekaardile "Arendaja" ja klõpsake nuppu "Visual Basic" või vajutage klahvikombinatsiooni "Alt + F11".
  3. Järgmisena sisenete aknasse "Microsoft Visual Basic for Applications".
  4. Sel hetkel peaksite selle avamiseks topeltklõpsama vasakpoolses projektis "ThisOutlookSession".
  5. Seejärel kopeerige sellesse projekti aknasse järgmised VBA koodid.
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

VBA kood – Outlooki üksuse värvikategooria asendamine

  1. Pärast seda peaksite sellele uuele makrole digitaalse sertifikaadi määrama.
  2. Hiljem peate kontrollima oma Outlooki makro sätteid, et veenduda, et allkirjastatud makrod on lubatud.
  3. Lõpuks peaksite uue VBA-projekti aktiveerimiseks Outlooki taaskäivitama.
  4. Edaspidi iga kord, kui määrate üksusele uue kategooria, eemaldatakse eelmine automaatselt.

Käsitlege närbukaid Outlooki probleeme

Kuna Outlook on altid vigadele ja korruptsioonile, ilmnevad teie Outlookis mitmesugused probleemid. Seetõttu peaksite võtma piisavalt ettevaatusabinõusid. Näiteks on soovitatav oma PST-failist regulaarselt varukoopiaid teha. Veelgi enam, peaksite saama kätte võimsa PST parandus tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastuma Sql Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.