Outlook でメッセージに返信する際に、差出人の名前を自動的に挿入するにはどうすればよいですか？

Outlook でメールに返信する際、一般的には「Dear John,」や「Good morning!」などの丁寧な挨拶文から始めます。しかし、これを毎回手動で入力するのは面倒で時間もかかります。本チュートリアルでは、Outlook でメッセージに返信する際に、差出人の名前と挨拶を自動的に挿入するための2 つの効果的な方法をご紹介します。

方法 1：メール返信時に VBA で自動的に挨拶を追加する（柔軟性あり／手動セットアップ必要）

方法 2：Kutools for Outlook で返信または転送時に自動的に挨拶を追加 👍（簡単・迅速）

方法 1：メール返信時に VBA で自動的に挨拶を追加する

次の VBA コードを使えば、現在の時刻に応じて返信メッセージ本文にパーソナライズされた挨拶（例：「Dear John、 Good morning！」）を自動で挿入できます。

手順 1：Outlook で VBA エディターを開く

1．Alt＋F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2．左側のペインで「Project1 (VbaProject.OTM)」の下にある「Microsoft Outlook Objects」を展開し、「ThisOutlookSession」をダブルクリックしてください。

手順 2：VBA コードを挿入する

以下の VBA コードをエディターにコピー＆ペーストしてください。

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem

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

Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMailItem = xItem
End Sub

Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub

Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub

Sub AutoAddGreetingToReply(Item As Object)
    Dim xGreetStr As String
    Dim xReplyMail As MailItem
    Dim xSenderName As String
    Dim xRecipient As Recipient
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xReplyMail = Item
    For Each xRecipient In xReplyMail.Recipients
        If xSenderName = "" Then
            xSenderName = xRecipient.Name
        Else
            xSenderName = xSenderName & "," & xRecipient.Name
        End If
    Next xRecipient
    Select Case Time
           Case 0.3 To 0.5
                xGreetStr = " Good morning!"
           Case 0.5 To 0.75
                xGreetStr = " Good afternoon!"
           Case Else
                xGreetStr = " Good evening!"
    End Select
    With xReplyMail
        .Display
        .HTMLBody = "Dear " & xSenderName & "," & xGreetStr & "" & .HTMLBody
    End With
End Sub

手順 3：VBA コードを保存してOutlook を再起動する

1．プロジェクトを保存するには、Ctrl＋Sキーを押してください。

2．VBA エディターを閉じてOutlook を再起動すれば、コードが有効になります。

結果：

Outlook は、メールに返信するたびに、メッセージ本文の先頭に自動で挨拶文を挿入します。

---

📅 件名や署名に自動で日付を挿入＆テキストを即時挿入！

メールに毎回手動で日付を追加するのはもうお疲れですか？Kutools for Outlookなら、メッセージを作成・返信・転送するたびに、現在の日付やカスタムテキストをメールの件名や署名に自動で挿入できます。一度設定すれば、あとはKutools が即座に、しかも一貫して処理してくれます。🚀

💡クイックヒント：［Kutools］>［オプション］をクリックして、件名や署名への日付の自動挿入を有効にしてください。

✅署名への日付自動日付を挿入する
✅件名への日付自動追加

✅カスタム日付形式
✅新規メールおよび返信メールで動作

🔥 Kutools for Outlook を今すぐ無料でお試しください！

方法 2：Kutools for Outlook で返信または転送時に自動的に挨拶を追加 👍

コード不要でより迅速に実現したい場合は、「Kutools for Outlook」に内蔵された挨拶機能を使えば、メールの返信や転送時に差出人の名前と挨拶を自動的に追加できます。

1．「Kutools」＞「オプション」をクリックして、「オプション」ダイアログボックスを開きます。

2．「オプション」ダイアログで、次の設定を行ってください。

1. 1）。［返信］タブに移動します。
2. 2）。メールの作成、返信、転送時に自動的に挨拶を追加するには、「メールの作成、返信、転送時に自動的に挨拶を追加します」オプションをオンにしてください。デフォルトでは、ボックス内に「Hi >,」と表示されます。
⚡ ヒント：挨拶文を独自のテキストに置き換えたり、受信者の名前を必要な場所に挿入するために、>、>、または>などの自動名前コードを使ってカスタマイズできます。
3. 3）。［OK］をクリックして設定を保存します。

📌結果：今後、メールに返信または転送するたびに、Kutools がメッセージ本文の先頭に自動で挨拶を挿入します。

どちらの方法を使うべきでしょうか？

次の表で2 つの方法を簡単に比較し、あなたのニーズに最も合うものを選ぶ際の参考にしてください。

最終的なおすすめ：
VBA に慣れていて、挨拶の内容を細かく制御したい場合は、方法1 が最適です。ただし、ほとんどのユーザーにとっては、Kutools for Outlook を使った方法2 が、最小限のセットアップとコーディング不要で自動挨拶を実現できる、最も簡単で効率的な選択肢です。

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入