Jak wysłać cykliczną wiadomość e-mail z harmonogramem w Outlooku?
W programie Microsoft Outlook możesz łatwo wysłać harmonogram cyklicznego terminu, spotkania lub zadania do innych osób. Ale jeśli chcesz po prostu wysłać cykliczną wiadomość e-mail z harmonogramem bez żadnego terminu, spotkania lub zadania, jak możesz to zrobić? Niestety, program Outlook nie zapewnia funkcji wysyłania cyklicznych wiadomości e-mail z harmonogramem, ale w naszym samouczku pokażemy, jak wysłać harmonogram cyklicznych wiadomości e-mail w programie Outlook.
Wysyłaj cykliczne wiadomości e-mail w programie Outlook z kodem VBA
Ten samouczek jest podzielony na cztery części, po zakończeniu tych części uda Ci się wysłać cykliczną wiadomość e-mail z harmonogramem. Wykonaj następujące czynności.
Część 1: Utwórz nowe spotkanie
1. Przejdź do Kalendarz wyświetlić, klikając Kalendarz w Okienko nawigacji, a następnie utwórz nowe spotkanie, klikając Nowe spotkanie dla Strona Główna patka.
3. w Powołanie okno dialogowe pod Powołanie patka. Musisz:
Odp.: Wpisz Temat
B: Wprowadź adresy e-mail odbiorców w Lokalizacja
C: Skonfiguruj Czas zacząć oraz Czas zakończenia
D: Wybierz przypomnienie pod Przypomnienie Lista rozwijana. Jeśli wybierzesz 15 minut, oznacza to, że przypomni Ci się 15 minut wcześniej, kiedy wiadomość e-mail zostanie wysłana.
E: Utwórz treść terminu.
Uwagi: the Temat spotkania stanie się powtarzającym się tematem wiadomości e-mail; i Organ mianujący stanie się powtarzającą się treścią wiadomości e-mail, gdy adresaci otrzymają wiadomość e-mail.
Część 2: Utwórz nową kategorię
Teraz musisz utworzyć nową kategorię o nazwie „Wyślij cykliczny e-mail z harmonogramem”W następujący sposób:
1. w Powołanie kliknij Kategoryzować > Wszystkie kategorie w Tagi grupa pod Powołanie patka.
2. Kiedy Kategorie kolorów pojawi się okno dialogowe, kliknij Nowy przycisk. w Dodaj nową kategorię okno dialogowe, wpisz „Wyślij cykliczny e-mail z harmonogramem"W Imię i nazwisko pole; a następnie wybierz kolor w Kolor Lista rozwijana. Następnie kliknij OK.
3. Następnie zobaczysz „Wyślij cykliczny e-mail z harmonogramem”, Zaznacz pole, a następnie kliknij OK przycisk.
Część 3: Ustaw powtarzalność
Teraz nadszedł czas, aby ustawić powtarzanie wizyty.
1. kliknij Nawrót w Opcje grupa pod Powołanie patka. Zobacz zrzut ekranu:
2. w Powtarzanie spotkania skonfiguruj Nawrót wzór. Jeśli potrzebujesz godziny zakończenia, skonfiguruj ją w sekcji Zakres nawrotów. A następnie kliknij OK.
3. Kiedy wraca do Powołanie kliknij Zapisz i zamknij przycisk. Zobacz zrzut ekranu:
Część 4: Użyj kodu VBA do wysyłania cyklicznego e-maila z harmonogramem
1. Proszę nacisnąć inny + F11 otworzyć Microsoft Visual Basic for Applications dialog.
2. Kliknij dwukrotnie Project1 > Obiekt programu Microsoft Outlook > Ta sesja programu Outlook w lewym okienku. Zobacz zrzut ekranu:
3. Skopiuj i wklej następujący kod VBA do edytora VBA. A następnie kliknij Zaoszczędź przycisk.
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. kliknij Przybory > Referencje otworzyć Referencje- Projekt dialog. W oknie dialogowym zaznacz plik Biblioteka obiektów programu Microsoft Word opcję i kliknij przycisk OK przycisk.
5. wciśnij inny + Q klucze w tym samym czasie, aby zamknąć Microsoft Visual Basic for Applications okno.
Podczas Przypomnienie pojawi się wiadomość e-mail zostanie automatycznie wysłana do odbiorców, których wpisałeś w polu Lokalizacja w pierwszej części. Następnie kliknij Oddalić w Przypomnienie dialog. W tym czasie e-mail będzie wysyłany cyklicznie każdego dnia. Zobacz zrzut ekranu:
Uwagi: Kod VBA został pomyślnie przetestowany w programie Outlook 2010 i nowszych wersjach.
Łatwe wysyłanie cyklicznych wiadomości e-mail w programie Outlook za pomocą niesamowitego narzędzia
Dla wielu użytkowników programu Outlook powyższa metoda jest zbyt żmudna, aby można ją było prawidłowo obsługiwać. Tutaj bardzo polecam Zaplanuj automatyczne wysyłanie cechą Kutools dla programu Outlook. Dzięki tej funkcji możesz łatwo tworzyć wiele cyklicznych wiadomości e-mail i zaplanować ich regularne wysyłanie w odstępach dziennych, tygodniowych, miesięcznych lub rocznych, zgodnie z potrzebami. Aby to zrobić, wykonaj następujące czynności.
2. Następnie otwiera się okno wiadomości i musisz:
2.1) Wybierz odbiorców wiadomości e-mail w Do wiadomości or UDW pola według potrzeb, a następnie wypełnij e-mail Przedmiot;
2.2) Utwórz treść wiadomości e-mail;
2.3) Kliknij Nawrót pod Powtarzające się Kutools patka. Zobacz zrzut ekranu:
3. Teraz Powtarzanie wiadomości e-mail pojawi się okno dialogowe, musisz określić powtarzający się czas, powtarzający się wzór oraz zakres nawrotów dla wiadomości e-mail, a następnie kliknij OK przycisk.
4. Teraz wraca do okna wiadomości, kliknij Zapisz i zamknij aby zapisać powtarzające się ustawienia i zamknąć okno.
Porady: Możesz powtórzyć powyższe kroki od 1 do 4, aby utworzyć wiele cyklicznych wiadomości e-mail zgodnie z potrzebami.
2. w Zarządzaj harmonogramem automatycznego wysyłania okno, możesz stworzyć Nowy cykliczny e-mail, edytować, usuwać,włączyć or poza istniejący cykliczny e-mail, zgodnie z potrzebami. Lub możesz kliknąć Zaloguj ikonę, aby wyświetlić historię wysyłania cyklicznych wiadomości e-mail.
Kutools dla programu Outlook zawiera ponad 100 zaawansowanych funkcji programu Microsoft Outlook. Bezpłatnie wypróbować bez ograniczeń w ciągu 60 dni. Pobierz teraz!
Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
I followed the instruction in this article "How to send a schedule recurring email in Outlook" multiple times, to no avail. I get the popup reminder box but, the e-mail is never sent. I've tried with Kutools for Outlook installed and uninstalled. Still no success in sending a scheduled recurring email in Outlook.
I have had the same situation. It was working fine for almost a year and then suddenly stopped working. I've tried recopying the code, delete it completely and start over. Same results- popup reminder box happens, I click ok, and the email is never sent.
Make sure that the category name you created in step 2 is the same as the name specified in the code. Can you try the VBA below and give me feedback on error you encountered later? Because this problem needs to be reproduced in my case. Or you can also try the third party tool mentioned in the post. Sorry for the inconvenience.
Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20220114
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
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
At least yours work for a while. Mine never worked. Contacted Support and was told to post here. I suppose we'll have to wait on the author to respond.
Hi RodmanB, Can neither of the two methods described in the article solve the problem? VBA code and Kutools for Outlook are two different ways to handle the task.
I need to know more specific about your issue, such as your Excel version.
I am using MSOffice 365 for all of the Office products- Outlook, Excel, etc. As I posted 6month ago, it was working fine with my previous MSOffice desktop software. When I switched to Office 365, it stopped working and I am having the same/similar situation as RodmanB. The reminder popup occurs, I dismiss it and nothing happens. The email is not in the draft folder, not in the sent folder, nothing.
Thanks for help. I replaced the VBCode and made a different test email. It preformed just as the other; reminder pops up, .wav file plays but the email is not sent. I'll install Kutools for Outlook and try that way tomorrow and, will respond with results.
Unable to install Kutool for outlook, demo license expired. Not willing to buy just to debug this feature. So, have a great day and thanks for the help.
Hi have implemented this and there's a couple of issues.
1 - if i don't have Outlook opened, the email is not sent --> i guess this is normal, not a big deal anyway.
2 - even the appointment appears just once a day and the email sent properly then, i see that the email is sent randomly other extra times during the day. For example, my schedule is daily at 9:00 and this is sent at 9:00 (OK) and also at 17:13 (NOK). I am not being able to identify why, any idea?
What would the VBA code be for this but sending from the recipients of the appointment, not the "location" of the appointment as coded above? I need to send to 20+ people and cannot add enough names as the location fields is limited on characters. Many thanks
If you are having trouble with the email not sending after you get the reminder, look in your drafts folder. If the email is there then go back to the categories step and change the category to "Send Scheduled Recurring Email". The original instructions read "schedule" and not "scheduled". As soon as I did this, Outlook sent the email from my drafts folder and everything worked.
I had a 2016 desktop version and everything worked great. I switched to Office 365 and it stopped working. Is there a setting (VBA Code?) that needs to be changed?
this saves the email into the Drafts folder without a header or timestamp. How do I get it to include that header and timestamp; and saved in the Sent folder ?
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:=True With xMailItem .To = Item.Location .Recipients.ResolveAll .Subject = Item.Subject .Send End With Set xMailItem = Nothing VBA.Kill xFldPath End Sub
This didn't work for me until I realized that naming the category "Send Scheduled Recurring Email" instead of "Send Schedule Recurring Email" mattered. It was a comment below that brought it to my attention. Thanks!
I followed the instructions, but I get a .dll error when I check microsoft word 16.0 object library. I don't know if it matters, but the other object libraries show up as 14.0
often the location bar is unable to contain all of the email addresses for me, I can certainly use a distribution list or group contact but how do I unpack it so the resulting email shows the addresses individually?
It worked very well with MS Office 365 -outlook but then stopped working. I cant figure out what changed. Did anyone else run into similar problem? Any suggestion on how to debug what is going on?
Hi, been using this without issue for a few years. Suddenly in the last couple of months, it stopped sending the email. Reminder still goes out to me at least. I came here and and see the code has been updated, which I did and now I get "userdefined type not identified" error that others seem to have gotten. Is there a fix for this or no?
I have followed all the instructions: I enabled Macros; I configured the appointment as instructed and added the VBA Macro....I checked all the references as instructed.
The email is not being sent, and I'm not getting any compiler errors. What could be the problem? I'm using Outlook 2016.
Pardon me if this is something you already know, but without having other details besides what you posted, I suggest you make sure both microsoft office 16.0 object library AND microsoft word 16.0 object library are selected from step 4 above.
I received the email, however the body of the email is blank. I have put text and a signature in the body but when the email comes the body of the email is blank.
I have followed all instructions and made sure the object library was checked etc but get the error 'compile error user type not defined' when it's time for the reminder.
Any solutions to this?
It worked for me on Testing but when I made the changes to send it actually it didn't worked. Is there any specific modifications I needed to make? I see my Macro is disabled but it's on office system so I can't change it but assuming it worked for the first time it should work alright again; right?
If they change every week then it's not able to work really. What changes? if it's an attached file that should be fine because it grabs the file each time.
I Tried using the above code it works very fine. But the problem is in the body of the email I am including Pictures, text and Hyperlinks to that. By the time mail reaching to the receiver everything is converting as a Text. Can anyone help me on this
This still works. Just tested on Office 2016/ O365. Make sure macros are enabled. Make sure you are pasting the code under "application" and "Reminder" as shown in the screen shot.
I am getting a "compile error: invalid outside procedure" every time ANY reminder pops up, not just the one's for the scheduled send. Also, my scheduled send doesn't work. Any ideas? I copied and pasted the code from above. Thanks.
It's in the location field rather than in an invitee field, so, no - no invite goes out to the location address(es). No reminders to the location address(es) normally, either. This code is triggered by the application_reminder event for this appointment and adds functionality to it, to
- create an e-mail message
- put the appointment location address(es) in the To field of the e-mail message.
- put the appointment subject line in the Subject field of the e-mail message.
- put the appointment body in the Body field of the e-mail message.
