Envoi de mails - problème avec smtpmail.send

**Nikkobass** · 01/10/2007, 09h16

Bonjour,
Je tente d'envoyer des mails avec la fonction smtpmail.send et j'aimerai vous faire part d'un problème que j'ai rencontré avec cette fonction: (voila mon code)

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
 
Function CreateMail(ByVal _Destinataire As String, ByVal _Objet As String, ByVal _Message As String, Optional ByVal _Pathjoint As String = "") As Boolean
        Dim email As New System.Web.Mail.MailMessage
 
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", nomuser)
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", passuser)
 
        SmtpMail.SmtpServer = ServeurExterne       'choix du smtp
 
        email.From = AdresseDp
        email.To = _Destinataire
        email.Subject = _Objet
        email.Body = _Message
        email.Priority = MailPriority.Normal
 
        Dim chemin() As String
        If _Pathjoint <> "" Then  'envoi des pieces jointes
            Try
                chemin = _Pathjoint.Split(";")
                Dim i As Integer
                For i = 0 To chemin.Length - 1
                    email.Attachments.Add(New MailAttachment(chemin(i)))
                Next
            Catch
                MsgBox("Echec de l'ajout de pièces jointes, envoi interrompu")
                Return False
            End Try
 
        End If
 
  Try
            SmtpMail.Send(email)
            msgbox("Mail envoyé")
            Return True
        Catch ex As Exception
            MsgBox(ex.Message & "   Envoi interrompu")
            Return False
        End Try
    End Function

J'ai programmé une fonction qui envoi un mail lorsqu'on appui sur un bouton et qui affiche une messagebox lorsque l'envoi est effectué.
Le problème: lorsque l'exécution arrive à la ligne "SmtpMail.Send(email)", le programme commence a envoyer le mail et revient sur le formulaire du bouton et continu de tourner normalement et des que l'email est envoyé la msgbox apparait. Ainsi, alors que le premier mail n'est pas encore envoyé, l'utilisateur peut ré-appuyer sur le bouton, voir meme quitter le formulaire!
J'aimerai pouvoir freeze le programme le temps de l'envoi du mail.

Est ce que vous avez déjà rencontré ce problème?

**Piotrek** · 01/10/2007, 11h21

Salut

Je ne connais pas SmtpMail, cependant il devrait y avoir un evenement du type "MailSended" qui est declanche quand le mail a ete effectivement envoye.

Tu peux par exemple ajouter un booleen dans ton code, le mettre a True dans l'event si le mail a ete envoye, et boucler tant que ce booleen n'est pas a True (avec un timeout pour eviter une boucle sans fin)

**Nikkobass** · 01/10/2007, 15h33

Le problème cest que smtpmail n'a pas d'events...
je viens de penser à une méthode assez "sale" :genre mettre un timer qui tic toutes les secondes dans le formulaire et utiliser un bool global que je passerait par exemple à false l'instruction juste avant le send...
mais le mieu resterait d'avoir un event, est il possible d'en créer?

**Aspic** · 01/10/2007, 16h55

Si tu avais fait une recherche tu serais tombé sur :
http://www.developpez.net/forums/sho...d.php?t=414216

**Nikkobass** · 02/10/2007, 09h05

c'est moi qui ait mis l'avant dernier commentaire du post. mais ca ne correspondait pas tout a fait a mon problème, et vu que le post a été validé, j'en ai crée un nouveau.
En fait je suis sous vbnet 2003 et le code que tu as fourni ne marche pas ches moi
erreur sur:
-Net.Mime
-message.attachments
-SmtpClient(server)
-Net.CredentialCache.DefaultNetworkCredentials

(je précise que j'ai fait l'import de web.mail

**Aspic** · 02/10/2007, 16h01

Envoyé par Nikkobass

(je précise que j'ai fait l'import de web.mail

Normal ce n'est pas le bon IMPORTS

C'est :

Code :

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

Imports System.Net.Mail

**Nikkobass** · 03/10/2007, 13h38

en effet j'avais pas le bon imports =)
je viens d'essayer et ca marche pas: en fait je suis sous vb.net 2003 et ca marche que sur le 2005... Donc le premier problème se repose...

**Aspic** · 03/10/2007, 19h59

Envoyé par Nikkobass

en effet j'avais pas le bon imports =)
je viens d'essayer et ca marche pas: en fait je suis sous vb.net 2003 et ca marche que sur le 2005... Donc le premier problème se repose...

C'est normal la méthode décrite est valable que pour vb.NET 2005

Pour la version 2003, il faut utiliser le namespace System.Web.Mail et pas System.Net.Mail qui n'existe pas !

**Nikkobass** · 04/10/2007, 10h06

La ya un beau dialogue de sourds =)
J'utilise le namespace system.web.mail (cf début du post) et cest avec celui ci que je rencontre des problèmes (je n'arrive pas a "geler" le programme le temps de l'envoi de mail).
j'ai donc essayé la solution alternative avec system.net.mail et donc, ca ne marche pas car je suis en vbnet2003: je retourne donc avec ma methode de départ et j'ai tjrs les memes problèmes.

**Aspic** · 04/10/2007, 12h34

Bon donc je vais te donner ma fonction spéciale VB.NET 2003 :

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
 Private Sub Envoi()
        Try
            Dim msg As Web.Mail.MailMessage = New Web.Mail.MailMessage
 
            msg.From = "AAAfdiedler2000@free.Fr"
            msg.To = "fdiedler2000@free.Fr"
            msg.Cc = "encoreatoi@free.fr"
            msg.Body = "Bonjour" & Convert.ToChar(10) & "" + "Ceci est le contenu du mail" & Convert.ToChar(10) & "" + "A bientôt"
            msg.Attachments.Add(New MailAttachment("C:\Test - & - Prog 1\Mail.txt", MailEncoding.UUEncode))
            SmtpMail.SmtpServer = "smtp.free.fr"
            SmtpMail.Send(msg)
 
            MsgBox("message envoyé")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Et ca marche

Bien sur il faut adapter le code !

**Nikkobass** · 04/10/2007, 14h02

merci pour ton code... mais je rencontre le meme problème:
je lai associé au clic d'un bouton.
Le probleme: j'ai le temps d'appuyer plusieurs fois sur le bouton avant que la premiere msgbox "message envoyé" n'apparaisse: autrement dit, lors de son execution, le programme ne s'arrete pas pendant qu'il effectue l'operation "SmtpMail.Send(msg)". Ce que je cherche, cest un moyen de le geler pendant l'envoi pour eviter à l'utilisateur plusieurs clics malencontreux =)

**harry25** · 04/10/2007, 16h24

La solution m'intéresse aussi

Envoyé par Nikkobass

merci pour ton code... mais je rencontre le meme problème:
je lai associé au clic d'un bouton.
Le probleme: j'ai le temps d'appuyer plusieurs fois sur le bouton avant que la premiere msgbox "message envoyé" n'apparaisse: autrement dit, lors de son execution, le programme ne s'arrete pas pendant qu'il effectue l'operation "SmtpMail.Send(msg)". Ce que je cherche, cest un moyen de le geler pendant l'envoi pour eviter à l'utilisateur plusieurs clics malencontreux =)

**Aspic** · 04/10/2007, 18h59

Envoyé par Nikkobass

merci pour ton code... mais je rencontre le meme problème:
je lai associé au clic d'un bouton.
Le probleme: j'ai le temps d'appuyer plusieurs fois sur le bouton avant que la premiere msgbox "message envoyé" n'apparaisse: autrement dit, lors de son execution, le programme ne s'arrete pas pendant qu'il effectue l'operation "SmtpMail.Send(msg)". Ce que je cherche, cest un moyen de le geler pendant l'envoi pour eviter à l'utilisateur plusieurs clics malencontreux =)

Bah tu mets un boolean à false dès qu'il à cliqué sur le bouton. Ensuite une fois envoyé tu passes la variable à True et puis c'est bon. SI le mec s'obstine à cliquer 10 fois et que la variable est à False alors rien ne se passera... Tu peux aussi désactiver le bouton comme ca cela réglera le problème !