un soucis de boucle dans un tableau

Version imprimable

Bonjour les gens,
Si jamais un bon en VB.Net voit ça : j'ai une boucle for each qui doit envoyer un mail depuis chaque élément contenu dans un tableau.
Le problème est que SEUL le premier est utilisé. ce qui prouve que le sous-code est bien exécuté , mais pourquoi seulement à la première occurence ?

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
60
    Sub Envoyer_email()
 
        Dim sfilename As String
        sfilename = Server.MapPath("/dsw/client/" & session_client.code_client & "/ETK_" & session_assemblee.code_assemblee & ".htm")
        Dim fs As New IO.FileStream(sfilename, IO.FileMode.Create, IO.FileAccess.Write)
        Dim sw As New IO.StreamWriter(fs)
 
        Dim txt_email As String
        Dim ck_txt As String
 
        txt_email = 'tout un gros paquet de code pour formater un email html
 
        Dim dswpdf As DSWPDF.Service = New DSWPDF.Service
        dswpdf.Make_DSW_PDF(sfilename, session_client.code_client)
 
        'Response.Write(txt_email)
        Dim exptab() As String = Split(exp.Text, ";")
        Dim send As String
        For Each send In exptab
            Dim mMail As MailMessage = New MailMessage
 
 
 
            mMail.Headers.Add("Return-Receipt-To", send)
            mMail.BodyFormat = MailFormat.Html
            mMail.Body = "Please find enclosed the admission ticket"
            mMail.Subject = "Eintrittskarte für die Hauptversammlung der " & Raison_sociale.Text & " am " & Datum_ag.Text
            mMail.From = send
            mMail.To = dest.Text
            mMail.Attachments.Add(New System.Web.Mail.MailAttachment(Replace(sfilename, ".htm", ".pdf")))
 
 
            If dest2.Text <> "" Then
                mMail.To = mMail.To & ";" & dest2.Text
            End If
            If dest3.Text <> "" Then
                mMail.To = mMail.To & ";" & dest3.Text
            End If
 
            'mMail.Cc = "xxxxx@xxx.com"
 
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "mail.xxxxxxxx.fr")
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "moi@xxxxxxxx.fr")
            mMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "xxxx")
 
            Try
 
                SmtpMail.Send(mMail)
                lbl_ok.Visible = True
                lbl_error.Visible = False
            Catch ex As Exception
                lbl_ok.Visible = False
                lbl_error.Visible = True
 
            End Try
        Next
    End Sub

Je suis perdu.

22/02/2011, 14h27
hunteshiva

utilise le mode de débogage qu'offre Visual Studio,
place des points d'arrêt sur ton code
http://img502.imageshack.us/img502/9...nstitre4ov.png
et regarde pourquoi il n'y repasse pas

essaye de placer un premier point d'arrêt sur

Code:

Dim exptab() As String = Split(exp.Text, ";")

et un autre un peut après.
Regarde que ton tableau exptab contienne bien les valeurs que tu veut *lorsque tu est au second point*
22/02/2011, 15h02
Othana

le code est en prod et fait parti d'un plus gros site.
Je sais pas trop si je vais pouvoir l'exécuter en local pour me permettre un point d'arret
j'ai aussi essayé de mettre un indicateur sous la forme d'un label, mais cet idiot ne se modifie pas. donc marche pas.

tout ça c prog avec le framework 2, sous VS2003. l'horreur...
22/02/2011, 15h46
hunteshiva
Code:

1 2 3 4 Dim send As String For Each send In exptab 'la procédure.... Next
dans ce code je vois que tu déclare un String send mais tu ne met rien dedans ....
je vois pas ce que ta boucle for each voit passer

sinon si ton split fonctionne bien,
qu'il découpe en le bon nombre d'élément, tu peut faire une boucle for du genre
Code:

1 2 3 For ii As Integer = 1 To exptab.Length 'la procédure.... Next
la tu est sur qu'il va passer X fois le nombre d'éléments de ton tableau exptab

PS: NetFramework 2... jsui d'accord pas terrible XD
22/02/2011, 15h53
Othana

et bien j'ai aussi fait comme ça, et le résultat est le même. Un seul mail envoyé, le premier.
22/02/2011, 15h57
hunteshiva

Pour moi ton split a un problème....

Code:

Dim exptab() As String = Split(exp.Text, ";")

essaye de lancer une boucle qui va dérouler ton exptab() dans une MsgBox ou une TextBox.
Il y a beaucoup d'éléments dans ce exp.Text ?
22/02/2011, 16h15
Pol63

le plus gros problème que je vois ici c'est qu'il ne puisse pas lancer son programme en pas à pas, c'est loin d'êre pro ...
22/02/2011, 16h17
Othana

il y en a autant qu'on écrit de mails séparés par un ";"
et c'est du VB.Net derrière des pages ASP (.Net, donc), alors quand à mettre une msgbox...
22/02/2011, 16h18
Othana

Citation:

Envoyé par Pol63

le plus gros problème que je vois ici c'est qu'il ne puisse pas lancer son programme en pas à pas, c'est loin d'êre pro ...

ça, j'y suis pour rien, c'est mon prédécesseur qui a fait tout ça. il a même désactivé le debug machine manager service.
22/02/2011, 19h05
anonymousse
bonsoir,

essaies de remplacer :

Code:

Dim exptab() As String = Split(exp.Text, ";")

par :
Code:

1 2 Dim s As String =exp.Text Dim exptab As String() = s.Split(New Char() {";"c})
ça fonctionne chez moi
23/02/2011, 16h12
Othana

je ne reçois toujours qu'un seul mail.

En fait, je me demande si le deuxième mail ne passe pas parce que le serveur de mail n'a pas encore fini de traiter le premier, quand le prog lui demande le second...
Mais je viens d'essayer avec 4 mails différents. Il n'y a vraiment que le premier qui passe. Et aucune erreur renvoyée.

je reviens a ce que j'ai dit,
vérifie ce que fait ton split.

entre 3-4 adresses mails,
et met un petite routine qui contrôler tout ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
        'assure toi que tu ai le bonne chaine de caractères en entrée
        MsgBox(exp.Text)
        'tu la met dans ton tableau
        Dim exptab() As String = Split(exp.Text, ";")
        'vérifie la longueur de ton tableau
        MsgBox(exptab.Length)
 
        Dim send As String
        For Each send In exptab
            'tu la montre pas à pas
            MsgBox(send)
        Next

23/02/2011, 16h36
Pol63

msgbox ou remplissage d'un controle quelconque
23/02/2011, 16h44
Othana

YEP !
c'est bon, ça marche !
c'était un problème de déploiement,simplement. le code était bon.

En tout cas merci à tous !