Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Un sendmail pour un groupe de destinataires

Un sendmail pour un groupe de destinataires

4 réponses
Avatar
René Delcourt
Bonjours à toutes et à tous,

Je ne parviens pas à adapter mon code (qui fonctionne avec une seule
adresse) à plusieurs destinataires (le même mail)
J'ai essayé
EmailSendTo = Array("RDE", "RDE")
EmailSendTo = "RDE,RDE"
EmailSendTo = "RDE" & "," & "RDE"
mais rien n'y fait
--
René Delcourt
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Tu n'es pas loin :
ThisWorkbook.SendMail Recipients:=Array("RDE", "RDE")

Cordialement
Pascal

"René Delcourt" a écrit dans le message de news:

Bonjours à toutes et à tous,

Je ne parviens pas à adapter mon code (qui fonctionne avec une seule
adresse) à plusieurs destinataires (le même mail)
J'ai essayé
EmailSendTo = Array("RDE", "RDE")
EmailSendTo = "RDE,RDE"
EmailSendTo = "RDE" & "," & "RDE"
mais rien n'y fait
--
René Delcourt


Avatar
René Delcourt
Merci mais ça ne fonctionne pas avec Lotus Notes...
...
AdrMail = AdM(W)
Call SendMail(AdrMail, "Relations Clients - Statistiques/Statistik")
...
Public Function SendMail(EmailSendTo As String, EmailSubject As String)
On Error GoTo SendMailError
EmailSendTo = Array(AdrMail)

--
René Delcourt



Bonjour
Tu n'es pas loin :
ThisWorkbook.SendMail Recipients:=Array("RDE", "RDE")

Cordialement
Pascal

"René Delcourt" a écrit dans le message de news:

Bonjours à toutes et à tous,

Je ne parviens pas à adapter mon code (qui fonctionne avec une seule
adresse) à plusieurs destinataires (le même mail)
J'ai essayé
EmailSendTo = Array("RDE", "RDE")
EmailSendTo = "RDE,RDE"
EmailSendTo = "RDE" & "," & "RDE"
mais rien n'y fait
--
René Delcourt







Avatar
Jean-François Aubert
Salut René,

J'utilise aussi Lotus Notes pour l'envoi de Mail et je ne suis jamais arrivé
à faire un envoi à plusieurs destinataires.
Je boucle sur la macro d'envoi le nombre de fois nécessaire.....

Si quelqu'un à la solution, René et moi sommes preneurs!

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"René Delcourt" a écrit dans le message de news:

Merci mais ça ne fonctionne pas avec Lotus Notes...
...
AdrMail = AdM(W)
Call SendMail(AdrMail, "Relations Clients - Statistiques/Statistik")
...
Public Function SendMail(EmailSendTo As String, EmailSubject As String)
On Error GoTo SendMailError
EmailSendTo = Array(AdrMail)

--
René Delcourt



Bonjour
Tu n'es pas loin :
ThisWorkbook.SendMail Recipients:=Array("RDE", "RDE")

Cordialement
Pascal

"René Delcourt" a écrit dans le message de news:

Bonjours à toutes et à tous,

Je ne parviens pas à adapter mon code (qui fonctionne avec une seule
adresse) à plusieurs destinataires (le même mail)
J'ai essayé
EmailSendTo = Array("RDE", "RDE")
EmailSendTo = "RDE,RDE"
EmailSendTo = "RDE" & "," & "RDE"
mais rien n'y fait
--
René Delcourt









Avatar
René Delcourt
Salut,
Ceci a l'air de fonctionner :
http://www.excelkb.com/article.aspx?id095&cNode=1X5M7A
--
René Delcourt



Salut René,

J'utilise aussi Lotus Notes pour l'envoi de Mail et je ne suis jamais arrivé
à faire un envoi à plusieurs destinataires.
Je boucle sur la macro d'envoi le nombre de fois nécessaire.....

Si quelqu'un à la solution, René et moi sommes preneurs!

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"René Delcourt" a écrit dans le message de news:

Merci mais ça ne fonctionne pas avec Lotus Notes...
...
AdrMail = AdM(W)
Call SendMail(AdrMail, "Relations Clients - Statistiques/Statistik")
...
Public Function SendMail(EmailSendTo As String, EmailSubject As String)
On Error GoTo SendMailError
EmailSendTo = Array(AdrMail)

--
René Delcourt



Bonjour
Tu n'es pas loin :
ThisWorkbook.SendMail Recipients:=Array("RDE", "RDE")

Cordialement
Pascal

"René Delcourt" a écrit dans le message de news:

Bonjours à toutes et à tous,

Je ne parviens pas à adapter mon code (qui fonctionne avec une seule
adresse) à plusieurs destinataires (le même mail)
J'ai essayé
EmailSendTo = Array("RDE", "RDE")
EmailSendTo = "RDE,RDE"
EmailSendTo = "RDE" & "," & "RDE"
mais rien n'y fait
--
René Delcourt