Hvordan erstatte fargekategorien til et Outlook-element med VBA

Outlook-løsninger September 29, 2025

Hvis du vil erstatte fargekategorien til et Outlook-element, må du fjerne den opprinnelige siden en ny kategori tildeles. Derfor vil vi i denne artikkelen lære deg hvordan du automatiserer dette via VBA.

Den primære grunnen til at vi bruker fargekategorier i Outlook er for å bedre klassifisere og administrere Outlook-elementene dine. I tillegg tillater Outlook oss å tildele én eller flere fargekategorier til ett element. Imidlertid kan for mange kategorier som er tildelt et enkelt element noen ganger rote opp klassifiseringsreglene dine. Derfor ønsker mange brukere å erstatte fargekategorien i stedet for å overlappe kategorier. Her vil vi eksponere en effektiv måte for deg.

Erstatt fargekategorien til et Outlook-element med VBA

Erstatt fargekategorien til et Outlook-element

  1. Start Outlook-applikasjonen helt i begynnelsen.
  2. Bytt deretter til «Utvikler»-fanen og klikk på «Visual Basic»-knappen eller trykk på «Alt + F11»-tastenastene.
  3. Deretter går du inn i "Microsoft Visual Basic for Applications"-vinduet.
  4. På dette tidspunktet bør du dobbeltklikke på "ThisOutlookSession" -prosjektet på venstre side for å åpne det.
  5. Kopier deretter følgende VBA-koder inn i dette prosjektvinduet.
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-kode - Erstatt fargekategorien til et Outlook-element

  1. Etter det bør du tilordne et digitalt sertifikat til denne nye makroen.
  2. Senere må du sjekke Outlook-makroinnstillingene for å sikre at signerte makroer er aktivert.
  3. Til slutt bør du starte Outlook på nytt for å aktivere det nye VBA-prosjektet.
  4. Fra nå av, hver gang du tilordner en ny kategori til et element, vil den forrige automatisk bli fjernet.

Håndter Nettlesome Outlook-problemer

Siden Outlook er utsatt for feil og korrupsjon, vil du støte på ulike problemer i Outlook. Derfor bør du ta tilstrekkelig forsiktighet. For eksempel er det tilrådelig å ta regelmessige sikkerhetskopier av PST-filen din. Dessuten bør du få tak i en kraftig PST-fiks verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette Sql Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.