Hur man använder olika teckensnittsfärger automatiskt för att svara och vidarebefordra e-post med Outlook VBA

Outlook-lösningar September 29, 2025

Som standard kan du inte låta Outlook använda olika teckensnittsfärger automatiskt för att svara och vidarebefordra e-post. Om du har ett sådant krav kan du läsa den här sidanost att lära sig ett smart tillvägagångssätt.

Outlook tillåter dig bara att ange ett teckensnitt som används för att både svara och vidarebefordra e-post. Du kan gå till "Arkiv"> "Alternativ". I "Outlook-alternativ", vänd dig sedan till fliken "Mail" och klicka på "Stationery and Fonts ...". I det efterföljande fönstret kan du se "Font" -knappen i "Svara eller vidarebefordra meddelanden". Klicka på den och sedan kan du ställa in en specifik teckensnittsfärg för att svara och vidarebefordra e-post.

Ändra teckensnitt för att svara eller vidarebefordra meddelanden

Men många användare hoppas kunna använda olika teckensnittsfärger för att svara eller vidarebefordra e-post. Även om Outlook inte ger några direkta funktioner för detta, kan det fortfarande realiseras med VBA-kod. Läs vidare för att få en sådan bit av VBA-kod.

Använd automatiskt olika teckensnittsfärger för att svara och vidarebefordra e-post

  1. För somtarstarta Outlook-applikationen.
  2. Starta sedan VBA-redigeraren med hänvisning till “Hur du kör VBA-kod i din Outlook".
  3. Därefter, i enlighet med “Hur man lägger till ett objekt Library Referens i VBA“, Lägg till hänvisningen till“ MS Word Object Library ”.
  4. Kopiera sedan följande kod till “ThisOutlookSession” -projektet.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

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

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim objReply As Outlook.MailItem
    Dim objReplyDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReply = objMail.Reply
    objReply.Display
    Set objReplyDoc = objReply.GetInspector.WordEditor
    objReplyDoc.Range(0, 0).Select
    Set objDocSelection = objReplyDoc.Application.Selection
    'Use "Pink" font in "Reply"
    objDocSelection.Font.ColorIndex = wdPink
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objReplyAllDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReplyAll = objMail.ReplyAll
    objReplyAll.Display
    Set objReplyAllDoc = objReplyAll.GetInspector.WordEditor
    objReplyAllDoc.Range(0, 0).Select
    Set objDocSelection = objReplyAllDoc.Application.Selection
    'Use "Green" font in "Reply All"
    objDocSelection.Font.ColorIndex = wdGreen
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objForward As Outlook.MailItem
    Dim objForwardDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objForward = objMail.Forward
    objForward.Display
    Set objForwardDoc = objForward.GetInspector.WordEditor
    objForwardDoc.Range(0, 0).Select
    Set objDocSelection = objForwardDoc.Application.Selection
    'Use "Blue" font in Forward
    objDocSelection.Font.ColorIndex = wdBlue
End Sub

VBA-kod - Använd automatiskt olika teckensnittsfärger för att svara och vidarebefordra e-post

  1. Efter det, restart Outlook för att aktivera detta makro.
  2. Slutligen kan du prova.
  • Välj eller öppna ett e-postmeddelande.
  • Klicka sedan på “Svara” -knappen. I svaret på e-post kan du skriva några ord i kroppen. Teckensnittsfärgen måste vara rosa."Rosa" typsnitt i "Svara"
  • Eller klicka på “Svara alla” -knappen. I den nya "svara på alla" e-postmeddelanden matar du in ord i brödtexten. Fontfärgen är säkert grön."Grönt" teckensnitt i "Svara alla"
  • På samma sätt klickar du på knappen "Vidarebefordra". I vidarebefordran visas de nya orden i blått."Blå" typsnitt i "Framåt"

Använd tillförlitlig programvara

I händelse av Outlook korruptionMost användare brukar tillgripa Outlook-programvara för återställning. Det finns en stor mängd sådana program tillgängliga på marknaden. Och några av dem är till och med gratis. Ändå borde du vara uppmärksam på dem från okända källor genom att de kan göra det aktuella fallet värre och värre. Du borde ta hjälp av ett pålitligt och erfaret verktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.