Bonjour,
Voici un bout de mon code pour envoyer un mail via excel.
Cela envoi bien au destinataire inscrit dans les cellules de la feuille 2 de E2 A E10.
Par contre cela n'envoi pas le mail en copie au destinataires spécifiés:
.CC = "toto@voila.fr"
.CC = Feuil2.Range("E33").Value
CODE:
With message
.Subject = Feuil2.Range("D2").Value & S
.body = "Bonjour" & vbLf & vbLf & Feuil2.Range("D5").Value & vbLf & vbLf & vbLf & "Cordialement"
.Recipients.Add Feuil2.Range("E2").Value
.Recipients.Add Feuil2.Range("E3").Value
.Recipients.Add Feuil2.Range("E4").Value
.Recipients.Add Feuil2.Range("E5").Value
.Recipients.Add Feuil2.Range("E6").Value
.Recipients.Add Feuil2.Range("E7").Value
.Recipients.Add Feuil2.Range("E8").Value
.Recipients.Add Feuil2.Range("E9").Value
.Recipients.Add Feuil2.Range("E10").Value
.CC = "toto@voila.fr"
.CC = Feuil2.Range("E33").Value
.attachments.Add TempFilePath & TempFileName & FileExtStr
.Send
End With
Merci
Voici un bout de mon code pour envoyer un mail via excel.
Cela envoi bien au destinataire inscrit dans les cellules de la feuille 2 de E2 A E10.
Par contre cela n'envoi pas le mail en copie au destinataires spécifiés:
.CC = "toto@voila.fr"
.CC = Feuil2.Range("E33").Value
CODE:
With message
.Subject = Feuil2.Range("D2").Value & S
.body = "Bonjour" & vbLf & vbLf & Feuil2.Range("D5").Value & vbLf & vbLf & vbLf & "Cordialement"
.Recipients.Add Feuil2.Range("E2").Value
.Recipients.Add Feuil2.Range("E3").Value
.Recipients.Add Feuil2.Range("E4").Value
.Recipients.Add Feuil2.Range("E5").Value
.Recipients.Add Feuil2.Range("E6").Value
.Recipients.Add Feuil2.Range("E7").Value
.Recipients.Add Feuil2.Range("E8").Value
.Recipients.Add Feuil2.Range("E9").Value
.Recipients.Add Feuil2.Range("E10").Value
.CC = "toto@voila.fr"
.CC = Feuil2.Range("E33").Value
.attachments.Add TempFilePath & TempFileName & FileExtStr
.Send
End With
Merci