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:
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
Le seule soucis c'est que j'ai la message:
Aucune connexion n'a pu être établi car l'ordinateur cible l'a expressément refusée ip_ip_ip:25
Il fait déjà 3 jours que je cherche à résoudre mais je ne trouve aucune piste...
Est-ce que quelqu'un peut m'aider, svp?

Merci d'avance