次のVBAコードは、Outlookでメッセージに返信するときに、パーソナライズされたグリーティングを自動的に追加できます。 次のように実行できます。

1.返信する電子メールメッセージを選択します。

2。 プレス 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

3。 クリック インセット > モジュール、次のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA：パーソナライズされた挨拶で返信する

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4。 プレス F5 キーまたはクリック ラン このVBAを実行するためのボタン。 以下のスクリーンショットのようにダイアログボックスが表示されます。 必要に応じて1または2と入力し、[ OK

受信者名で挨拶する場合は1を入力します。	時刻付きの挨拶のタイプ2：

Note：Outlook 2013では、閲覧ウィンドウでメッセージに返信すると、このVBAコードは機能しません。 クリック Outlook2013の閲覧ウィンドウで返信を無効にする方法についてはこちらをご覧ください.

一部のユーザーは、OutlookでVBAコードを適用したくない場合があります。 したがって、XNUMX番目の方法を紹介します：Outlook用のKutools 自動グリーティングユーティリティ すべての返信メッセージにパーソナライズされた挨拶を簡単に追加します。

Kutools for Outlook 多数の便利な機能を追加することにより、Outlookを介した毎日の電子メール通信を簡素化します。 続きを読む      今すぐダウンロード

1。 クリック クツール > オプション.

2. [オプション]ダイアログボックスを開いて、[ 返信 タブ、チェック 返信時に挨拶を追加 オプション、タイプHi < >、下のボックスに入力し、をクリックします OK

今後、Outlookでメッセージに返信すると、次のスクリーンショットのように、パーソナライズされた挨拶が電子メールの本文に自動的に追加されます。

Note：Outlook 2013では、閲覧ウィンドウでメッセージに返信すると、このユーティリティは機能しません。 クリック Outlook2013の閲覧ウィンドウで返信を無効にする方法についてはこちらをご覧ください.

Outlook用Kutoolsを無料でダウンロード