Slik setter du automatisk samme fargekategori til alle e-poster i samme samtale i Outlook

Outlook-løsninger September 29, 2025

Hvis du vil angi samme fargekategori til alle e-poster i samme samtale, kan du bruke VBA-koden som er introdusert i denne artikkelen for å realisere det.

For å bedre klassifisere og administrere e-poster, kan du være vant til å bruke fargekategorier. I tillegg, hvis du har mange samtaler, nemlig e-posttråder i Outlook, for bedre å identifisere e-postene i en samtale, kan det være lurt å bruke samme fargekategorier på alle e-postene i samme samtale. Uten tvil er det ganske kjedelig å manuelt sette fargekategorien til en e-posttråd. Derfor, hvorfor lar du ikke Outlook automatisk tildele samme fargekategori til resten når du kategoriserer en e-post i en samtale? Du kan bruke VBA-koden i det følgende for å oppnå det uten å svette.

Angi automatisk samme fargekategori til alle e-poster i samme samtale i Outlook

Angi automatisk samme fargekategori til alle e-poster i samme samtale

  1. Helt i begynnelsen bør du starte Outlook-applikasjonen.
  2. Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
  3. Deretter får du tilgang til Outlook VBA-redigeringsvinduet, der du bør finne og åpne "ThisOutlookSession" -prosjektet.
  4. Kopier deretter følgende VBA-kode inn i dette prosjektvinduet.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim objConversation As Outlook.Conversation
    Dim objStore As Outlook.Store
    Dim strCategories As String
 
    'When assigning color categories to the currently selected mail
    If Name = "Categories" Then
       strCategories = objMail.Categories
 
       Set objStore = objMail.parent.Store
 
       If objStore.IsConversationEnabled Then
          'Get the conversation
          Set objConversation = objMail.GetConversation
 
          If Not (objConversation Is Nothing) Then
             'Assign the same color categories to the mails in this conversation
             objConversation.SetAlwaysAssignCategories strCategories, objStore
          End If
       End If
    End If
End Sub

VBA-kode - Angi automatisk samme fargekategori til alle e-poster i samme samtale

  1. Etter det bør du signere denne koden.
  2. Senere må du endre Outlook-makrosikkerhetsinnstillingene for å tillate digitalt signerte makroer.
  3. Etter hvert kan du restart Outlook-programmet for å aktivere denne makroen.
  4. Fra nå av, hver gang du tilordner en fargekategori til én e-post i en samtale, vil Outlook automatisk tildele den samme til resten av e-postene i denne samtalen.

Ta vare på PST-filen din med forsiktighet

Som Word-dokumenter eller Excel-regneark, er PST-filer de samme sårbare. Derfor, for å forhindre PST data korrupsjon og unngå vanskelig PST reparasjon, bør du fortsette å ta vare på PST-filen din hele tiden. Du må for eksempel passe deg for din daglige håndtering i Outlook og sikkerhetskopiere PST-filen regelmessig. I tillegg, hvis mulig, kan du forberede et ypperlig verktøy, som f.eks DataNumen Outlook Repair på forhånd.

Forfatterintroduksjon:

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

Kommentarer er stengt.