Outlookでメッセージに返信するときに、親愛なる送信者の名前を自動的に作成するにはどうすればよいですか？

に書かれた 31 8月2018.

Outlookでメッセージに返信するときに、親愛なる送信者の名前を自動的に作成するにはどうすればよいですか？

電子メールメッセージに返信するときは、送信者の名前と挨拶を手動で入力する必要があります。時間を節約し、作業効率を向上させるために、Outlookで自動的に親愛なる送信者の名前と挨拶を作成することを検討することがあります。この記事では、Outlookでこのタスクを解決するための便利な方法について説明します。

VBAコードでメッセージに返信するときに、親愛なる送信者の名前と挨拶を自動的に作成する

Outlook用Kutoolsでメッセージに返信するときに、親愛なる送信者の名前と挨拶を自動的に作成する

メッセージを返信するときに、親愛なる送信者の名前とグリーティングを自動的に作成します。

メッセージを返信するときに、親愛なる送信者の名前とグリーティングを自動的に挿入するには、 Kutools for Outlook's 返信時に挨拶を追加する 機能を使用すると、Outlookでこの作業をすばやく簡単に完了できます。

Kutools for Outlook：20以上の便利なExcelアドインを使って、60日以内に自由に試してみてください。 今すぐ無料体験版をダウンロードしてみてください！

VBAコードでメッセージに返信するときに、親愛なる送信者の名前と挨拶を自動的に作成する

次のVBAコードは、電子メールメッセージに返信するときに親愛なる差出人の名前と挨拶を自動的に挿入するのに役立ちます。

1。押さえつける Alt + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

2。の中に アプリケーション用Microsoft Visual Basic ウィンドウ、ダブルクリック ThisOutlookSession から Project1（VbaProject.OTM） ウィンドウを開いてモードを開き、次のコードをコピーして空白のモジュールに貼り付けます。

VBAコード：自動返信時に送信者の名前と挨拶を挿入：

Public WithEvents GExplorer As Outlook.Explorer Public WithEvents GMailItemとしてOutlook.MailItem Private Sub Application_Startup（）GExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub GExplorer_SelectionChange（）Dim xItemオブジェクトとしてエラーが発生した場合は、次のSetを再開します。xItem = GExplorer.Selection.Item （1）xItem.Class <> olMail Then Exit Sub Set GMailItem = xItem End SubプライベートSub GMailItem_Reply（オブジェクトとしてのByValレスポンス、Booleanとしてキャンセル）AutoAddGreetingToReplyレスポンスEnd SubプライベートSub GMailItem_ReplyAll（オブジェクトとしてのByValレスポンス、Booleanとしてキャンセル）AutoAddGreetingToReplyレスポンスEnd Sub Sub AutoAddGreetingToReply（アイテムとしてのオブジェクト）Dim xGreetStr As String Dim xReplyMailとしてMailItem Dim xSenderNameを文字列Dim xRecipient As受信者On Error Resume Next If Item.Class <> olMail Then Exit Sub Set xReplyMail = xReplyMail内の各xRepipientの項目。受信者がxSenderName = ""ならばxSenderName = xRecipient.Name Else xSenderName = xSenderName＆ "、"＆xRecipient.Name End 次のxRecipientが大文字小文字を選択する場合0.3を0.5にxGreetStr = "おはよう！" 0.5から0.75へのケースxGreetStr = "良い午後！" Case Else xGreetStr = "おはよう！" ＆xSearchName＆ "、</ HTML> </ Body>"＆xGreetStr＆.HTMLBody End Subを使用してEnd Subを選択すると、xReplyMail .Display .HTMLBody = "<HTML>

doc自動送信者名1