在Outlook中發送計劃定期郵件的兩種方法？

Author: Siluvia Last Modified: 2025-08-06

在 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 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 Sub

4. 點擊「工具」>「引用」以打開「References - Project」對話框。在對話框中，勾選「Microsoft Word Object Library」選項，然後點擊「確定」按鈕。