loveislam
Messages postés
33
Date d'inscription
jeudi 14 mai 2009
Statut
Membre
Dernière intervention
31 décembre 2009
30 avril 2009 à 17:14
ok,mon ami
essayer avec cette methode
1-l'importation
Imports System.Net
Imports System.Net.Mail
2-creer un compte gmail
3- Sub envoie_email()
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = True
smtp.Credentials = New NetworkCredential("[mailto:votre@gmail.com votre adresse@gmail.com]", "mot de passe")
MyMail.From = New MailAddress("[mailto:votre@gmail.com votre adresse@gmail.com]")
MyMail.ReplyTo = New MailAddress("[mailto:moi@hotmail.com moi@hotmail.com]")
MyMail.To.Add(New MailAddress("[mailto:moi@hotmail.com moi@hotmail.com]"))
( si vous voulez ecrire un texte )
---------------------------------
MyMail.IsBodyHtml = True
MyMail.Body = "<html>" & _
"<head>" & _
"<meta http-equiv=""Content-Language"" content=""fr"">" & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">" & _
"</head>" & _
centre>
" & _
" ce message à été envoyé pour vous proclamer
" & _
" que la methode est correcte
" & _
"et pour compléter la configuration de cette commande
" & _
"nous vous sollicitons de vous connecter dans notre site
" & _
"le code de cette commande c’est<center> " & numerolabel.Text & "</center>
" & _
" à la prochaine
" & _
"" & _
"</html>"
-------------------------------------------
MyMail.Priority = MailPriority.High
MyMail.Subject = "test"
Try
smtp.Send(MyMail)
messagelabel.Text = "le message a été envoyé avec succès"
messagelabel.Visible = True
Catch ex As Exception
messagelabel.Text = ex.Message
messagelabel.Visible = True
End Try
MyMail.To.Clear()
End Sub
bonne chance
love islam