如何在 Outlook 中设置忙碌时自动回复收到的邮件？
有时候，当您在某段时间内较为忙碌时，可能希望 Outlook 能自动回复收到的邮件。虽然 Outlook 本身没有内置这一功能，但我这里有一段 VBA 代码可以帮助您实现这一需求。
自动答复使用 VBA 代码在您忙碌时自动回复
这段 VBA 代码可实现：当您的日历中有日程安排时，系统会自动进行回复；如果日历中没有安排，则会自动停止回复。
1. 按下 Alt + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。
2. 在 Project 1 窗格中双击 ThisOutlookSession，然后将以下代码复制并粘贴到脚本中。
VBA：日历忙碌时自动回复
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. 保存此代码并重启 Outlook。此后，凡是在您设定的时间范围内收到的邮件，系统都将自动发送一封自动回复。
提示：
（1）您可根据需要在代码中自定义自动回复内容“很抱歉，我现在无法回复您，会稍后与您联系。” & _
（2) 此 VBA 宏可自动回复默认数据文件收件箱中收到的邮件。
Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）
通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。
该功能支持：
- 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
- 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
- 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
- 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
- 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
- 全球畅邮：轻松将邮件翻译为任意语言。
该功能支持：
- 智能邮件回复
- 内容优化
- 关键词草稿
- 智能内容扩展
- 邮件摘要
- 多语言翻译
最佳办公效率工具
体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！
🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。
📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……
📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……
📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……
🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……
👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……
👩🏼🤝👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……
在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！
一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！
🚀 一键下载 — 即可获取全部 Office 加载项
强烈推荐：Kutools for Office（5 合 1）
一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！
- ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
- 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
- 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint