Email format HTML - courriel HTMLRésolu

Question

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 = 
"&lt;h3&gt;Message envoy&#233; !&lt;/h3&gt;"


   .Body &= 
"&/n;A : " & sTo & 
"&lt;br&gt;"


   .Body &= 
"&/n;Sujet : " & sujet & 
"&lt;br&gt;"


   .Body &= 
"&/n;Message : " & body & 
"&lt;br&gt;"


   .Body &= 
"&/n;Fichier joint : " & 
"AUCUN" & 
"&lt;br&gt;"


   .Body &= 
"&lt;a href=http://&gt;"


   .Body &= 
"MarloonInc&lt;/a&gt;&lt;br&gt;&lt;br&gt;&lt;a    href=default.aspx&gt;Sommaire&lt;/a&gt;"


    .Body = Replace(.Body, vbCrLf, 
 "&lt;br&gt;")



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&#233;rifi&#233; sur les forums et j'ai trouv&#233; 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&#233;cieuse

Whitelynx [:P]

Whitelynx_QC · Accepted Answer

L'envoie fonctionne mais rien ne s'affiche comme je le voudrais. Il affiche le code HTML sans m&#234;me en tenir compte

Whitelynx [:P]

Email format HTML - courriel HTML

1 réponse

Votre réponse

Discussions similaires