Envoyer nouveau mail

Bonjour le forum,

Je souhaite créer une macro qui me permette d'envoyer un mail à l'adresse contenue dans ma feuille "ficheresa", cellule "C17" .

J'ai ce code:

Private Sub Commandmail_Click()
ActiveWorkbook.SendMail Recipients:=Sheets("ficheresa").Range("C17")
End Sub

Le "truc", c'est que je ne veux pas envoyer le classeur sur lequel je travaille, je veux juste que mon client mail s'ouvre avec l'adresse de "C17" déjà écrite, comme si je cliquais simplement sur le lien hypertexte...

Est-ce claire,

Merci pour vos réponses,

Simon

-- 12 Avr 2010, 15:38 --

Voici la solution:

Private Sub CommandButton4_Click()

Dim MailAd As String
Dim URLto As String
Dim Subject As String
Dim body As String

MailAd = Range("A1")
URLto = "mailto:" & MailAd
Subject = "consultation"
body = Range("A2")
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

A bientôt,

Simon