Email format HTML - courriel HTML

Private Sub SendMail(ByVal from As String, ByVal sTo As String, ByVal body As String)

Dim mailservername As String = "smtp1.infoteck.qc.ca" ' Remplace par le serveur SMTP de ton fournisseur.

Dim message As New MailMessage

Dim f As New MailAddress(from)

Dim t As New MailAddress(sTo)

Dim sujet As String = "TEST"

With message

    .Sender = f

   .To.Add(t)

   .Body = "<h3>Message envoyé !</h3>"

   .Body &= "&/n;A : " & sTo & "<br>"

   .Body &= "&/n;Sujet : " & sujet & "<br>"

   .Body &= "&/n;Message : " & body & "<br>"

   .Body &= "&/n;Fichier joint : " & "AUCUN" & "<br>"

   .Body &= "<a href=http://>"

   .Body &= "MarloonInc</a><br><br><a    href=default.aspx>Sommaire</a>"

   .Body = Replace(.Body, vbCrLf, "<br>")

End With

message.IsBodyHtml = True

Dim mailClient As SmtpClient = New SmtpClient

mailClient.Host = mailservername

mailClient.Send(message)

message.Dispose()

End Sub

Bonjour Je voudrais faire l'envoie d'un courriel en format HTML j'ai vérifié sur les forums et j'ai trouvé quelques solutions mais aucune fonctionne dans mon cas et je me demande bien pourquoi

OS : Windows XP
Prog : Visual Studio 2005
Langage : vb (ASP.NET)
Framework : 2.0

Merci de votre aide si précieuse

Whitelynx [:P]