Discussion :

[Jord]

Bonjour
J'ai testé ce code VB.NET dans une page aspx et il marche, mais lorsque j'essaye de l'utiliser dans un projet "Application console" il ne marche plus.Je ne comprend pas il me renvoi "echec d'envoi du courrier 1"

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
29
30
31
32
33
34
35
36
37
38
39
   Private Sub EnvoisMail(ByVal oMailAdresse As String, ByVal oMailDestinataire As String, ByVal oMailSujet As String, ByVal oMailTexte As String, ByVal oMailSMTP As String, ByVal oMailLogin As String, ByVal oMailPassword As String, Optional ByVal oMailFichier As String = Nothing)
 
        Dim oMail As MailMessage
        Dim oSmtp As SmtpClient
 
        oMail = New MailMessage
 
        With oMail
            .From = New MailAddress(oMailAdresse)
            .To.Add(oMailDestinataire)
            .Subject = oMailSujet
            .Body = oMailTexte
            .BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
            .SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
 
            If oMailFichier <> "" Then
                .Attachments.Add(New Attachment(oMailFichier))
            End If
        End With
 
        oSmtp = New SmtpClient
        With oSmtp
            .Host = oMailSMTP
            .Credentials = New Net.NetworkCredential(oMailLogin, oMailPassword)
            .EnableSsl = False
            .Port = 25
 
 
        End With
        Try
            oSmtp.Send(oMail)
            Console.WriteLine("ok")
        Catch ex As SmtpException
            Console.WriteLine(ex.Message & 1)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

J'ai donc une "SmtpException"
merci

[remy_74]

Qu'est ce que tu as comme message .. ?

[Jord]

J'ai "echec d'envoi du courrier 1"

[remy_74]

Tu as rien d'autre ?
Sinon faut tester en ligne de commande depuis le pc ou tu test.
=> cmd
==> telnet <nom du server ou IP > 25

et vois si le serveur te reponds un OK..
Ca me semble plus un pb de conex avec ton serveur SMTP..

[Jord]

J'ai testé le telnet ya pas de pb et pour l'execution en ligne de commande si je supprime dans mon code la gestion de Exeption et smtpExeception j'obtient:


Ce que je ne comprend pas c'est que ce code fonctionne s'il est utilisé dans une page asp.NET

[remy_74]

Le message me semble clair..
Impossible de se connecter au serveur Distant.

Donc soit le nom de serveur Distant n'est pas juste, soit tu as un Firewall d'activé qui bloque les conex.

[Jord]

Désole je pensais avoir désactivé le firewall mais en fait non

[remy_74]