Discussion :

[sabermekni]

Bonjour


J'ai essayé d'envoyer un mail via le serveur locale de mon entreprise via le code ci-dessous.

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
 
 
Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("emeteur", "passe emeteur")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "IP SMTP Server"
 
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("emeteur")
            e_mail.To.Add("recepteur")
            e_mail.Subject = "Email Sending"
            e_mail.IsBodyHtml = False
            e_mail.Body = "Bonjour PDC"
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")
 
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try

mais ça ne fonctionne pas et vous touvez ci-joint l'erreur.

Merci pour votre support