Les Cc sur un Mail?

Amadéus · 4 Décembre 2009

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

Code:

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 · 4 Décembre 2009

Re : Les Cc sur un Mail?

Bonjour

Pas d'inspiration ?

cordialement

tototiti2008 · 4 Décembre 2009

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 :

Code:

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 · 4 Décembre 2009

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

Les Cc sur un Mail?

Amadéus

Guest

Amadéus

Guest

tototiti2008

XLDnaute Barbatruc

Amadéus

Guest

Discussions similaires

Les Cc sur un Mail?

Amadéus

Guest

Amadéus

Guest

tototiti2008

XLDnaute Barbatruc

Amadéus

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency