Email format HTML - courriel HTML

[Résolu]
Signaler
Messages postés
18
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
20 avril 2006
-
Messages postés
18
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
20 avril 2006
-
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]

1 réponse

Messages postés
18
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
20 avril 2006

L'envoie fonctionne mais rien ne s'affiche comme je le voudrais. Il affiche le code HTML sans même en tenir compte

Whitelynx [:P]