Les Cc sur un Mail?

[Amadéus]

Bonjour

Ce code fonctionne parfaitement (Source Joss) pour envoyer à plusieurs destinataires dont les adresses sont en D1, le sujet en D2 et le texte du message en D3

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
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

Question
Quel serait le complément à ce code pour envoyer en plus, ce mail en Cc aux destinataires dont les adresses seraient en D4 ?

Cordialement

 

[Amadéus]

Re : Les Cc sur un Mail?

Bonjour

Pas d'inspiration ?

cordialement

 

[tototiti2008]

Re : Les Cc sur un Mail?

Bonjour Amadeus,

j'ai tapé "mailto" dans Google et j'ai eu la réponse tout de suite...

ça devrait donner :

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC as string
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
CC = Range("D4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&cc=" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[Amadéus]

Re : Les Cc sur un Mail?

Bonsoir

Merci pour ta réponse qui fonctionne parfaitement.

Moi, j'avais tapé "Cc dans Mail" " Mail avec Cc", etc..et n'avais pas trouvé.

Merci encore, bonne soirée