adresse mail active

Salut Pouletou !

Décortique cette macro trouvée sur le site :

<http://dj.joss.free.fr/web.htm>

Envoie un Mail: l'adresse est dans la cellule D1, le sujet dans la D2 et le texte dans la D3

'Tester avec Outlook Express 5.
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


@ +

Moa