Je recherche à automatiser l'envoi de mails de relance sur outlook depuis excel.
Je dispose d'un fichier excel qui répertorie en fonction de chaque individu, une date limite. Lorsque cette date est dépassée, pour chaque individu, dans une autre cellule correspondante s'inscrit un message du type "alerte, mail de relance" et cette cellule devient rouge.
Ex :
A1 : client 1 / B1 : date limite / C1 : cette cellule devient rouge lorsque la date limite est dépassée, et dans cette cellule le texte suivant est inscrit "alerte, mail de relance" / D1 : cette cellule indiquerait la date d'envoi du mail au client 1
A2 : client 2 / B2 : date limite / C2 : cette cellule devient rouge lorsque la date limite est dépassée, et dans cette cellule le texte suivant est inscrit "alerte, mail de relance" / D2 : cette cellule indiquerait la date d'envoi du mail au client 2
.
.
.
A1000 : client 1000 / B1000 : date limite / C1000 : cette cellule devient rouge lorsque la date limite est dépassée, et dans cette cellule le texte suivant est inscrit "alerte, mail de relance" / D1000 : cette cellule indiquerait la date d'envoi du mail au client 1000
Je souhaiterais avoir une macro qui exécuterait la demande suivante : pour chaque cellule de la colonne C qui est rouge ou indique le message "alerte, mail de relance", la macro remonte à chaque fois à l'utilisateur le nom de chaque individu en demandant à utilisateur d'inscrire dans une première fenêtre le 1er destinataire (email 1) puis dans une 2e fenêtre le 2e destinataire, en copie du mail (email 2). Lorsque le mail a été envoyé pour l'individu 1, la macro parcoure les autres cellules et redemande les mêmes éléments précédents si la condition est toujours respectée (cellule rouge ou indique le message "alerte, mail de relance"). Enfin la macro finirait en indiquant la date du mail envoyé dans les cellules correspondantes de la colonne D.
En résumé, à chaque fois que la macro rencontre une cellule de la colonne C qui est rouge ou indique le message "alerte, mail de relance", alors elle remonte premièrement le nom de l'individu, deuxièmement elle demande à l'utilisateur dans une 1ère fenêtre le 1er destinataire (email 1), troisièmement elle demande à l'utilisateur dans une 2e fenêtre le 2e destinataire, en copie du mail (email 2), quatrièmement elle inscrit la date d'envoi du mail dans la cellule de la colonne D correspondante (cf exemple ci-dessus).
Les destinataires sont des variables changeantes, c'est pour cette raison qu'il serait préférable que la macro demande à l'utilisateur l'email.
Est-ce possible et y a t-il une synchronisation ou connexion ou configuration à faire entre outlook et excel ?
Merci à tous et à toutes pour votre assistance.
A voir également:
Envoi mail automatique excel vba
Macro outlook envoi mail automatique - Meilleures réponses
Envoi mail automatique depuis excel selon date - Meilleures réponses
Je peux comprendre le fonctionnement des macros car j'ai des connaissances dans ce domaine (des bases comme la définition des variables et l'utilisation des boucles par exemple); mais hélas j'ai besoin d'aide pour la création
Re,
Ok, j'ai un fichier qui fait en auto ce que vous demandez a l'ouverture, mais sans demande de saisie et c'est sur date que le test est fait. Soit vous le modifiez ou je vous avance dans la demarche.
Par contre, pour vos Utilisateurs, j'espere qu'il n'y aura pas 50 envois de Mail car saisir les dests ca va etre quelque peut gonflant
Vous pouvez mettre un fichier model a dispo sans donnees confidentielles??
Fichier pour envoi sur saisie 2 dests dont un Copie, la procedure Workbook.open est invalidee avec un x devant Workbook. x a enlever des que Ok pour vous de meme qu'un exit for dans procedure envoi mail
https://mon-partage.fr/f/Ki1IS90N/
J'ai mis un contrôle simplifie pour les adresses @Mail a vous de voir .....
C'est à mon tour de vous dire bravo ! J'ai effectué quelques tests... nickel, merci; j'ai 2 suggestions à faire au sujet du mail et donc 2 versions de macro.
- La 1ère macro (celle que vous avez créée) : est-ce possible que le mail qui est remonté soit un mail type, de sorte que l'utilisateur a juste à vérifier et/ou modifier le contenu puis à envoyer le mail.
Ex de l'objet du mail type : Dossier X - relance
Ex du corps du mail type:
Bonjour,
Sauf erreur, nous restons dans l'attente de votre retour sur ce dossier.
Si vous rencontrez des difficultés, nous restons à votre disposition.
Cordialement.
L'équipe X
Service client
- La 2e macro : ce serait la même que la première à la différence qu'elle ne remonterait pas le mail à l'utilisateur (comme ce que fait la macro 1); elle enverrait directement le même objet et corps de mail type ci-dessus aux adresses renseignées par l'utilisateur. Seul, l'objet du mail est variable, ça me parait compliqué pour l'objet du mail.
A la base c'est l'idée de la 2e macro que j'avais en tête : elle parcoure la colonne W, à chaque fois qu'elle rencontre du rouge ou le message d'alerte, elle remonte le nom du client et demande les adresses mail des destinataires. C'est exactement ce que votre macro fait. En complément, je souhaiterais que lorsqu'elle a parcouru toutes les colonnes, elle envoie directement l'objet et le corps du mail type ci-dessus à toutes les adresses alors déjà renseignées par l'utilisateur. Enfin, elle remonterait juste "Mails envoyés" pour confirmation et implémenterait les dates d'envois de mail dans la colonne Y (ce que la macro 1 fait déjà).
Je vous propose ces 2 versions car je pense que dans le cadre de mon travail, il y aura des gens qui voudront adapter le mail (c'est la macro 1) et d'autres qui voudront envoyer le mail type directement et c'est ce que font déjà les grandes entreprises (c'est la macro 2).
les commentaires en vert m'ont beaucoup aidé merci. J'ai pu adapter le mail de la macro comme suit et ça marche mais je ne reçois pas de mail pourtant j'ai enlevé le "X" et "exit for":
contenu = "Bonjour," & Chr(10) & Chr(13)
'contenu message a adapter
contenu = contenu & "Sauf erreur, nous n'avons pas eu de retour concernant le dossier de ..." & Chr(10) & Chr(13)
contenu = contenu & "Si vous rencontrez des difficultés, nous restons à votre disposition pour vous aider à finaliser ce dossier" & Chr(10) & Chr(13)
contenu = contenu & "Très cordialement" & Chr(10) & Chr(13)
contenu = contenu & "Nico" & Chr(10) & Chr(13)
contenu = contenu & "La Team" & Chr(10) & Chr(13)
contenu = contenu & "Responsable 1, Responsable 2, Responsable 3, Responsable 4, Responsable 5" & Chr(10) & Chr(13)
strbody = contenu
With OutMail
.To = Dest
.CC = DestCopie
.BCC = ""
.Subject = "Dossier X"
.Body = strbody
Est-ce possible de ne remonter les fenêtres du client suivant que lorsque le mail en cours est parti car j'ai constaté que lorsque l'utilisateur est en train d'envoyer le mail, un autre formulaire (pour le client suivant) est lancé.
mais je ne reçois pas de mail pourtant j'ai enlevé le "X" et "exit for": Je regarde
le mail en cours est parti car j'ai constaté Si vous avez enleve le ' devant .send et mis le meme ' devant .display: le @mail part instantanément.
adapter le mail (c'est la macro 1) Ca consiste en quoi???
En attendant, fichier avec des ameliorations pour sortir sans attendre la fin de la colonne W4
Chez moi, les @Mails sont recus seulement si .Send pas si .Display (?????) me semble que ca marchait !!
Mais bon, si OK en auto....
Bonjour, "adapter le mail" c'était pour avoir un visu dans la fenêtre outlook avant de l'envoyer.
Je rencontre quelque soucis après quelques tests. Ci-après une partie de la macro; le reste de la macro étant inchangé ;
'-----------------------------
If Flg_Ok_Env = False Then
MsgBox "Pas d'envoi....!!!!"
Exit For 'a enlever des mise au point OK
Else
cel.Offset(, 2) = Date
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Contenu = ""
'contenu message a adapter
Contenu = Contenu & "Delivery of" & " " & cel.Offset(, -4) & " from " & cel.Offset(, -7) & ". " & cel.Offset(, -6) & vbTab
strbody = Contenu
With OutMail
.To = Dest
.CC = DestCopie
.BCC = ""
.Subject = "Delivery of" & " " & cel.Offset(, -4) & " in process."
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Display 'ouverture d'Outlook pour test et visu contenu de l'@Mail
'or use
.Send 'pas d'ouverture d'Outlook
J'ai vu ce qui se passe quand j'applique cette macro (exactement comme ci-dessus) et ça me convient. Sauf que je ne reçois pas de message quand je le fais sur mon ordi perso. Pouvez-vous m'aider svp, ce serait top. Merci
Fichier modifie pour sortie de l'UF: https://mon-partage.fr/f/5IFauEW8/ (probleme de drapeaux)
Mais, vous ne pouvez pas recevoir de @Mail adresse a vous meme si .Display actif. C'est ce detail que j'avais un peu oublie
Bonjour,
Problème de drapeau ?
Merci pour le fichier, mais le mail n'est toujours pas envoyé. Peut-être qu'il y a quelque chose que je fais mal. Ci-après le lien avec le fichier (même quand je mets le ' devant send, ça ne marche pas). Merci
Chez moi, marche tres bien.....................
Mais (même quand je mets le ' devant send, ça ne marche pas). : si vous vous envoyez un @Mail ce n'est pas .Send qu'il faut mettre en commentaire mais .Display
- Messages postés
-
16045
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 22 octobre 2021
1 551Ok, j'ai un fichier qui fait en auto ce que vous demandez a l'ouverture, mais sans demande de saisie et c'est sur date que le test est fait. Soit vous le modifiez ou je vous avance dans la demarche.
Par contre, pour vos Utilisateurs, j'espere qu'il n'y aura pas 50 envois de Mail car saisir les dests ca va etre quelque peut gonflant
Vous pouvez mettre un fichier model a dispo sans donnees confidentielles??