在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's 自动问候语实用程序 将在所有回复邮件中轻松添加个性化问候语。

Kutools for Outlook 通过添加许多方便的功能，简化了通过Outlook的日常电子邮件通信。 了解更多      现在免费下载

1。 点击 库工具 > 附加选项.

2.在打开的“选项”对话框中，转到 回复 选项卡，检查 回复时添加问候语 选项，键入Hi < >，进入下面的框，然后单击 OK 按钮。

从现在开始，在Outlook中回复邮件时，个性化问候语将自动添加到电子邮件正文中，如下图所示：

备注：在Outlook 2013中，如果您在“阅读窗格”中回复邮件，则此实用程序将不起作用。 请点击 在这里了解如何在Outlook 2013中的阅读窗格中禁用回复.

免费下载 Outlook 的 Kutools