Bonjour
J'ai essayé d'envoyer un mail via le serveur locale de mon entreprise via le code ci-dessous.
mais ça ne fonctionne pas et vous touvez ci-joint l'erreur.
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
Merci pour votre support
Partager