Windows live mail

[Michel C]

Bonjour à tous,

J'ai trouvé ce code sur votre site qui fonctionne comme je le désire.
Public Sub EnvoiMailMessagerieParDefaut()
Dim Adres$, Msg$, Sujet$, URLto$
Adres = "nom@free.fr" 'adres.destin
Sujet = "ici le sujet du msg" 'sujet msg
Msg = "ici le corps du msg" ' corps msg ici on peut mettre des valeurs de cellules ?
URLto = "mailto:" & Adres & "?subject=" & Sujet & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub

Toutefois, lorsque j'ai plusieurs destinataires, je voudrais que ce soit discret. Comment puis-je remplacer le "mailto" pour le "cci"?
Merci beaucoup de votre aide,
Michel

 

[Roland_M]

Re : Windows live mail

bonjour,

voir essai comme ceci avec rajout AdresCC$ !?

Public Sub EnvoiMailMessagerieParDefaut()
Dim Adres$, AdresCC$, Sujet$, Msg$, URLto$
Adres = "nom@free.fr" 'adres.destin
AdresCC = "nom1@free.fr;nom2@free.fr;nom3@free.fr" 'adres.destin en CC
Sujet = "ici le sujet du msg" 'sujet msg
Msg = "ici le corps du msg" ' corps msg ici on peut mettre des valeurs de cellules ?
'
URLto = "mailto:" & Adres & "&cc=" & AdresCC & "?subject=" & Sujet & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub