XL 2010 Macro envoi Mail

[mix770]

Bonjour, j' ai une macro pour envoyer un mail avec un destinataire et l'objet
je souhaiterai ajouter deux autres destinataires dans la macro sur le même principe.

merci à vous

la macro

Sub Envoi_Mail_Resultat()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String, CC As String
MailAd = Range("a1")
Subj = Range("a4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[Roland_M]

bonjour,


'dans Range("a1") il suffit de séparer les adresses par des ;

 

[mix770]

Bonjour Roland_M

merci de ta réponse, le Pb est que les cellules sont à renseigner dans un autre onglet par les utilisateurs.
je ne sais pas comment intégrer des cellules qui seraient dans un autre onglet.
merci

roland

 

[mix770]

les deux autres cellules sont en a2;a3

 

[Roland_M]

re

et bien:
Subj = Range("a2") & ";" & Range("a3") & ";" & Range("a4")

 

[Roland_M]

re

au cas où il n'y aurait pas d'adresse dans certaines cellules !? il vaut mieux:

Subj = ""
If Range("a2") <> "" Then Subj = Subj & Range("a2")
If Range("a3") <> "" Then
   If Subj <> "" Then Subj = Subj & ";"
   Subj = Subj & Range("a3")
End If
If Range("a4") <> "" Then
   If Subj <> "" Then Subj = Subj & ";"
   Subj = Subj & Range("a4")
End If
[code]

 

[mix770]

Super,
ça fonctionne
merci beaucoup

roland

 

[Roland_M]

re

tu as vu mon dernier msg avec les tests If Then . . . ?

 

[mix770]

éventuellement lui faire intégrer un fichier automatiquement qui est sur le
D:\Applis\Bordereau présence Exploitation\Collecte_Résultats_Exploitation\collecte
sans abuser si c'est possible sans prise de tête pour vous
merci

 

[mix770]

oui j'ai vu,
je suis en train de la tester en même temps
merci à toi

 

[mix770]

j'ai oublié de te dire mais c'est sur "MailAd = Range("a1") & ";" & Range("a2") & ";" & Range("a3")" que j'ai appliqué car subj = Range(a4) est l'objet

 

[mix770]

oui effectivement si cellule vide cela affiche "0" et cela bloque

 

[mix770]

Roland_M

j'ai adapté ta proposition mais si ma ligne cellule "a3" est vide il affiche quand même "0" dans les destinataires

merci à toi


Sub Z_Envoi_Exploit_Resultats_Mois()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String, CC As String
MailAd = ""
If Range("a1") <> "" Then MailAd = MailAd & Range("a1")
If Range("a2") <> "" Then
If MailAd <> "" Then MailAd = MailAd & ";"
MailAd = MailAd & Range("a2")
End If
If Range("a3") <> "" Then
If MailAd <> "" Then MailAd = MailAd & ";"
MailAd = MailAd & Range("a3")
End If

'MailAd = Range("a1") & ";" & Range("a2") & ";" & Range("a3")
Subj = Range("a4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[Roland_M]

re

effectivement ce n'est bien entendu pas Subj mais MailAd

par contre je comprend pas ton 0 !?

 

[Roland_M]

re

tu as peut être des espaces qui traînent dans les cellules !?

essaies ceci: avec Trim() qui supprime les espaces

MailAd = ""
If Trim(Range("a1")) <> "" Then MailAd = MailAd & Range("a1")
If Trim(Range("a2")) <> "" Then
   If MailAd <> "" Then MailAd = MailAd & ";"
   MailAd = MailAd & Trim(Range("a2"))
End If
If Trim(Range("a3")) <> "" Then
   If MailAd <> "" Then MailAd = MailAd & ";"
   MailAd = MailAd & Trim(Range("a3"))
End If