Adresse E-mail en copie

[Bruno]

Bonjour a tous

Voici mon probléme. Comment faire pour mettre l'adresse qui se trouve en D2 en Copie et mettre mon classeur en fichier joint.

Sub EnvoiUnMail()
Dim mailad As String
Dim msg As String
Dim subj As String
Dim urlto As String
mailad = Range("D1") & ";" & Range("E1")
Copie = Range("D2")
subj = Range("D3")
msg = msg & Range("D4")
urlto = "mailto:" & mailad & Copie & "?subject=" & subj & "&body=" & msg
ActiveWorkbook.FollowHyperlink Address:=urlto & urltCc
End Sub

Bonne fete à tous

 

[STéphane]

bonjour

il faut utiliser le mot clé "cci" je pense dans ta syntaxe
par contre pour l'attachement, il n'est pas du tout recommandé d'utiliser une méthode mailto car cela marche que sur certains systèmes.

urlto = "mailto:" & mailad & Copie & "?subject=" & subj & "&body=" & msg & "&cci=" & variableemail & "&attachment=" & cheminàtonfichier

j'en parle ici : <http://xkbysteph.free.fr/aideinformatique/web.htm>

bye
steph