在Outlook中回复郵件時，以下VBA代碼可以自動添加個性化問候語。 您可以執行以下操作：

1.選擇您將回复的電子郵件。

2。 按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。

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以表示一天中的問候語：

備註：在Outlook 2013中，如果您在閱讀窗格中答复郵件，則此VBA代碼不起作用。 請點擊 在這裡了解如何禁用Outlook 2013中的閱讀窗格中的回复.

某些用戶可能不喜歡在Outlook中應用VBA代碼。 因此，我介紹了第二種方法：Kutools for Outlook的 自動問候語實用程序 將在所有回复郵件中輕鬆添加個性化問候語。

Kutools for Outlook 通過添加許多方便的功能，簡化了通過Outlook的日常電子郵件通信。 閱讀更多      現在免費下載

1。 點擊 庫工具 > 選項.

2.在打開的“選項”對話框中，轉到 回复 選項卡，檢查 回复時添加問候語 選項，鍵入Hi < >，進入下面的框，然後單擊 OK 按鈕。

從現在開始，在Outlook中回复郵件時，個性化的問候語將自動添加到電子郵件正文中，如下圖所示：

備註：在Outlook 2013中，如果您在“閱讀窗格”中回复郵件，則此實用程序將不起作用。 請點擊 在這裡了解如何禁用Outlook 2013中的閱讀窗格中的回复.

免費下載Kutools for Outlook