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 : Sélectionner tout - Visualiser dans une fenêtre à part
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