OutlookVBAで電子メールの返信と転送に異なるフォントの色を自動的に使用する方法

Outlookソリューション 2025 年 9 月 29 日

既定では、Outlookが電子メールの返信と転送に異なるフォントの色を自動的に使用するようにすることはできません。したがって、そのような要件がある場合は、このpを読むことができますost スマートなアプローチを学ぶために。

Outlookでは、電子メールの返信と転送の両方に使用するフォントのみを指定できます。「ファイル」>「オプション」に移動できます。次に、「Outlookのオプション」で「メール」タブに移動し、「ひな形とフォント…」ボタンをクリックします。次のウィンドウで、「メッセージの返信または転送」に「フォント」ボタンが表示されます。それをクリックすると、メールの返信と転送に特定のフォントの色を設定できます。

ただし、多くのユーザーは、電子メールの返信または転送に異なるフォントの色を使用することを望んでいます。 Outlookはこのための直接的な機能を提供していませんが、それでもVBAコードで実現できます。さて、そのようなVBAコードを入手するために読んでください。

メールの返信と転送に異なるフォントの色を自動的に使用

としてtart、Outlookアプリケーションを起動します。
次に、「」を参照してVBAエディターをトリガーします。OutlookでVBAコードを実行する方法"
次に、「オブジェクトライブラリを追加する方法raryVBAでの参照」、「MS Word ObjectLib」への参照を追加しますrary」。
続いて、次のコードを「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

その後、解像度tartOutlookでこのマクロをアクティブにします。
最後に、試してみることができます。

メールを選択または開きます。
次に、「返信」ボタンをクリックします。メールに返信する際に、本文にいくつかの単語を入力できます。フォントの色はピンクでなければなりません。
または、「全員に返信」ボタンをクリックしてください。新しい「全員に返信」メールでは、本文に単語を入力します。フォントの色は確かに緑です。
同様に、「進む」ボタンをクリックします。転送メールでは、新しい単語が青色で表示されます。

信頼できるソフトウェアに頼る

の場合には Outlookの破損、Most ユーザーはOutlookの回復ソフトウェアに頼る傾向があります。市場にはそのようなプログラムがたくさんあります。そしてそれらのいくつかは無料ですらあります。それにもかかわらず、あなたはそれらが現在のケースをますます悪化させるかもしれないという点で未知のソースからのものに注意するべきです。あなたは次のような信頼できる経験豊富なツールを利用する必要があります DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したSQL と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com