Bonjour à tous,
Je suis en train de développer une application en VB.Net, où j'aimerais pouvoir envoyer des e-mails via SMTP.
Pour le faire, j'ai mis le code suivant:
Le seule soucis c'est que j'ai la message:
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 Dim objMessage As System.Net.Mail.MailMessage Dim objAdrExp As System.Net.Mail.MailAddress Dim objAdrRec As System.Net.Mail.MailAddress Dim objSMTPClient As System.Net.Mail.SmtpClient objMessage = New System.Net.Mail.MailMessage() objAdrExp = New System.Net.Mail.MailAddress("xxx@xxx") objAdrRec = New System.Net.Mail.MailAddress("xxx@xxx") objMessage.From = objAdrExp objMessage.To.Add(objAdrRec) objMessage.Subject = "Salut c'est VB.Net qui envoi ce mail" objMessage.Body = "Notre test a bien reussi :-)" objMessage.IsBodyHtml = False objSMTPClient = New System.Net.Mail.SmtpClient("ip_ip_ip", 0) objSMTPClient.EnableSsl = True Try objSMTPClient.Send(objMessage) MsgBox("Mail envoyé") Catch ex As System.Net.WebException MsgBox("Exception : " & ex.Message) MsgBox("Response : " & ex.Response.ToString) Catch ex1 As SmtpException MsgBox("Exception : " & ex1.Message) MsgBox("Response : " & ex1.InnerException.Message) MsgBox("Response : " & ex1.InnerException.InnerException.Message) End Try
Il fait déjà 3 jours que je cherche à résoudre mais je ne trouve aucune piste...Aucune connexion n'a pu être établi car l'ordinateur cible l'a expressément refusée ip_ip_ip:25
Est-ce que quelqu'un peut m'aider, svp?
Merci d'avance
Partager