在 Outlook 中傳送定期定期電子郵件的兩種方法？

新增一名作者最後修改時間：2024-09-19

在 Microsoft Outlook 中，安排定期約會、會議或任務變得輕而易舉。但是，如果您需要定期發送電子郵件而不將其附加到約會、會議或任務，該怎麼辦？不幸的是，Outlook 不提供用於此目的的內建功能。但是，在本教程中，我們將向您展示兩種在 Outlook 中傳送計劃的定期電子郵件的解決方案。

使用 VBA 程式碼（複雜）在 Outlook 中傳送排程定期電子郵件

使用出色的工具在 Outlook 中輕鬆發送定期定期電子郵件（簡單、免費、支援多個範本）

使用 VBA 程式碼（複雜）在 Outlook 中傳送排程定期電子郵件

本教程分為四個部分，完成這些部分後，您將成功發送計劃重複執行的電子郵件。請執行以下操作。

第 1 部分：創建新約會

1.請瀏覽至日曆點擊查看日曆，詳見 導航窗格，然後通過單擊創建新約會 新任命 下主頁標籤。

3。在裡面 聯繫我們 對話框下 聯繫我們 標籤。你需要：

答：輸入主題	B：在“收件人”中輸入收件人的電子郵件地址地點
C：配置開始時間和時間結束	D：在下方選擇提醒提醒下拉列表。如果您選擇15分鐘，則表示它將在發送電子郵件的15分鐘前提醒您。
E：撰寫您的約會內容。	D：在下方選擇提醒提醒下拉列表。如果您選擇15分鐘，則表示它將在發送電子郵件的15分鐘前提醒您。

備註：“ 預約主題 將成為重複出現的電子郵件主題；和 預約機構 收件人收到電子郵件後，它將成為重複出現的電子郵件正文。

第 2 部分：創建新類別

現在，您需要創建一個名為“發送計劃定期電子郵件“ 如下：

1。在裡面 聯繫我們 對話框，請點擊分類 > 所有類別 ，詳見標籤組下 聯繫我們 標籤。

2。當。。。的時候 顏色分類 彈出對話框，請點擊全新按鈕。在裡面 添加新類別 對話框中，輸入“發送計劃定期電子郵件“在名稱領域; 然後在顏色下拉列表。然後點擊 OK.

3.然後，您將看到“發送計劃定期電子郵件”類別已列出，請選中該框，然後單擊 OK 按鈕。

第 3 部分：設置重複

現在，該設置約會的重複時間了。

1。點擊循環，詳見選項組下 聯繫我們 標籤。看截圖：

2。在裡面 預約定期 對話框中，配置您的循環模式。如果您需要結束時間，請在下面進行配置 復發範圍。然後點擊 OK.

3.返回到 聯繫我們 對話框，請點擊 保存並關閉 按鈕。看截圖：

第 4 部分：使用 VBA 代碼發送計劃定期電子郵件

1.請按其他 + F11 打開 Microsoft Visual Basic for Applications 對話。

2。雙擊 Project1 > Microsoft Outlook對象 > 本次展望會議 在左窗格中。看截圖：

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對像庫 選項，然後單擊 OK 按鈕。