voici ce que je fais !
Dim SmtpCli
As
New SmtpClient
Dim mailmessage
As
New MailMessage
Dim fromAddress =
New MailAddress(
"webmaster@mondomaine.net",
"mondomaine.fr")
smtpcli.Host =
"mail.mondomaine.net"
smtpcli.Port = 25
mailmessage.From = fromAddress
mailmessage.To.Add(EMAIL.Text.ToString)
mailmessage.Subject =
"Votre MOT DE PASSE !"
mailmessage.IsBodyHtml =
True
mailmessage.Body = MESS
Try
smtpcli.Send(mailmessage)
Label_titre.Text =
"Mot de passe envoyé par email !"
Catch ex
As Exception
Label_titre.Text = ex.Message
End
Try
******************************************
Installation Home-Cinéma de particuliers sur
http://www.digital16-9.com