KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Outlook 回复邮件时自动插入个性化问候语？

作者Kelly修改日期

通常在 Outlook 回复邮件时，我们需要手动输入问候语。事实上，原始邮件中已包含了收件人的相关信息，如发件人名称。本文将为您介绍两种方法，助您在 Outlook 回复邮件时自动添加个性化问候语。

使用 VBA 回复邮件时自动添加个性化问候语

使用 Kutools for Outlook 回复时自动添加个性化问候语

使用 VBA 回复邮件时自动添加个性化问候语

下面的 VBA 代码可帮助您在 Outlook 回复邮件时自动添加个性化问候语。请按照以下步骤操作：

1. 请选择您想要回复的邮件。

2. 按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

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，然后单击确定按钮。

使用 VBA 回复时添加个性化问候语的截图 1
输入 1 可插入包含收件人姓名的问候语：输入 2 可插入包含时间的问候语：
使用 VBA 回复时添加个性化问候语的截图 2使用 VBA 回复时添加个性化问候语的截图 3

注意：在 Outlook 2013 中，如果在阅读窗格中回复邮件，此 VBA 代码将无法生效。点击 此处，了解如何在 Outlook 2013 中禁用在阅读窗格中回复邮件。

使用 Kutools for Outlook 回复时自动添加个性化问候语

有些用户可能不希望在 Outlook 中使用 VBA 代码。因此，为您推荐第二种方法：Kutools for Outlook 的自动问候实用工具，可轻松在所有回复邮件中自动添加个性化问候语。

👉 在 Outlook 中更高效地工作！下载 Kutools for Outlook，体验 100+ 项省时功能，助力提升办公效率——30 天免费试用！

Kutools for Outlook 为 Outlook 增添数十项实用功能，助您轻松简化日常邮件沟通。了解更多     免费下载立即体验

1. 点击 Kutools > 选项。

2. 在弹出的“选项”对话框中，切换到回复选项卡，勾选新建、答复、转发邮件时，自动添加问候选项。您可以通过插入下列占位符自定义问候语，如>、>或>，根据实际需求添加到下方输入框，然后点击确定按钮。

选择-添加问候语

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

自动添加问候语

注意：在 Outlook 2013 中，如果在阅读窗格中回复邮件，此工具将无法生效。点击 此处，了解如何在 Outlook 2013 禁用阅读窗格中回复邮件。

最佳办公效率工具

🤖KUTOOLS AI 助手：基于数据分析革新智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见状态|比较区域和列……
精选功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表批量发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线等） ......
顶级 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，按路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|…… 以及更多
在您的首选语言中使用 Kutools——支持英语、西班牙语、德语、法语、中文及 40+ 种其它语言！

用 Kutools for Excel 全面提升您的 Excel 技能，体验前所未有的高效办公。Kutools for Excel 提供 300 多项高级功能，助您高效提升工作效率，节省宝贵时间。点击此处，立即获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更加轻松高效

  • 在 Word、Excel、PowerPoint 中启用标签式编辑与阅读，同样适用于 Publisher、Access、Visio 和 Project。
  • 在同一窗口中以新标签页的形式打开和创建多个文档，而无需另起新窗口。
  • 让您的工作效率提升 50%，每天为您减少上百次鼠标点击！

所有 Kutools 插件，一键安装

Kutools for Office 套件集成了 Excel、Word、Outlook 和 PowerPoint 插件，以及 Office Tab Pro，非常适合需要跨 Office 应用协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 全能套件— Excel、Word、Outlook 及 PowerPoint 插件 + Office Tab Pro
  • 一键安装，一证多用— 数分钟完成部署（支持 MSI）
  • 协同更高效— 实现 Office 应用间高效协作
  • 30 天完整功能试用— 无需注册，无需信用卡
  • 极致性价比— 比单独购买插件更省钱