Envoi mail par Excel
Bonjour,
il me serait agréable que vous puissiez m'apporter votre aide sur ce code vba :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim TheFile
TheFile = Range("d4")
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
je voudrais que MailAd prenne en charge ma liste se trouvant par exemple de D4 à d20
et pour le message, je souhaiterai ajouter un saut de ligne
j'ai plaisir à penser que votre aide m'apportera toute satisfaction
bien cordialement
Bonjour
Pour MailAd, tu remplaces
MailAd = Range("d1")
par
For i=4 to 20
MailAd=Range("d" & i) & ";"
Cordialement
bonjour et merci pour votre aide
j'ai rentré :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim TheFile
TheFile = Range("d4")
Dim URLto As String
For i = 4 To 20
MailAd = Range("d" & i) & ";"
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
mais il sort erreur compilation for sans next
dans l'attente de vos observations
bien cordialement
Bonjour
Bien sur!
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim TheFile
TheFile = Range("d4")
Dim URLto As String
For i = 4 To 20
MailAd = Range("d" & i) & ";"
Next i
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End SubCordialement
bonsoir,
j'ai modifié le code vba, mais lorsque je lance la macro, les adresses mails ne sont pas reprises en destinataires
avez vous une solution ou aie je oublié quelque chose
merci de vos observations
cordialement
seul le destinataire en d20 ressort, mais pas les autres de d4 à d19
Bonjour
Nouvelle Macro
Ce code de Dan a été testé avec 100 adresses.
Cordialement
bonsoir,
un grand merci pour ce fichier joint et pour ce partage très enrichissant
bien cordialement