1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Dim email As New System.Net.Mail.MailMessage()
Dim Client As New Net.Mail.SmtpClient
email.From = New Net.Mail.MailAddress("name@vision.ma", "name")
email.To.Add(New Net.Mail.MailAddress("name1@gmail.com", "name1"))
email.Subject = tbObjet.Text
email.IsBodyHtml = True
email.Body = "<html>" & _
"<head>" & _
"<meta http-equiv=""Content-Language"" content=""fr"">" & _
"<meta http-equiv=""Content-Type"" content=""text/html charset=windows-1252"">" & _
"</head>" & _
"<body>" & _
"<b>Email : </b>" & tbExpediteur.Text & _
"<br/><br/> <b>Message : </b><p>" & tbMessage.Text & "</p>" & _
"</body>" & _
"</html>"
Client.Host = "smtp.vision.ma"
Client.Credentials = New Net.NetworkCredential("name@vision.ma", "motdepasse")
Try
Client.Send(email)
lblErreur.Text = "Votre message à été correctement envoyé."
Catch ex As Exception
lblErreur.Text = ex.Message
End Try |
Partager