envoie email par vba

[greg954]

Bonjour à tous,
je sais que ce sujet à été traité un millier de fois mais je ne trouve pas le moyen de remplacer l'adresse email dans la macro par une liste d'adresse email contenu dans la feuil 2 de la cellule A1 à A3, j'arrive a faire fonctionner la macro comme ci dessous :

ActiveWorkbook.SendMail Recipients:="ttt@orange.fr", _
Subject:="Test envoi classeur", _
ReturnReceipt:=False
End Sub

Merci de votre aide

Greg

 

[greg954]

Re : envoie email par vba

Bon bah je me repond en partis mais j'ai toujours pas trouver:

ActiveWorkbook.SendMail Recipients:=ActiveSheet.Range("A1").Value, _
Subject:=ActiveSheet.Range("A3").Value, _
ReturnReceipt:=False

mais je n'arrive pas à depasser l'envoie d'un email je ne sais pas comment faire le deuxieme et troisieme destinataire

Greg

 

[Dull]

Re : envoie email par vba

Salut Greg954, le Forum

Peut-être avec une boucle du style

Sub EssAi()
Dim DerLig As Long, i As Integer
DerLig = ActiveSheet.Cells(Rows.Count & 1).End(xlUp).Row
For i = 1 To Range("A1:A") & DerLig
ActiveWorkbook.SendMail Recipients:=Range("A" & DerLig), _
Subject:="Test envoi classeur", _
ReturnReceipt:=False
Next i
End Sub

Pas testé 😱

Bonne Journée

 

[JNP]

Re : envoie email par vba

Re Dull, bonsoir Greg 🙂,
D'après l'aide, il attends un tableau 🙄...
A tester

Dim Tablo(2), I As Integer
For I = 0 To 2
Tablo(I) = Range("A" & I + 1)
Next I
ActiveWorkbook.SendMail Recipients:=Tablo, _
Subject:=ActiveSheet.Range("A3").Value, _
ReturnReceipt:=False

Bonne soirée 😎

 

[Dull]

Re : envoie email par vba

Re le fil, JNP 🙂, le Forum

j'ai beau l'utilisé, a bon escient, et même a moins bon escient 🙁 la touche F1 et Tablo me fait toujours aussi peur 😛 faudrait que je m'y plonge une bonne fois pour toute 🙂 NomdeZeus...😉

Et en plus j'ai écorché ton prénom Greg, désolé, je rectifie illico😱

Bonne journée

 

[greg954]

Re : envoie email par vba(resolu)

Bonjour Dull,JNP

Merci pour votre aide , entretemps j'ai trouvé ca hier soir si ca peut aider d'autre personne, elle fonctionne parfaitement:

Sub Bouton1_QuandClic()
Dim myadress(1 To 3)
Set mylst = ActiveSheet.Range("a1:a3")
Count = 1
For Each Envoi In mylst
If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1
Next
ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2), _
myadress(3)), Subject:=" Voilà le classeur demandé"
End Sub

Merci encore pour votre aide

bonne journée
Greg