在Outlook中发送定时循环邮件的两种方法？

Author: Siluvia Last Modified: 2025-07-31

在 Microsoft Outlook 中，安排循环约会、会议或任务非常简单。但是，如果您需要发送一封不附属于任何约会、会议或任务的循环邮件该怎么办呢？遗憾的是，Outlook 并未提供内置功能来实现这一目的。然而，在本教程中，我们将向您展示在 Outlook 中发送定时循环邮件的两种解决方案。

使用 VBA 代码在 Outlook 中发送定时循环邮件（复杂）

使用一款出色的工具轻松在 Outlook 中发送定时循环邮件（简单、免费、支持多种模板）

使用 VBA 代码在 Outlook 中发送定时循环邮件（复杂）

本教程分为四个部分，完成这些部分后，您将成功发送定时循环邮件。请按照以下步骤操作：

第一部分：创建新的约会

1. 请通过点击“导航窗格”中的“日历”切换到“日历”视图，然后通过点击“主页”选项卡下的“新建约会”来创建一个新的约会。

3. 在“约会”选项卡下的“约会”对话框中，您需要：

A：输入“主题”	B：在“位置”字段中输入收件人的电子邮件地址
C：配置“开始时间”和“结束时间”	D：从“提醒”下拉列表中选择提醒时间。如果选择 15 分钟，则表示邮件发送时会提前 15 分钟提醒您。
E：撰写您的“约会正文”	D：从“提醒”下拉列表中选择提醒时间。如果选择 15 分钟，则表示邮件发送时会提前 15 分钟提醒您。

注意：当收件人收到邮件时，“约会主题”将成为循环邮件的主题；“约会正文”将成为循环邮件的正文内容。

第二部分：创建新类别

现在，您需要按如下方式创建一个名为“发送定时循环邮件”的新类别：

1. 在“约会”对话框中，请点击“约会”选项卡下“标记”组中的“分类”>“所有类别”。

2. 当“颜色类别”对话框弹出时，请点击“新建”按钮。在“新建类别”对话框中，在“名称”字段中输入“发送定时循环邮件”；然后从“颜色”下拉列表中选择一种颜色。然后点击“确定”。

3. 然后您将看到“发送定时循环邮件”类别已列出，请勾选复选框，然后点击“确定”按钮。

第三部分：设置重复周期

现在是时候为约会设置重复周期了。

1. 点击“约会”选项卡下“选项”组中的“重复周期”。见截图：

2. 在“约会重复周期”对话框中，配置您的“重复周期”模式。如果需要结束时间，请在“重复范围”下进行配置。然后点击“确定”。

3. 返回到“约会”对话框时，请点击“保存并关闭”按钮。见截图：

第四部分：使用 VBA 代码发送定时循环邮件

1. 请按“Alt”+“F11”打开“Microsoft Visual Basic for Applications”对话框。

2. 在左侧窗格中双击“Project1”>“Microsoft Outlook 对象”>“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 Sub

4. 点击“工具”>“引用”以打开“引用 - 项目”对话框。在对话框中，勾选“Microsoft Word 对象库”选项，然后点击“确定”按钮。