Kuidas automaatselt kasutada erinevaid fondivärve meilidele vastamiseks ja nende edastamiseks Outlook VBA abil

Outlooki lahendused September 29, 2025

Vaikimisi ei saa te lubada Outlooki automaatsel e-kirjadele vastamiseks ja edastamiseks erinevaid fondivärve. Seega, kui teil on selline nõue, võite lugeda seda lkost õppida nutikat lähenemist.

Outlook lubab teil määrata ainult e-kirjadele vastamiseks ja edastamiseks kasutatava fondi. Võite minna "Fail" > "Valikud". Seejärel avage "Outlooki suvandites" vahekaart "Mail" ja klõpsake nuppu "Kirjatarbed ja fondid ...". Järgmises aknas näete jaotises "Sõnumitele vastamine või edastamine" nuppu "Font". Klõpsake seda ja seejärel saate e-kirjadele vastamiseks ja edastamiseks määrata kindla fondivärvi.

Muutke kirjadele vastamisel või sõnumite edastamisel fonti

Paljud kasutajad loodavad aga e-kirjadele vastamiseks või nende edastamiseks kasutada erinevaid fondivärve. Kuigi Outlook ei paku selle jaoks otseseid funktsioone, saab seda siiski VBA-koodi abil realiseerida. Nüüd lugege edasi, et saada selline VBA-koodi tükk.

Kasutage e-kirjadele vastamiseks ja nende edastamiseks automaatselt erinevaid fondivärve

  1. Sest nagutart, käivitage Outlooki rakendus.
  2. Seejärel käivitage VBA redaktor viitega "Kuidas Outlookis VBA-koodi käivitada".
  3. Järgmiseks vastavalt "Kuidas lisada objektiliigrary Viide VBA-s“, lisage viide „MS Word Object Library ”.
  4. Seejärel kopeerige järgmine kood projekti "ThisOutlookSession".
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 kood – erinevate fondivärvide automaatne kasutamine meilidele vastamiseks ja nende edastamiseks

  1. Pärast seda restart Outlook selle makro aktiveerimiseks.
  2. Lõpuks võite proovida.
  • Valige või avage meil.
  • Seejärel klõpsake nuppu "Vasta". Meilile vastates võite sisestada mõned sõnad kehasse. Kirjavärv peab olema roosa.Font "Pink" jaotises "Vastus"
  • Või klõpsake nuppu "Vasta kõigile". Sisestage uues kirjas "vastan kõigile" sõnad kehasse. Kirjavärv on kindlasti roheline."Roheline" font jaotises "Vasta kõigile"
  • Samamoodi klõpsake nuppu "Edasta". Edastuskirjas kuvatakse uued sõnad sinisena."Sinine" font valikus "Edasi"

Kasutage usaldusväärset tarkvara

Juhul kui Outlooki korruptsioon, Most kasutajad kipuvad kasutama Outlooki taastetarkvara. Turul on saadaval suur hulk selliseid programme. Ja mõned neist on isegi tasuta. Sellegipoolest peaksite teadmata allikatest pärit isikute suhtes ettevaatlik olema, kuna need võivad praeguse juhtumi hullemaks ja hullemaks muuta. Peaksite kasutama usaldusväärset ja kogenud tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

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

Kommentaarid on suletud.