bonjour à tous
voilà je teste une tout petite application qui envoi un mail tout simplement mais ca ne marche pas
voilà mon code qui s'effectue juste en cliquant sur un bouton , c'est très simple comme code mais c ' est juste un test; j'ai regardé les tuto et rien ne marche
je pense que le problème se situe au niveau du smtp mais je n'en suis pas sûre

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
23
24
25
26
27
28
 
 
 
        Dim mail As New MailMessage
        mail.Subject = "salut"
        mail.Body = "test"
        mail.To.Add(New MailAddress("xxx@hotmail.com"))
        mail.From = New MailAddress("xxx@gmail.com")
        mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
        mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
 
 
        Dim smtp As New SmtpClient
        smtp.Host = "smtp.gmail.com"
        smtp.Port = 465
 
        smtp.Credentials = New Net.NetworkCredential(user, password)
        smtp.EnableSsl = True
 
        Try
            smtp.Send(mail)
            MsgBox("ok")
        Catch ex As SmtpException
            MsgBox(ex.Message & 1)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
Merci d'avance
Marc