在 Outlook 中，有哪两种方法可以定期发送日程安排？
在 Microsoft Outlook 中，安排定期约会、会议或任务非常便捷。但如果您想要定期发送邮件，而又不希望将其与约会、会议或任务关联，该怎么办呢？遗憾的是，Outlook 并未为此提供内置功能。不过，在本教程中，我们将为您介绍两种在 Outlook 中实现定期自动发送邮件的解决方案。
使用 VBA 代码在 Outlook 中发送日程定期发送（复杂）
使用强大工具轻松在 Outlook 中发送日程定期发送（简单、免费，支持多模板）
使用 VBA 代码在 Outlook 中发送日程定期发送（复杂）
本教程共分为四个部分，按照以下步骤操作，您就能轻松实现日程的定期发送。
第 1 部分：创建新建约会
1. 请在“导航窗格”中点击“日历”切换至日历视图，然后在“开始”选项卡下点击“新建约会”以创建新的约会。
3. 在“约会”选项卡下，进入“约会”对话框后，您需要：
| A：请输入“主题” | B：在“地点”中输入收件人邮箱地址 |
| C：设置“开始时间”和“结束时间” | D：在“提醒”下拉列表下选择提醒时间 如果您选择 15 分钟，则表示在邮件发送前 15 分钟提醒您 |
| E：编辑您的“约会正文” |
注意：“约会主题”在收件人收到邮件后会作为定期发送的主题；“约会正文”则会成为定期发送的正文内容。
第 2 部分：创建新建组
现在您需要新建一个名为“Send Schedule 定期发送”的新建组，具体如下：
1. 在“约会”对话框中，请在“约会”选项卡的“标记”组中点击“分类”，然后选择“所有类别”。
2. 弹出“颜色类别”对话框后，请点击“新建”按钮。在“添加新类别”对话框的“名称”字段中输入“Send Schedule 定期发送”，并在“颜色”下拉列表中选择所需颜色。最后点击“确定”。
3. 此时，您将看到“Send Schedule 定期发送”类别已显示，请勾选该选项，并点击“确定”按钮。
第 3 部分：设置定期模式
现在，是时候为此约会设置重复模式了。
1. 在“约会”选项卡的“选项”组中，点击“定期”按钮。请参见下图：
2. 在“约会定期”对话框中，选择您的“定期模式”。如需设置结束时间，请在“重复范围”下进行配置。完成后，点击“确定”。
3. 返回“约会”对话框后，请点击“保存并关闭”按钮。如下图所示：
第 4 部分：使用 VBA 代码发送日程定期发送
1. 请按下“Alt”+“F11”组合键，打开“Microsoft Visual Basic for Applications”对话框。
2. 在左侧窗格中，依次双击“Project 1” > “Microsoft Outlook Object” > “ThisOutlookSession”。如下图所示：
3. 请将以下 VBA 代码复制并粘贴到 VBA 编辑器中，随后点击“保存”按钮。
VBA：发送日程定期发送
Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
.To = Item.Location
.Recipients.ResolveAll
.Subject = Item.Subject
.Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub4. 点击“工具”>“引用”，打开“引用-项目”对话框。在对话框中，勾选“Microsoft Word Object Library”选项，然后点击“确定”按钮。
5. 同时按下“Alt”+“Q”键，即可关闭“Microsoft Visual Basic for Applications”窗口。
当“提醒”弹窗出现时，系统会自动将邮件发送至您在第一部分“地点”字段中填写的收件人。随后，请点击“提醒”对话框中的“忽略”按钮。此后，邮件将在每天相同时间自动重复发送。请参见下图：
注意：VBA 代码已在 Outlook 2010 及更高版本中成功通过测试。
使用强大工具轻松在 Outlook 中发送日程定期发送（简单、免费，支持多模板）
与上述方法相比，Kutools for Outlook 的定期发送功能让定期邮件发送变得更加简单高效。以下是关于如何使用该功能及其推荐理由的详细指南。
1. 点击“Kutools”中的“定期邮件”。
2. 首次使用该功能时，会弹出一个“查看和管理定期发送邮件”窗口。点击“新建”按钮创建一个定期发送。
3. 此时将会弹出新邮件窗口，您需要完成以下操作：
3. 此时会弹出“定期发送周期”对话框，请为邮件设置发送时间、定期模式和重复范围，完成后点击“确定”按钮。
4. 返回邮件窗口后，点击“保存并关闭”按钮，以保存定期设置并关闭该窗口。
5. 返回“查看和管理定期发送”窗口，根据需要重复第 1 至 4 步，以新建多个定期发送。最后，点击“关闭”。
6. 将弹出一个对话框提示您启用此功能，请点击“确定”。
完成上述设置后，定期发送将在指定日期和时间自动进行。
注意：您可以通过以下方式轻松管理定期发送。
最佳办公效率工具
体验全新 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