XL 2010 Macro envoi Mail

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #2

bonjour,


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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #3

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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #4

les deux autres cellules sont en a2;a3

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #5

re

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #6

re

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

Code:

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]

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #7

Super,
ça fonctionne
merci beaucoup

roland

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #8

re

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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #9

é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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #10

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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #11

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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #12

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

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 19 Mars 2018

• #13

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

Code:

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #14

re

effectivement ce n'est bien entendu pas Subj mais MailAd

par contre je comprend pas ton 0 !?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Mars 2018

• #15

re

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

essaies ceci: avec Trim() qui supprime les espaces

Code:

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

 

Vote positif 0 Vote négatif