Sådan erstatter du farvekategorien for et Outlook-element med VBA

Outlook-løsninger September 29, 2025

Hvis du vil erstatte farvekategorien for et Outlook-element, skal du fjerne den originale, da en ny kategori tildeles. Derfor vil vi i denne artikel lære dig, hvordan du automatiserer dette via VBA.

Den primære grund til, at vi gør brug af farvekategorier i Outlook, er for bedre at klassificere og administrere dine Outlook-emner. Plus, Outlook tillader os at tildele en eller flere farvekategorier til et element. Men for mange kategorier, der er tildelt et enkelt element, kan nogle gange rod i dine klassifikationsregler. Derfor ønsker mange brugere at erstatte farvekategorien i stedet for at overlejre kategorier. Her vil vi afsløre en effektiv måde for dig.

Erstat farvekategorien for et Outlook-element med VBA

Erstat farvekategorien for et Outlook-element

  1. Start din Outlook-applikation lige fra starten.
  2. Skift derefter til fanen "Udvikler" og klik på knappen "Visual Basic" eller tryk på "Alt + F11" genvejstaster.
  3. Derefter åbner du vinduet “Microsoft Visual Basic for Applications”.
  4. På dette tidspunkt skal du dobbeltklikke på "ThisOutlookSession" -projektet i venstre side for at åbne det.
  5. Kopier derefter følgende VBA-koder til dette projektvindue.
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 - Erstat farvekategorien for et Outlook-element

  1. Derefter skal du tildele et digitalt certifikat til denne nye makro.
  2. Senere skal du kontrollere dine Outlook-makroindstillinger for at sikre, at signerede makroer er aktiveret.
  3. Til sidst skal du genstarte Outlook for at aktivere det nye VBA-projekt.
  4. Fra nu af, hver gang du tildeler en ny kategori til et element, vil den forrige automatisk blive fjernet.

Håndter Nettlesome Outlook-problemer

Da Outlook er tilbøjelig til fejl og korruption, vil du støde på forskellige problemer i din Outlook. Derfor bør du tage tilstrækkelig forsigtighed. For eksempel er det tilrådeligt at lave regelmæssige sikkerhedskopier til din PST-fil. Desuden burde du have fat i en kraftfuld PST-rettelse værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder genvinde Sql Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.