smtp envoi de mail par System.net.mail
Bonjour,
j'ai fait des essais avec un code que j'ai récupéré.
Ca me lance une exception sur appel de la procédure d'envoi
c.Send. Vous avez des idées , une autre méthode, autre facon de faire.
J'ai une adresse de serveur smtp, avec les accès et tout et tout.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Public Sub SendMail(ByVal [To] As String, ByVal Subject As String, ByVal Body As String)
Const User As String = "###@gmail.com"
Const Password As String = "####"
Dim m As New MailMessage
m.From = New MailAddress(User)
m.To.Add(New MailAddress([To]))
m.Subject = Subject
m.Body = Body
Dim c As New SmtpClient("smtp.gmail.com", 587)
'Dim c As New SmtpClient("smtp.live.com", 25)
c.EnableSsl = True
c.Credentials = New NetworkCredential(User, Password)
c.Send(m)
m.Dispose()
End Sub
Sub testEmail()
SendMail("monadresse@yahoo.fr", "Salut", "Test")
End Sub |
:oops::(:(:lol: