Re : envoi pièce jointe par Mail à x destinataires
bonsoir,
Je n'ai pas testé mais vu le code si on fait cela, ça envoie plusieurs mails, pas un seul avec les trois destinataires:
Dim Tableau As Variant
Dim i As Integer
Tableau = Array('mail1@adresse.com', 'mail2@adresse.fr', 'mail3@adresse.com')
For i = 0 To 2
ActiveWorkbook.SendMail Recipients:=Tableau(i), Subject:='BT du jour'
Next i
il faut supprimer la boucle du For i = 0 to 2, et seulement mettre :
ActiveWorkbook.SendMail Recipients:=Tableau, Subject:='BT du jour'
Sinon, je cherche à faire la meme chose, envoyer un mail à partir du fichier excel que je veux faire parvenir à plusieurs destinataires, mais je veux que la macro trouve les destinataires dans une feuille Excel
J'ai cette solution là :
Dim I as integer
I = 0
Dim destinataire(100) as variant
do until isempty(currentcell) 'je boucle jusqu'à la fin de ma liste
i = i + 1
destinataire(i) = currentcell.value
set currentcell = currentcell.offset(1,0)
loop
Tableau = array(destinaire(1), destinataire(2)...)
ActiveWorkbook.SendMail Recipients:=Tableau, Subject:=...
Je n'aime pas du tout, je cherche à remplir le tableau sans avoir à écrire autant de 'destinataire(i)' qu'il y a d'adresse mail dans ma liste
merci de votre aide
sgu
