problème d'envoi e-mail

Version imprimable

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim TheServer As String = ""
        Dim DE As String
        DE = TheServer

        
        If De.Contains("gmail") Then
            TheServer = "smtp.gmail.com"
        ElseIf De.Contains("hotmail") Then
            TheServer = "smtp.live.com"
        ElseIf De.Contains("yahoo") Then
            TheServer = "smtp.mail.yahoo.com"
            
        End If

        Dim Smtp As New SmtpClient(TheServer, 587)
        Dim EmailMessage As New MailMessage
        Try
            With EmailMessage
                .From = New MailAddress("fddsddf123@gmail.com")
                .To.Add("cvdss@yahoo.fr")
                .Subject = "test mail"
                .Body = "bonjour "
               
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

        Try
            With Smtp
                .UseDefaultCredentials = False
                .DeliveryMethod = SmtpDeliveryMethod.Network
                .Timeout = 1
                If TheServer = "smtp.mail.yahoo.com" Then
                    .EnableSsl = False
                Else
                    .EnableSsl = True
                End If

                .Credentials = New Net.NetworkCredential("fddsddf123@gmail.com", "mot de passe")
                .Send(EmailMessage)
                MsgBox("Message envoyé!", MsgBoxStyle.Information)
            End With
        Catch ex As Exception
            MsgBox("Echec d'envoi du message!", MsgBoxStyle.Critical)
        End Try


    End Sub

End Class

PROBLÈME:

le message "Echec d'envoi du message" s'affiche sans envoi de mail.
merci pour votre aide

17/05/2011, 17h09
Tchaill39
Bonjour,

Pour mieux comprendre l'erreur, affiche plutôt l'erreur qui t'est retournée par la fonction en utilisant le code :
Code:

1 2 3 4 5 Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try
Cela te permettra d'isoler ton erreur.
17/05/2011, 17h21
wassim hamrouni
Citation:
Envoyé par Tchaill39

Bonjour,

Pour mieux comprendre l'erreur, affiche plutôt l'erreur qui t'est retournée par la fonction en utilisant le code :

Code:

1 2 3 4 5 Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try

Cela te permettra d'isoler ton erreur.
merci ,
l'erreur est:

Citation:

L'hôte SMTP n'a pas été spécifié

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim TheServer As String = ""
        Dim DE As String
        DE = TheServer
 
 
        If De.Contains("gmail") Then
            TheServer = "smtp.gmail.com"
        ElseIf De.Contains("hotmail") Then
            TheServer = "smtp.live.com"
        ElseIf De.Contains("yahoo") Then
            TheServer = "smtp.mail.yahoo.com"
 
        End If

Moi quand je lis ça j'en conclus qu'à la fin TheServer = "" dans tout les cas et que par conséquence ça va foirer plus tard. En plus ça coincide avec l'erreur indiquée.

Citation:

Envoyé par sinople

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim TheServer As String = ""
        Dim DE As String
        DE = TheServer
 
 
        If De.Contains("gmail") Then
            TheServer = "smtp.gmail.com"
        ElseIf De.Contains("hotmail") Then
            TheServer = "smtp.live.com"
        ElseIf De.Contains("yahoo") Then
            TheServer = "smtp.mail.yahoo.com"
 
        End If

Moi quand je lis ça j'en conclus qu'à la fin TheServer = "" dans tout les cas et que par conséquence ça va foirer plus tard. En plus ça coincide avec l'erreur indiquée.

As-tu une solution pour cette erreur ?

18/05/2011, 10h57
Luc1an0

Salut,

Oui il y a une solution : Tester une autre variable ?

Ici, c'est pas un problème technique, c'est un problème d'algo.

Tu initialises ta variable "TheServer" avec rien dedans.
Tu crée une variable "DE" qui contient "TheServer"

Donc "DE" a pour valeur = ""

Quand tu tests, il n'y a jamais de donnée dans "DE", donc il ne passe par aucun de tes if ..

Je mettrai

Code:

DE = "monadresse@monfai.fr"

Ainsi ça marchera mieux ...

Et j'ai envie de rajouter : GMail n'utilise que du SSL... Donc je pense qu'il faut que tu prennes en compte tous les FAI, et pas seulement Yahoo...
18/05/2011, 12h12
wassim hamrouni

Citation:

Envoyé par Luc1an0

Salut,

Oui il y a une solution : Tester une autre variable ?

Ici, c'est pas un problème technique, c'est un problème d'algo.

Tu initialises ta variable "TheServer" avec rien dedans.
Tu crée une variable "DE" qui contient "TheServer"

Donc "DE" a pour valeur = ""

Quand tu tests, il n'y a jamais de donnée dans "DE", donc il ne passe par aucun de tes if ..

Je mettrai

Code:

DE = "monadresse@monfai.fr"

Ainsi ça marchera mieux ...

Et j'ai envie de rajouter : GMail n'utilise que du SSL... Donc je pense qu'il faut que tu prennes en compte tous les FAI, et pas seulement Yahoo...

bonjour ,
merci pour votre aide , ça marche mais juste pour gmail , je peux pas envoyer mail pour yahoo ou hotmail
18/05/2011, 13h48
Luc1an0

Tu as donc 3 @ mails différentes à toi ?

Je ne vois pas bien comment ton premier "if" marcherait mais pas les autres, car ils sont basés sur le même test. Est ce que ton test passe où tu le souhaites déja ?

En fait, tu voudrais qu'en fonction de l'@ mail que tu utilises, ton appli' utilises les bons paramètres ?

Regarde bien du côté des spécificités SMTP (ip/port/ssl...) de chaque fournisseur, là est la réponse.