如何使用Outlook VBA定期自動發送重複發送的電子郵件

Outlook解決方案 2025 年 9 月 29 日
立即分享：

您是否要以固定的間隔（例如每個星期二）發送重複發送的電子郵件？ 本文將研究此問題，並教您如何使用重複任務和Outlook VBA來解決此問題。

也許您已經知道如何安排發送重複發送的電子郵件，因為Outlook具有推遲傳遞的本機支持。 但是，此功能僅允許您指定發送電子郵件的時間。 它不允許您讓Outlook自動定期發送重複發送的電子郵件，例如3rd 每個月的星期一等。因此，如果您希望定期發送特定的電子郵件，則需要付出一些額外的努力。 這是一種快速的方法，需要您創建一個重複執行的任務項，並將以下VBA代碼複製到“ ThisOutlookSession”項目中。

自動定期發送定期電子郵件

  1. 首先，啟動Outlook，然後切換到“任務”窗格。
  2. 然後單擊功能區中的“新任務”按鈕。
  3. 在隨後的“新任務”窗口中，您需要創建一個重複任務：
  • 首先，在任務主題行中鍵入“定期發送電子郵件”。
  • 然後點擊“任務”標籤下的“重複發生”按鈕，
  • 接下來，根據您的需要設置任務重複性。
  • 之後，單擊“確定”以保存重複。
  • 最後設置提醒時間，然後單擊“保存並關閉”按鈕。創建一個週期性任務項目
  1. 之後，轉到“開發人員”選項卡，然後單擊“ Visual Basic”按鈕以訪問VBA編輯器窗口。
  2. 以後，您應該將以下VBA代碼複製到“ ThisOutlookSession”項目中。
Private Sub Application_Reminder(ByVal Item As Object)
    Dim objPeriodicalMail As MailItem
 
    If Item.Class = olTask Then
       If InStr(LCase(Item.Subject), "send an email periodically") Then
          Set objPeriodicalMail = Outlook.Application.CreateItem(olMailItem)
          'Change the following email information as per your actual needs
          With objPeriodicalMail
               .Subject = "Test"
               .To = "boss@datanumen.com"
               .HTMLBody = "<HTML><BODY>type body here</HTML></BODY>"
               .Attachments.Add ("C:\Attachments\DataNumen.docx")
               .Importance = olImportanceHigh
               .ReadReceiptRequested = True
               .Send
          End With
       End If
    End If
End Sub

VBA代碼-彈出任務項提醒時發送電子郵件

  1. 隨後，您應該對該代碼進行簽名並更改宏設置以允許進行數字簽名的宏。
  2. 從現在開始，每次彈出新的定期任務提醒時，Outlook都會自動撰寫並發送電子郵件。

請注意： 發送重複的電子郵件後，您應該記住將當前任務項標記為已完成。

巧妙地處理Outlook問題

由於Outlook容易受到各種因素的影響，因此您需要始終做好最壞的準備。 例如，您應該保持信譽良好且經過驗證的 Outlook恢復 附近的效用，例如 DataNumen Outlook Repair因此，即使遇到 PST 資料損壞，您也可以輕鬆恢復受損資料。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復 SQL Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。