Envoie mail à un groupe
Bonjours à tous,
je veux envoyer un mail groupé averc les adresses des destinataire sont cachés (cci)
les adresses e_mails se trouvent dans une plage de cellule d'une feuille excel exemple ( "d3: d100")
l 'objet se trouve dans la cellule A2 de la meme feuille , et la cellule a1 represente ladresse qui envoit cad (de)
et la cellule A3 REPRESENTE LE DESTINATAIRE
j'ai essaye un code pour l'envoie à une personne mais je n ai pas reussit
ci_joint
Sub EnvoiUnMail()
Dim dest As String
Dim Mailad As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
dest = Range("a1")
Mailad = Range("a2")
Subj = Range("a3")
Msg = Msg & Range("d4")
URLto = "mailto:" & dest & Mailad & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
MERCI
re bonjour,
est ce que je dois vous préciser qlqes chose
merci
Le fichier est prêt à servir.
En D1 : tu écris le destinataire principal
En D2 : tu écris l'objet
en D3 : tu écris le message
A partir de C6 les adresses des Cci (50 maxi)
Pour terminer, tu cliques sur le bouton PREPARER
Nad
Edit de Nad : fusion des sujets
Bonjour,
suite à cette macro ci_dessous je ne peux pas envoyer à delà de 40 adresses
est ce que c'est logique
ma macro :
Sub PrepareUnMail()
Dim MailAd As String
Dim Subj As String
Dim URLto As String, Bcc As String
For Each Lescellules In Range("D7:D46")
Bcc = Lescellules.Value & ";" & Bcc
Next
MailAd = Range("A1")
Subj = Range("A3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&Bcc=" & Bcc
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
merci
-- 27 Mar 2011, 22:15 --
bonsoir ,
ma macro insere 40 adresses àla fois
mais moi je voudrais envoyer un mail à 1000 adresses à la fois mais les adresses cachées (cci)
merci