Jak okresowo automatycznie wysyłać cykliczne wiadomości e-mail za pomocą programu Outlook VBA

Rozwiązania Outlook September 29, 2025

Czy chcesz wysyłać cykliczne wiadomości e-mail w określonych odstępach czasu, na przykład w każdy wtorek? W tym artykule przyjrzymy się temu problemowi i nauczymy się, jak to osiągnąć, używając zadania cyklicznego i języka VBA programu Outlook.

Być może wiesz, jak zaplanować wysyłanie cyklicznej wiadomości e-mail w tym programie Outlook, który ma natywną obsługę odroczenia dostawy. Ale ta funkcja może po prostu pozwolić ci określić czas wysłania wiadomości e-mail. Nie może zezwolić programowi Outlook na automatyczne wysyłanie okresowych wiadomości e-mail, na przykład 3^rd Poniedziałek każdego miesiąca itd. Dlatego też, jeśli chcesz regularnie wysyłać określoną wiadomość e-mail, musisz podjąć dodatkowe wysiłki. Oto szybka metoda, która będzie wymagać utworzenia powtarzającego się elementu zadania i skopiowania następujących kodów VBA do projektu „ThisOutlookSession”.

Automatyczne wysyłanie cyklicznej wiadomości e-mail okresowo

W pierwszej kolejności uruchom Outlooka, a następnie przejdź do okienka Zadania.
Następnie kliknij przycisk „Nowe zadanie” na wstążce.
W kolejnym oknie „Nowe zadanie” musisz utworzyć zadanie cykliczne:

Najpierw wpisz „wysyłaj e-mail okresowo” w temacie zadania.
Następnie kliknij przycisk „Powtarzanie” w zakładce „Zadanie”,
Następnie ustaw powtarzalność zadania zgodnie ze swoimi potrzebami.
Następnie kliknij „OK”, aby zapisać powtórzenie.
Na koniec ustaw czas przypomnienia i kliknij przycisk „Zapisz i zamknij”.

Następnie przejdź do zakładki „Programista” i naciśnij przycisk „Visual Basic”, aby uzyskać dostęp do okna edytora VBA.
Później należy skopiować następujące kody VBA do projektu „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

Następnie należy podpisać ten kod i zmienić ustawienia makra, aby zezwolić na makro podpisane cyfrowo.
Odtąd za każdym razem, gdy pojawi się przypomnienie o nowym zadaniu cyklicznym, program Outlook automatycznie utworzy i wyśle wiadomość e-mail.

Uwaga: Po wysłaniu cyklicznego e-maila należy pamiętać o oznaczeniu aktualnego zadania jako zakończonego.

Taktownie rozwiązuj problemy z programem Outlook

Ponieważ Outlook jest podatny na różne czynniki, musisz cały czas przygotowywać się na najgorsze. Na przykład należy zachować renomowaną i dobrze sprawdzoną Odzyskiwanie programu Outlook użyteczność w pobliżu, np DataNumen Outlook Repair. W związku z tym nawet jeśli napotkasz uszkodzenie danych PST, możesz odzyskać zainfekowane dane za pomocą utmost łatwość.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com