Passer au contenu principal

Comment envoyer un e-mail récurrent planifié dans Outlook?

Dans Microsoft Outlook, vous pouvez facilement envoyer un rendez-vous, une réunion ou une tâche périodique à d'autres personnes. Mais si vous souhaitez simplement envoyer un e-mail périodique sans rendez-vous, réunion ou tâche, comment pouvez-vous faire? Malheureusement, Outlook ne fournit aucune fonctionnalité pour l'envoi d'e-mails récurrents planifiés, mais dans notre didacticiel, nous vous montrerons comment envoyer un e-mail récurrent planifié dans Outlook.

Envoyer un e-mail périodique planifié dans Outlook avec le code VBA

Envoyez facilement des e-mails récurrents dans Outlook avec un outil incroyable


Envoyer un e-mail périodique planifié dans Outlook avec le code VBA

Ce tutoriel est divisé en quatre parties, vous réussirez à envoyer un e-mail de planning récurrent après avoir terminé ces parties. Veuillez faire comme suit.

Partie 1 : Créer un nouveau rendez-vous

1. Veuillez accéder au Calendrier voir en cliquant Calendrier dans l' Volet de navigation, puis créez un nouveau rendez-vous en cliquant sur Nouveau rendez-vous sous Accueil languette.

3. dans le Rendez-vous dialogue sous Rendez-vous languette. Tu dois:

R: Tapez le Sujet B: saisissez les adresses e-mail des destinataires dans le Localisation
C: Configurez le Heure de début les nouveautés Heure de fin D: Sélectionnez le rappel sous Rappel la liste déroulante.
Si vous choisissez 15 minutes, cela signifie qu'il vous rappellera 15 minutes à l'avance lorsque l'e-mail est envoyé.
E: Composez le corps de votre rendez-vous.

Notes: Les Objet du rendez-vous deviendra le sujet de l'e-mail récurrent; et le Organe de nomination deviendra le corps de l'e-mail récurrent lorsque les destinataires auront reçu l'e-mail.

Partie 2 : Créer une nouvelle catégorie

Vous devez maintenant créer une nouvelle catégorie nommée "Envoyer un e-mail récurrent" comme suit:

1. dans le Rendez-vous dialogue, veuillez cliquer Classer par catégories > Toutes les catégories dans l' Tags groupe sous Rendez-vous languette.

2. Quand le Catégories de couleurs boîte de dialogue qui apparaît, veuillez cliquer Nouveauté bouton. dans le Ajouter une nouvelle catégorie boîte de dialogue, tapez "Envoyer un e-mail récurrent"Dans le Nom, Prénom champ; puis choisissez une couleur dans le Couleur la liste déroulante. Puis clique OK.

3. Ensuite, vous verrez le "Envoyer un e-mail récurrent"Catégorie" est répertoriée, veuillez cocher la case, puis cliquez sur OK .

Partie 3 : Définir la récurrence

Il est maintenant temps de définir la périodicité du rendez-vous.

1. Cliquez Récurrence dans l' Options groupe sous Rendez-vous languette. Voir la capture d'écran:

2. dans le Récurrence de rendez-vous boîte de dialogue, configurez votre Récurrence modèle. Si vous avez besoin d'une heure de fin, veuillez la configurer sous Gamme de récidive. Et puis cliquez OK.

3. Lorsqu'il revient au Rendez-vous dialogue, veuillez cliquer Sauvegarder et fermer bouton. Voir la capture d'écran:

Partie 4: Utilisez le code VBA pour envoyer l'e-mail récurrent de planification

1. Veuillez appuyer sur autre + F11 ouvrir le Microsoft Visual Basic pour applications dialogue.

2. Double-cliquez sur Project1 > Objet Microsoft Outlook > Cette session Outlook dans le volet gauche. Voir la capture d'écran:

3. Copiez et collez le code VBA suivant dans l'éditeur VBA. Et puis cliquez Épargnez .

VBA: envoi d'e-mails récurrents programmés

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. Cliquez Outils > Bibliographie ouvrir le Bibliographie - Projet dialogue. Dans la boîte de dialogue, cochez Bibliothèque d'objets Microsoft Word option et cliquez sur le OK .

5. appuie sur le autre + Q clés en même temps pour fermer le Microsoft Visual Basic pour applications fenêtre.

When the Rappel apparaîtra, l'e-mail sera automatiquement envoyé aux destinataires que vous avez tapés dans le champ Emplacement dans la première partie. Puis clique Fermer dans l' Rappel dialogue. Et l'e-mail sera envoyé de manière récurrente tous les jours pendant cette période. Voir la capture d'écran:

Notes: Le code VBA a été testé avec succès dans Outlook 2010 et les versions ultérieures.


Envoyez facilement des e-mails récurrents dans Outlook avec un outil incroyable

Pour de nombreux utilisateurs d'Outlook, la méthode ci-dessus est trop fastidieuse pour être gérée correctement. Ici, je recommande vivement le Planifier l'envoi automatique caractéristique de Kutools for Outlook. Avec cette fonctionnalité, vous pouvez facilement créer plusieurs e-mails récurrents et programmer ces e-mails pour qu'ils soient envoyés régulièrement à des intervalles quotidiens, hebdomadaires, mensuels ou annuels selon vos besoins. Veuillez procéder comme suit pour le faire.

Cliquez sur télécharger Kutools pour Outlook et essayez.

1. Cliquez Kutools > Planifier l'envoi automatique > Créer un programme d'envoi automatique.

2. Ensuite, une fenêtre de message s'ouvre et vous devez :

2.1) Sélectionnez les destinataires de l'e-mail dans la À cc or Bcc champs selon vos besoins, puis remplissez l'e-mail matière;
2.2) Composez le corps de l'e-mail ;
2.3) Cliquez sur Récurrence sous le Kutools récurrent languette. Voir la capture d'écran:

3. Maintenant, le Récurrence des e-mails boîte de dialogue s'ouvre, vous devez spécifier le temps récurrent, motif récurrent les nouveautés gamme de récurrence pour l'e-mail, puis cliquez sur le OK .

4. Maintenant, il revient à la fenêtre de message, cliquez sur Sauvegarder et fermer pour enregistrer les paramètres récurrents et fermer la fenêtre.

Conseils: Vous pouvez répéter les étapes 1 à 4 ci-dessus pour créer plusieurs e-mails récurrents selon vos besoins.

5. Activez maintenant la fonctionnalité en cliquant sur Kutools > Planifier l'envoi automatique > Activer.

6. Dans l'ouverture Kutools for Outlook boîte de dialogue, cliquez sur D'ACCORD.

Après avoir terminé les réglages ci-dessus, les e-mails récurrents seront envoyés automatiquement lorsque la date et l'heure spécifiées seront atteintes.

Remarque: Vous pouvez facilement gérer vos e-mails récurrents comme suit.

1. Cliquez Kutools > Planifier l'envoi automatique > Gérer le calendrier d'envoi automatique.

2. dans le Gérer le calendrier d'envoi automatique fenêtre, vous pouvez créer neufs e-mail récurrent, modifier, supprimer, allumer or de rabais un e-mail récurrent existant selon vos besoins. Ou vous pouvez cliquer sur le Bûche pour afficher l'historique d'envoi des e-mails récurrents.

Cliquez pour en savoir plus sur cette fonctionnalité.

  Kutools for Outlook comprend plus de 100 fonctionnalités puissantes pour Microsoft Outlook. Essai gratuit sans limitation dans 60 jours. Téléchargez maintenant!


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

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