Outlookで電子メールを送信するときに、アカウントごとに異なるフォントを自動使用する方法

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

Outlookで複数の電子メールアカウントを構成していて、送信に使用されるさまざまな電子メールアカウントごとに、送信電子メールでさまざまなフォントを使用する場合は、この記事で紹介したアプローチを利用できます。

多くのユーザーは、Outlookが送信に使用するさまざまな電子メールアカウントに基づいて、送信電子メールでさまざまなフォントを自動選択して使用できることを望んでいます。ただし、デフォルトでは、Outlookにはそのような機能はありません。幸いなことに、VBAコードの助けを借りてこれを実現することができます。ここで、この方法について詳しく説明します。

メールを送信するときに、アカウントごとに異なるフォントを自動的に使用する

まず最初に、Outlookアプリケーションを起動してください。
次に、次のOutlookメインウィンドウで、「Alt + F11」キーを押す必要があります。
次に、新しいウィンドウ「Microsoft Visual BasicforApplications」に入ります。
このウィンドウで、「ThisOutlookSession」プロジェクトを見つけて開く必要があります。
続いて、次のVBAコードをコピーしてこのプロジェクトに貼り付けます。

'Occurs when you click "Send" button
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Use different fonts based on different send using account
       'Change the accounts and fonts as per your needs
       Select Case objMail.SendUsingAccount
              Case "johnsmith@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Times New Roman"
                        .Size = 13
                        .ColorIndex = wdBlue
                   End With
              Case "team1@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Cambria"
                        .Size = 10
                        .ColorIndex = wdBlack
                   End With
              Case "johnsmith_jonny@outlook.com"
                   With objMailDocument.Range.Font
                        .Name = "Segoe Script"
                        .Size = 8
                        .ColorIndex = wdDarkYellow
                   End With
      End Select
 
      objMail.Save
    End If
End Sub

その後、このコードに署名したほうがよいでしょう。

まず、ツールバーの「ツール」ボタンをクリックします。
次に、ドロップダウンリストから「デジタル署名」オプションを選択します。
後で、画面の指示に従ってこのタスクを完了することができます。

次に、現在のウィンドウを終了し、Outlookマクロ設定の変更に進んで、署名されたVBAプロジェクトを許可します。
これ以降、電子メールを送信するたびに、Outlookは送信用の電子メールアカウントに従って送信電子メールのフォントを自動的に変更します。

予期しないOutlookのクラッシュに備えてください

Outlookの脆弱性のため、ユーザーは常にOutlookを扱う際にさまざまな問題に備えておく必要があります。間違いなく、最も重要な手順の1つは、Outlookデータの一貫性のある最新のバックアップを作成することです。このようなバックアップがあれば、クラッシュで元のOutlookデータが破損しても、まだ Outlookを回復するバックアップからのデータも非常に簡単に復元できます。さらに、Outlook に強力な修復ツール（例: DataNumen Outlook Repair。バックアップが失敗したときに便利です。

著者紹介：

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