integrer un lien

bonjours,
je cree une page où un formulaire pour l'envoi d'un email (3 champs : 1-A:   2-Sujet:  3-message  )
le code ke j'ai utilsé sa march bien
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup"
.Update
End With

With iMsg
Set .Configuration = iConf
.From = "<VOTRE_EMAIL>" 'A MODIFIER
.Subject = "SUJET DU MESSAGE" 'A MODIFIER
.To = "<EMAIL_DESTINATAIRE>" 'A MODIFIER
.cc = ""
' .bcc = ""
' .TextBody = "POUR ENVOYER DU TEXTE"
.HTMLBody = "POUR ENVOYER DU HTML."
.send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
avec ce code j'envoie  mes message.mais le proble pour moi c'est lorsque mes navigateurs tapent un message je veux que touts les messages acompagnent avec un lien (ex: visiter notre site). je sais pas comment integrer le lien dan le message envoyé
merci davance

Salut, Il suffit d'ecrire le html dans le HTMLBody .HTMLBody = "Venez visiter mon sitePOUR ENVOYER DU HTML." Bon courage