Note: The other languages of the website are Google-translated. Back to English

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 le 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 Lieu
C: Configurez le Heure de début et le 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: Le 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 > Catégories dans le 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 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 le 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 Enregistrer .

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 > Références ouvrir le Références - 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 le 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 pour 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 et le 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 pour 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 Neuf (ve) 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 pour Outlook comprend plus de 100 fonctionnalités puissantes pour Microsoft Outlook. Essai gratuit sans limitation dans 60 jours. Téléchargez maintenant!


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (171)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
La méthode a aidé. Cela a fonctionné pour le premier rendez-vous créé lorsque je l'ai testé. Mais il a cessé de fonctionner plus tard.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème, j'ai répété les étapes plusieurs fois et maintenant cela ne fonctionne plus du tout, aucun e-mail n'est envoyé ou quoi que ce soit. Avez-vous pu le résoudre ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'ai pu configurer un e-mail récurrent en suivant les étapes ci-dessus, mais lorsque j'ai créé un lien hypertexte dans le corps d'un rendez-vous, lorsque l'événement a été déclenché et que j'ai reçu un courrier dans le courrier, le lien hypertexte a été converti en lien brut. Toute aide est appréciée, merci.
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Cela a fonctionné. Existe-t-il un moyen d'inclure une pièce jointe dans l'e-mail envoyé ? J'ai essayé un test en ajoutant la pièce jointe à l'événement de calendrier, mais cela n'apparaît pas dans l'e-mail.
Ce commentaire a été minimisé par le modérateur sur le site
avez-vous déjà obtenu une réponse sur la façon d'ajouter une pièce jointe ? Merci!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai réussi à faire fonctionner cela pour l'e-mail de test, mais maintenant cela ne fait plus rien, et j'ai tout supprimé et répété les étapes, y a-t-il plus à cela ? je suis aussi sous outlook 2013
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème. Cela a fonctionné la toute première fois mais le rappel de rendez-vous récurrent ne semble pas avoir déclenché l'e-mail. Quelqu'un a-t-il trouvé une solution à ce problème?
Ce commentaire a été minimisé par le modérateur sur le site
[quote]Je l'ai fait fonctionner pour l'e-mail de test, mais maintenant il ne fait plus rien, et j'ai tout supprimé et répété les étapes, y a-t-il plus à cela ? je suis aussi sous outlook 2013Par Merveilleux[/quote] Avez-vous déjà résolu ce problème ? Je viens de configurer cela et je vois la même chose que vous. A bien fonctionné la première fois puis plus rien.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai finalement résolu ce problème en activant les macros dans Outlook, qui est désactivé par défaut. Le seul problème que j'ai maintenant est que le texte de l'e-mail est uniquement en texte brut, aucun changement de gras, de taille de police ou de couleur, etc. Existe-t-il un moyen de modifier le code ci-dessus afin d'avoir du texte RTF ou HTML dans l'e-mail ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Avez-vous résolu cela. J'ai le même problème J'ai essayé ceci, mais cela ne fonctionne pas. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing)) 'OlBodyFormat.olFormatUnspecified = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 Si (mailFormat = 1) Alors mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.SetProperty, _ Nothing, mail, New Object() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item .Categories "Send Schedule Recurring Email" Then Exit Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Ce commentaire a été minimisé par le modérateur sur le site
[quote]J'ai finalement réglé ce problème en activant les macros dans Outlook qui est désactivé par défaut. Le seul problème que j'ai maintenant est que le texte de l'e-mail est uniquement en texte brut, aucun changement de gras, de taille de police ou de couleur, etc. Existe-t-il un moyen de modifier le code ci-dessus afin d'avoir du texte RTF ou HTML dans l'e-mail ?Par Kyle[/quote] Salut Avez-vous trouvé une solution pour cela. J'en ai besoin pour :) Kim
Ce commentaire a été minimisé par le modérateur sur le site
Vous pouvez également envisager d'utiliser le planificateur de tâches Windows pour quelque chose comme ça. Il est facile à utiliser et peut même gérer les pièces jointes.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé avec la tâche mais je ne gagne rien car la pièce jointe ne va pas dans le corps de l'e-mail. Veuillez indiquer comment vous l'avez fait.
Ce commentaire a été minimisé par le modérateur sur le site
Quel code utilisez-vous ? Il n'a pas joint à l'e-mail les pièces jointes.
Ce commentaire a été minimisé par le modérateur sur le site
comment tu l'éteins?
Ce commentaire a été minimisé par le modérateur sur le site
Du haut de ma tête, pour arrêter d'envoyer l'e-mail récurrent, vous pouvez soit : 1. Supprimer complètement le rendez-vous. 2. Modifiez ou supprimez la catégorie définie. 3. Appliquez une date de fin à la récurrence du rendez-vous.
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous besoin d'avoir Outlook ouvert/en cours d'exécution pour envoyer le courrier récurrent ?
Ce commentaire a été minimisé par le modérateur sur le site
Ce code fonctionne-t-il avec Office 365 - Outlook 2013 ? J'ai suivi les étapes plusieurs fois, j'ai également activé les macros. Je reçois le rappel et j'appuie sur Ignorer, mais les e-mails ne sont jamais envoyés.
Ce commentaire a été minimisé par le modérateur sur le site
Hé, regardez ça - je pense que vous allez adorer cette fonctionnalité. Plus de modèles d'e-mails hebdomadaires
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen d'envoyer à la liste de distribution dans les contacts ?
Ce commentaire a été minimisé par le modérateur sur le site
Oui Aaron, je devais le faire moi-même. J'ai essayé d'ajouter une liste de distribution (Outlook Contact Group) appelée "Spec Group". Cela n'a pas envoyé. Cependant, j'ai changé le nom de la liste en 'Spec@Group' (pour la faire ressembler à une véritable adresse e-mail) et cela a parfaitement fonctionné. Il doit avoir besoin du '@' pour être récupéré. Coup de chance! :mdr:
Ce commentaire a été minimisé par le modérateur sur le site
Cela a bien fonctionné. Maintenant, j'ai besoin du même e-mail pour accéder à plusieurs groupes. Quelqu'un peut-il aider? Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items("GDL Group 1") Dim MItem As MailItem Set MItem = Application. CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item.Categories "Recurring GDL Recert Email" Then Exit Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Envoyer Set MItem = Nothing End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Créez une autre liste de distribution qui contient/pointe vers les autres listes de distribution que vous avez déjà configurées et que vous souhaitez inclure.
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de planifier l'envoi d'un e-mail dans Outlook lorsque l'ordinateur est parti. Par exemple, je voudrais envoyer un rappel de rendez-vous le dimanche pour une réunion le lundi, mais je ne suis pas au travail le dimanche, alors comment puis-je faire en sorte que cet e-mail soit envoyé le dimanche lorsque je ne suis pas au travail et que mon ordinateur est désactivé? Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Le code VBA n'est pas apparu lorsque j'ai appuyé sur ALT & F11. J'ai pu extraire Microsoft Visual Basic pour Applications, mais aucun code n'était présent. Pouvez-vous s'il vous plaît conseiller? Merci Raj
Ce commentaire a été minimisé par le modérateur sur le site
Salut Raj, aucun code VBA ne doit être présent. Si vous suivez le guide ci-dessus, lorsque vous double-cliquez sur "ThisOutlookSession", il est censé être vide. Vous devez copier et coller le code affiché dans le guide dans la fenêtre "ThisOutlookSession" puis l'enregistrer. J'espère que cela t'aides.
Ce commentaire a été minimisé par le modérateur sur le site
Salut quand je suis toutes les étapes et que j'enregistre et que je vais faire un autre e-mail - le code est toujours là depuis la dernière fois. Le code est-il attaché à la catégorie sélectionnée donc pas besoin d'ajouter le code pour chaque email ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Bonnie, le code VBA ne doit être ajouté qu'une seule fois (pour le premier e-mail récurrent). Si vous configurez plus d'un e-mail récurrent, sautez cette étape.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai Office 2016 et j'ai essayé ceci, en suivant exactement vos instructions. Ça a marché!! Merci beaucoup. J'ai dû modifier mes paramètres de sécurité de macro dans Outlook 2016 et l'éditeur VBA pour le faire fonctionner, mais une fois cela fait, les instructions se sont déroulées facilement.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Comment avez-vous modifié les paramètres de sécurité des macros dans Outlook et en quoi les avez-vous modifiés ?
Ce commentaire a été minimisé par le modérateur sur le site
Donc, deux choses, une, elle ne s'affiche pas comme je l'ai écrite, c'est-à-dire qu'il n'y a pas de caractères gras et deux, comment ajouter une signature ? car il apparaît comme un lien hypertexte au lieu de ma signature habituelle. Merci pour l'aide.
Ce commentaire a été minimisé par le modérateur sur le site
Alex Mine apparaît également avec le formatage supprimé. Comment le garde-t-on ?
Ce commentaire a été minimisé par le modérateur sur le site
Il a bien été envoyé, mais il a supprimé tout le formatage fantaisiste que j'ai dans le corps de mon e-mail. Comment puis-je l'obtenir pour conserver cette mise en forme ???
Ce commentaire a été minimisé par le modérateur sur le site
J'ai besoin de savoir comment \ si vous pouvez joindre une feuille de calcul Excel ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut les gars. Ce code fonctionne très bien mais j'ai un petit problème. L'e-mail que j'essaie d'envoyer fait partie de deux catégories : Envoyer un message (la macro utilise) et PROGRAMARI RED-TEAM. La macro fonctionne bien lorsque j'ajoute uniquement la catégorie Envoyer un message, mais dès qu'une autre catégorie est ajoutée, la macro arrête d'envoyer des e-mails. Voici le code jusqu'à présent. S'il vous plaît, aidez :P Private Sub Application_Reminder (ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem pour surveiller les rappels de tâche If Item.MessageClass "IPM.Appointment" Then Exit Sub End If If Item.Categories "Send Message" Then Exit Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie/Contract Service" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Conform bazei noastre de date, autorizatia/contractul de service, incheiat intre compania nostra si " + Item.Subject + " urmeaza sa expire in termen de 14 zile." & vbNewLine & _ "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta ise un mesaj automat." objMsg.Send Set objMsg = Nothing End Sub
Ce commentaire a été minimisé par le modérateur sur le site
il s'arrête à cause de la ligne... Si Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
lorsque vous ajoutez l'autre catégorie, il provoque le sous-marin de sortie.... peut-être utiliser if instr(1,item.categories,"Send Schedule Recurring Email") =0 then exit sub ou quelque chose comme ça...
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL