Discussion :

[AliHome]

Bonjour à tous,

j'utilise un petit bout de code pour envoyer mes e-mail en vb.net, il fonctionne très bien des l'instant ou j'ai le serveur smtp correspondant à mon FAI.

Ce que j'aimerais que vous me disiez c'est comment envoyer un email sans avoir besoin d'utiliser un smtp ou bien comment faire pour trouver le bon smtp correspondant à mon fai par la programmation.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        Dim Mail As New Net.Mail.MailMessage("adresse@exemple.com", "adresse@exemple.com", "Sujet", "Body")
        Dim MailSender As New Net.Mail.SmtpClient("smtp.exemple.fr")
        Try
            MailSender.Send(Mail)
        Catch exception As Exception
            MsgBox(exception.Message)
        End Try

Asser simple comme vous pouvez le voir.

Merci d'avance, cordialement,

AliHome

[Pol63]

seul un serveur smtp peut envoyer des mails, il est par contre possible que tu en installe un, windows server doit le faire par exemple, comme ca il sera disponible de n'importe où

parce que ceux des FAI n'accepte qu'on leur parle que si on est connecté sur leur réseau

sinon il est peut etre possible que tu détecte sur quel réseau tu es et que tu ais une liste de smtp selon le FAI
par exemple en faisant un traceroute vers google sur un réseau orange, on voit le nom des routeurs avec écrit wanadoo ou proxad pour free ...
m'enfin faudrait trouver une méthode mieux pour déterminer ca

[AliHome]

Merci à toi c'est ce que je voulais savoir.

Donc maintenant reste à trouver la méthode pour connaitre le FAI de l'utilisateur du logiciel.


Sinon j'ai essayé quelque chose d'un peu plos "grossier", en fait j'ai fais une liste avec les principales adresse smtp des FAI comme smtp.free.fr ou smtp.neuf.fr .

Ensuite j'ai fais une boucle For Each smtp qui essaye d'envoyer l'email pour chaque smtp (j'ai utiliser le block try catch), sauf que si le smtp n'est pas le bon il met le message d'echec d'envois et quitte la boucle !

Méthode inéfficace donc et lente en plus de ca ...

[Pol63]

pour trouver le smtp, tu peux tenter par socket une connexion, ca ira peut etre plus vite, mais en effet j'avais pas penser que c'était plus simple de les appeler tous pour voir ceux qui répondent

je viens de tester par socket via telnet (enfin c'est facile à implémenter en .net)
j'ai tenté d'établir une connexion sur mon fai et un autre, l'un ma jeté et l'autre m'a accepté et c'est instantanné
faut voir la rfc smtp (google) pour trouver quoi envoyer au serveur et ce qu'il doit répondre et si t'y arrives pas je pourrais peut etre te trouver le code complete qui va bien)

tu peux peut etre aussi réduire le timeout d'envoir de mail via le framework

et sinon au premier démarrage de l'appli tu peux boucler pour trouver le smtp à utiliser et le sauvegarder, comme ca tu le fait qu'une fois

[AliHome]

Oui si ca ne te dérange pas de me passer le code que tu as utilisé car je n'ai que tres peu de connaissance dans ce domaine. Merci à toi !

tu peux peut etre aussi réduire le timeout d'envoir de mail via le framework

Oui je peux mais comme je te l'ai dit il sors de la boucle tout seul donc ca ne changerais pas grand chose !

[Pol63]

s'il sort de la boucle parce qu'il y a une erreur, il suffit de mettre un try catch dans la boucle pour qu'il continue !

et le code je l'ai pas fait, j'ai juste tester avec telnet (programme fourni avec windows qui permet de dialoguer en tcp/ip en écrivant les commandes)
m'enfin je vais essayer d'y faire pour demain

[AliHome]

Oui oui j'avais déjà mis le bloc try catch mais je ne sais pas pourquoi, si par exemple le 1er envois d'email echoue, il n'essaye pas d'envoyer avec les autres smtp ou en tout cas il bloque dessus car si le 2eme de la liste est le bon smtp, ca fonctionne.

Mais je laisse de coté cette méthode pour le moment car je pense que récupérer directement le bon smtp comme tu m'as dit, c'est bien plus rapide.

P.S: j'ai beau changé le Timeout, je ne vois pas de grande différence...

[Pol63]

voilà une fonction qui teste un serveur smtp, je l'ai testé sur un abo wanadoo, si je demande "smtp.free.fr", ca répond false et si je demande "smtp.wanadoo.fr" ca répond true, donc ca doit aller ^^

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
 Public Function TestSMTP(ByVal smtp As String) As Boolean
        Try
            If smtp = "" Then Throw New ArgumentNullException("smtp à tester non défini")
 
            Dim tcp As New System.Net.Sockets.TcpClient
            tcp.Connect(smtp, 25)
 
            If Not tcp.Connected Then Return False
 
            Dim b() As Byte
            b = ("EHLO test" & vbCrLf).ToArray.Cast(Of Byte).ToArray
            tcp.GetStream.Write(b, 0, b.Length)
 
            Dim reponse As String = Nothing
            Dim chrono As New System.Diagnostics.Stopwatch
            chrono.Start()
 
            While chrono.ElapsedMilliseconds < 800
                If tcp.Available = 0 Then Continue While
                Dim r(0) As Byte
                tcp.GetStream.Read(r, 0, 1)
                reponse &= Chr(r(0))
            End While
 
            If reponse Like ("220*") Then Return True
 
            Return False
        Catch ex As Exception
            Return False
        End Try
    End Function

je laisse 800ms au serveur pour répondre, ca me parrait beaucoup, enfin tu peux lancer ce test sur un thread séparé, voir meme lancer tous les tests de smtp sur x thread, comme ca en 800ms tu connais la réponses de tous (décalé les demarrage des thread de quelques ms tout de meme)


en fait j'envoie la commande pour dire bonjour au serveur smtp et je regarde sa reponse, si la reponse commence par 220 ca veut dire que c'est bon
faudrait que tu tests avec plusieurs FAI pour voir ce qu'il répondent, mais à priori ils doivent répondre 220 quand c'est ok et par exemple free me répond 554

le protocole de dialogue smtp se trouve sur google en tapant rfc smtp on y trouve aussi la liste des codes que je mets ici :

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
 
    * 211 Etat système, ou réponse d'aide système
    * 214 Message d'aide [Informations sur l'utilisation d'un récepteur ou signification d'une commande non standard particulière; en clair pour un opérateur humain]
    * 220 <domaine> Service disponible
    * 221 <domaine> Canal de transmission en cours de fermeture
    * 250 Action de messagerie effectuée, succès
    * 251 Utilisateur non local ; réémission vers <route-directe> (avec relais automatique)
 
    * 354 Début de message ; arrêt par <CRLF>.<CRLF>
 
    * 421 <domaine> Service non disponible, canal en fermeture [Réponse à émettre sur tous les canaux lorsque le système exécute une séquence d'arrêt]
    * 450 Action non effectuée : boîte-aux-lettres non disponible [Ex., bloquée par un autre utilisateur]
    * 451 Action arrêtée : erreur de traitement
    * 452 Action non effectuée : manque de ressources système.
 
    * 500 Erreur de syntaxe, commande non reconnue [y compris des erreurs de type "ligne de commande trop longue"]
    * 501 Erreur de syntaxe dans des paramètres ou arguments
    * 502 Commande non implément&eac 1000 ute;e
    * 503 Mauvaise séquence de commandes
    * 504 Paramètre de commande non implémenté
    * 550 Action non effectuée : boîte-aux-lettres non disponible [Ex., boîte-aux-lettres non trouvée, pas d'accès]
    * 551 Utilisateur non local ; essayer <route> (sans relais automatique)
    * 552 Action arrêtée : manque de ressources de stockage
    * 553 Action non effectuée : nom de boîte-aux-lettres non autorisé [Ex., erreur de syntaxe dans le nom de boîte]
    * 554 Transaction échouée.

s'il te faut aussi le code auquel tu donnes une liste de smtp (as string) et qui te retourne celui qui marche le tout rapidement, je peux aussi compléter ce code

[AliHome]

Merci beaucoup !!!

J'essaye de suite et je te tiens au courant de mon avancée !
Je pense pouvoir me débrouiller avec ce que tu m'as passé, je vais pas te demander de tous faire à ma place ^^

P.S: j'éditerais mon post en fonction de mon avancée...

1er Edit: J'ai un petit souci avec ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

b = ("EHLO test" & vbCrLf).ToArray.Cast(Of Byte).ToArray

Il me dit 'ToArray' n'est pas un membre de 'String'.

[Pol63]

ah oui, ToArray c'est sur le framework 3.5, y a plein de nouvelles fonctions de conversions qui gagne des lignes de code ...

le but c'est de transformer une chaine de caractère en tableau d'octet
un caractère peut etre transformé en octet via asc()

donc le but c'est de dimensionner un tableau selon la longueur du string
et ensuite de faire une boucle sur le tableau d'octet pour le remplir du code ascii du caractère

[AliHome]

C'est bon cette fois, en fait c'étais un vieux projet créé sous VS2005 donc je l'ai récréé sur la version 2008 et ca passe nikel maintenant.

J'ai donc pus tester la fonction qui fonctionne elle aussi parfaitement !!!

Un grand merci à toi sperot51 pour ton aide précieuse

Bonne journée, merci encore

ALiHome

[AliHome]

Bonjour à tous,

je reposte car j'ai un problème... en effet cette fonction qui autrefois marchais nikel ne fonctionne plus !
Quand je m'en sers j'ai le droit au message d'erreur :

Le cast spécifié n'est pas valide.

sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

b = ("EHLO test" & vbCrLf).ToArray.Cast(Of Byte).ToArray

Je ne sais vraiment pas pourquoi cela ne marche plus, pourriez vous m'éclairer ?

Merci d'avance, cordialement,

AliHome

[SniP_78]

Y'a une autre solution que j'avais utilisée sur un de mes programmes, c'est de passer par un serveur PHP ( http://www.php.net/manual/fr/function.mail.php )

J'ai plus le code source, mais tu fais une page PHP avec une fonction pour envoyer le mail, et après avec vb.net tu lis juste la page qui devrait donner sa:


http://tonserveur.fr/mail?titre=T'on Titre&message=T'on Message&Destinataire=Email@mail.fr&......



Si tu y arrives pas a faire le script dit le moi je le re ferais c'est pas très compliqué.

[AliHome]

Merci pour ta réponse. Oui j'aimerais bien que tu me fasses ce script si ca ne te dérange pas car je n'ai pas bien compris ton idée et de ce que j'ai compris, je me demande si ca va convenir car l'autre code était très pratique.
En effet ce que je cherche à faire c'est vraiment de pouvoir tester TOUS les smtp et en quelques secondes à peine (grace aux thread) et ca fonctionnais parfaitement grace à la fonction de sperot51.


Après tu penses que je peux utiliser ton idée de la même façon que mon autre code ca me conviens très bien ^^

Merci à toi, cordialement,

AliHome

[SniP_78]

Voila le code:

Méthode de t'on programme en vb.net (pense a modifier l'adresse de ton serveur web):

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
Public Sub Mail(ByVal sujet As String, ByVal message As String, ByVal emailDestinataire As String, Optional ByVal emailExpediteur As String = "", Optional ByVal emailReply As String = "")
 
        ' On prépare l'adresse http du script
        Dim urlMail As String = "http://!!!!TONSERVEUR!!!!.FR/mail.php?sujet=" & sujet & "&message=" & message & "&emailDestinataire=" & emailDestinataire & "&emailExpediteur=" & emailExpediteur & "&emailReply=" & emailReply
 
        ' On lance la page web mail.php et on récupère le code source pour voir si le mail c'est bien envoyé
        Dim wRequest As WebRequest = WebRequest.Create(urlMail)
        Dim wResponse As WebResponse = wRequest.GetResponse()
        Dim str As Stream = wResponse.GetResponseStream()
        Dim strReader As New StreamReader(str)
        Dim content As String
        content = strReader.ReadToEnd()
        content = content.Replace(" ", "")
 
        strReader.Close()
        str.Close()
        wResponse.Close()
 
        ' On Vérifie si le mail à était envoyé
        If content = "" Then
            MsgBox("E-Mail envoyé.")
        Else
            MsgBox("Une erreur s'est produite. E-mail pas envoyé.")
        End If
    End Sub

mail.php (Page a envoyer sur ton serveur)

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
<?php
     //-----------------------------------------------
     //DECLARE LES VARIABLES
     //-----------------------------------------------
 
     $destinataire = $_GET['emailDestinataire'];
     $email_expediteur = $_GET['emailExpediteur'];
     $email_reply = $_GET['emailReply'];
 
	 $sujet = $_GET['sujet'];
     $message_texte = $_GET['message']; 
 
     //-----------------------------------------------
     //HEADERS DU MAIL
     //-----------------------------------------------
 
     $headers = 'From: "'.$email_expediteur.'" <'.$email_expediteur.'>'."\n";
     $headers .= 'Return-Path: <'.$email_reply.'>'."\n";
     $headers .= 'MIME-Version: 1.0'."\n";
 
     //-----------------------------------------------
     //MESSAGE TEXTE
     //-----------------------------------------------
 
     $message .= $message_texte."\n\n";
 
 
     if(!mail($destinataire,$sujet,$message,$headers))
     {
          echo 'Erreur';
     }
?>

Utilisation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mail("Sujet Message", "Texte Message", "EmailDestinatère@gmail.com", "toi@toi.fr", "toi@toi.fr")

Voila, même si tu en a pas besoin sa servira a d'autre je pense.

[AliHome]

Et bien merci à toi, je vais voir ce que je peux faire avec ça en attendant de trouver une autre alternative.


Bonne journée !

[AliHome]

Bon je me suis penché à nouveau dessus et j'ai résolu le problème de cast.

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
 Public Function SMTPIsAvailable(ByVal smtp As String, Optional ByVal port As Integer = 25) As Boolean
        Try
            Dim tcp As New System.Net.Sockets.TcpClient
            tcp.Connect(smtp, port)
 
            If tcp.Connected Then
                Dim b() As Byte
                b = System.Text.Encoding.ASCII.GetBytes("EHLO test.com" & vbCrLf)
                tcp.GetStream.Write(b, 0, b.Length)
 
                Dim reponse As String = Nothing
                Dim chrono As New System.Diagnostics.Stopwatch
                chrono.Start()
 
                While chrono.ElapsedMilliseconds < 800
                    If tcp.Available = 0 Then Continue While
                    Dim r(0) As Byte
                    tcp.GetStream.Read(r, 0, 1)
                    reponse &= Chr(r(0))
                End While
 
                If reponse Like ("220*") Then
                    tcp.Close()
                    tcp = Nothing
                    Return True
                Else
                    Return False
                End If
            Else
                tcp.Close()
                tcp = Nothing
                Return False
            End If
 
        Catch ex As Exception
            Return False
        End Try
    End Function

Sauf que... La plupart des smtp me renvois "220..." donc le test est mauvais ! Avant ça ne le faisait pas, si quelqu'un à une idée de pourquoi je suis à l'écoute !

[sinople]

Sinon en dernier recours, il y a aussi la solution qui consiste à afficher une petite boite de dialogue demandant à l'utilisateur d'introduire l'adresse (et sauvegarder la valeur dans un fichier de config).

Ne pas oublier que parfois le serveur de mail demande une identification aussi pour l'envoi de mail!