Salt la conținutul principal

Cum să trimiteți un program de e-mail recurent în Outlook?

În Microsoft Outlook, puteți trimite cu ușurință altora o programare, întâlnire sau sarcină recurentă. Dar dacă doriți doar să trimiteți un e-mail recurent fără programare, întâlnire sau sarcină, cum puteți face? Din păcate, Outlook nu oferă nicio caracteristică pentru trimiterea e-mailurilor recurente, dar în tutorialul nostru vă vom arăta cum să trimiteți un e-mail recurent în Outlook.

Trimiteți un program de e-mail recurent în Outlook cu cod VBA

Trimiteți cu ușurință programarea e-mailurilor recurente în Outlook cu un instrument uimitor


Trimiteți un program de e-mail recurent în Outlook cu cod VBA

Acest tutorial este împărțit în patru părți, veți reuși să trimiteți un e-mail recurent după terminarea acestor părți. Vă rugăm să faceți următoarele.

Partea 1: Creați o nouă întâlnire

1. Vă rugăm să navigați la Calendar vizualizare făcând clic Calendar în Panoul de navigare, apoi creați o nouă întâlnire făcând clic pe Programare noua în Inițial tab.

3. În Numire dialog sub Numire filă. Trebuie să:

A: Introduceți fișierul Subiect B: Introduceți adresele de e-mail ale destinatarilor în Locatie
C: Configurați fișierul Începeți timp si End time D: Selectați memento-ul sub Memento lista verticală.
Dacă alegeți 15 minute, înseamnă că vă va reaminti cu 15 minute mai devreme când e-mailul este trimis.
E: Compuneți-vă corpul de numire.

notițe: Subiectul numirii va deveni subiectul recurent al e-mailului; si Organul de numire va deveni corpul de e-mail recurent atunci când destinatarii au primit e-mailul.

Partea 2: Creați o nouă categorie

Acum trebuie să creați o nouă categorie numită „Trimiteți e-mailuri recurente" după cum urmează:

1. În Numire dialog, vă rugăm să faceți clic pe Clasificați > toate categoriile în Tag-uri grup sub Numire tab.

2. Cand Categorii de culori apare fereastra de dialog, faceți clic pe Nou buton. În Adăugați noi categorie dialog, tastați „Trimiteți e-mailuri recurente" in Nume si Prenume camp; și apoi alegeți o culoare în Culori lista verticală. Apoi apasa OK.

3. Apoi veți vedea „Trimiteți e-mailuri recurente”Este listată, bifați caseta, apoi faceți clic pe OK butonul.

Partea 3: Setați recurența

Acum, este timpul să setați recurența pentru programare.

1. clic Repetare în Opţiuni grup sub Numire filă. Vedeți captura de ecran:

2. În Repetarea numirii dialog, configurați-vă Repetare model. Dacă aveți nevoie de o dată de încheiere, vă rugăm să o configurați în Gama de recurență. Apoi faceți clic pe OK.

3. Când revine la Numire dialog, vă rugăm să faceți clic pe Salvați și închideți buton. Vedeți captura de ecran:

Partea 4: Utilizați codul VBA pentru a trimite e-mailurile recurente programate

1. Vă rugăm să apăsați Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații dialog.

2. Faceți dublu clic pe Project1 > Obiect Microsoft Outlook > Această sesiune Outlook în panoul din stânga. Vedeți captura de ecran:

3. Copiați și lipiți următorul cod VBA în editorul VBA. Și apoi faceți clic pe Economisiți butonul.

VBA: trimiterea e-mailurilor recurente

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. clic Instrumente > Referinte pentru a deschide Referinte - Proiect dialog. În casetă de dialog, verificați Biblioteca de obiecte Microsoft Word și faceți clic pe OK butonul.

5. apasă pe Alt + Q tastele în același timp pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

Cand Memento popping up, e-mailul va fi trimis automat destinatarilor pe care i-ați introdus în câmpul Locație din prima parte. Apoi apasa destitui în Memento dialog. Și e-mailul va fi trimis în fiecare zi în acest timp. Vedeți captura de ecran:

notițe: Codul VBA a fost testat cu succes în Outlook 2010 și versiunile ulterioare.


Trimiteți cu ușurință programarea e-mailurilor recurente în Outlook cu un instrument uimitor

Pentru mulți utilizatori Outlook, metoda de mai sus este prea obositoare pentru a fi tratată corect. Aici recomandăm cu tărie Programează trimiterea automată caracteristică a Kutools pentru Outlook. Cu această funcție, puteți crea cu ușurință mai multe e-mailuri recurente și puteți programa aceste e-mailuri pentru a le trimite în mod regulat la intervale zilnice, săptămânale, lunare sau anuale, după cum aveți nevoie. Vă rugăm să faceți următoarele pentru a face acest lucru.

Mergi la pagina descărcați Kutools pentru Outlook și încearcă.

1. clic Kutools > Programează trimiterea automată > Creați program de trimitere automată.

2. Apoi se deschide o fereastră de mesaje și trebuie să:

2.1) Selectați destinatarii e-mailului în Către, Cc or Bcc câmpuri după cum aveți nevoie, apoi completați e-mailul subiect;
2.2) Compuneți corpul e-mailului;
2.3) Faceți clic pe Repetare în temeiul Kutools Recurent filă. Vedeți captura de ecran:

3. Acum Recurența e-mailurilor caseta de dialog apare, trebuie să specificați timpul recurent, tipar recurent si intervalul de recurență pentru e-mail, apoi faceți clic pe OK butonul.

4. Acum revine la fereastra mesajului, faceți clic pe Salvați și închideți pentru a salva setările recurente și a închide fereastra.

Sfat: Puteți repeta pașii de la 1 la 4 de mai sus pentru a crea mai multe e-mailuri recurente după cum aveți nevoie.

5. Acum activați caracteristica făcând clic pe Kutools > Programează trimiterea automată > Permite.

6. În deschidere Kutools pentru Outlook casetă de dialog, faceți clic pe OK.

După finalizarea setărilor de mai sus, e-mailurile recurente vor fi trimise automat la data și ora specificate.

Notă: Vă puteți gestiona cu ușurință e-mailurile recurente după cum urmează.

1. clic Kutools > Programează trimiterea automată > Gestionați programul de trimitere automată.

2. În Gestionează programul de trimitere automată fereastră, puteți crea nou e-mail recurent, editați, ștergeți, aprinde or de pe un e-mail recurent existent, după cum aveți nevoie. Sau puteți face clic pe Log pictogramă pentru a vizualiza istoricul trimiterilor de e-mailuri recurente.

Faceți clic pentru a afla mai multe despre această caracteristică.

  Kutools pentru Outlook include peste 100 de caracteristici puternice pentru Microsoft Outlook. Încercare gratuită fără limitări în 60 de zile. Descarcă acum!


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (171)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,
J'utilise outlook depuis peu, et j'ai découvert cette manipulation pour envoyer un mail récurrent. Cela a très bien fonctionné la première fois, mais je ne comprends pas, ça ne fonctionne plus. Cela a peut-être de l'importance, mais comme je travaille sur 2 ordinateurs différents, le code VBA a aussi été intégré sur ma deuxième session outlook. Auriez-vous une explication je vous prie ?
Merci d'avance
This comment was minimized by the moderator on the site
Hi Pink,
Which Outlook version are you using? Is there a reminder dialog box popping up afterwards?
This comment was minimized by the moderator on the site
This feature does not work for me no matter what I do and from the above thread, it doesn't look like they are attempting to fix it much less address it--I don't see any responses from the developer.

It's too bad because everything else with this product works very well.
This comment was minimized by the moderator on the site
Hi Rhonda Corn,
Can you provide the emails under the following folder path?
You can compress it and send it to
C:\Users\User Name\AppData\Roaming\ExtendOffice\OutlookKutools\KTORecurringEmail
This comment was minimized by the moderator on the site
How do I get this to run 2 different scheduled emails?
This comment was minimized by the moderator on the site
Hi, 
When I put recipients names into "location" it changes "appointment" to "meeting" invite, is this working as intended? It doesn't allow me to "save and close", but rather "send" the invite now which is not what I want to do.
This comment was minimized by the moderator on the site
Hi,Appointments are not changed to meetings when entering content into the Location field. 
This comment was minimized by the moderator on the site
I scheduled the reoccurring email however instead of sending email on the 30th it sent it today. I checked the settings and is set to send email on 30th at 10 am. Instead it sent the email on the 17th at 5:45 PM
This comment was minimized by the moderator on the site
Hi Leah,Sorry for the trouble, the problem you described cannot be reproduced. Here suggest using the relevant function of KTO to send a schedule recurring email.
This comment was minimized by the moderator on the site
I’m trying to set up a recurring email to be sent. However, it’s not working for some reason. It acts like it’s trying, but I get this error message:
This comment was minimized by the moderator on the site
Hi,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
It is enabled
This comment was minimized by the moderator on the site
It is enabled already
This comment was minimized by the moderator on the site
I had the same problem.  I had a look in the available references list and found a second Microsoft Word 16.0 Object Library that was not enabled. Once I enabled that one, it solved the problem for me!
This comment was minimized by the moderator on the site
Hello, 
Several errors to easily solve if the mail stays in "draft" : 
-> Add .Save juste before .Send
-> Don't close everything too fast or the script wouldn't have the time to send the mail that it has been cleaned... so find a way to delay those 2 rows 
Set xMailItem = Nothing
VBA.Kill xFldPath
Maybe with a thread sleep/wait ? Is the killing mandatory ? wouldn't this be killed when outlook is closed ? For my usecase, it was ok to remove them
This comment was minimized by the moderator on the site
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.

Thanx,
RLB
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Hi tarnold,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.

<div data-tag="code">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
This comment was minimized by the moderator on the site
Crystal,
Sorry for the delay.  I copied your script into VBA.  My category is "Recurring Email", so I made it match in your script.  I set up a recurring email to test it.  The reminder window pops up at the correct time.  I waited a couple of minutes and then clicked 'dismiss'.  The window closes.  No errors.  No email sent.
This comment was minimized by the moderator on the site
Hi Crystal, when using the code above I have this error: 
Erreur de compilation: Type défini par l'utilisateur non défini
it's concerning this lineDim xItemDoc As Word.Document

any ideas?
This comment was minimized by the moderator on the site
Hi Marie-Eve Noel,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Hi Crystal,
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.
This comment was minimized by the moderator on the site
Crystal,   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.
This comment was minimized by the moderator on the site
Crystal,   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.
Thanx,RLB
This comment was minimized by the moderator on the site
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?
thanks.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Hi J,You can try the second method "the Schedule auto send feature of Kutools for Outlook" mentioned in the post.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations