Délai d'exécution d'une procédure

Bonjour à tous.

J'ai fiat nu truc dnas une page et je crois que je me suis fourfoyé sur le délai d'exécution.

Côté HTML j'ai placé 10 TextBox qui vont recevoir des adresses mails (avec validator par exepression régulière).

Côté CodeBehind j'ai mis ça sur le click du bouton en dessous des TextBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Protected Sub btnEnvoi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnvoi.Click
        If txtFil1.Text <> "" Then
            EnvoiMailParrainage(txtFil1.Text)
        End If
        If txtFil2.Text <> "" Then
            EnvoiMailParrainage(txtFil2.Text)
        End If
        If txtFil3.Text <> "" Then
            EnvoiMailParrainage(txtFil3.Text)
        End If
'j'ai viré les 7 autres, ça sert à rien, c'est la même chose.
    End Sub

Et la procédure, la voilà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub EnvoiMailParrainage(ByVal Mail As String)
            Try
                Dim LibEmmeteur, SujetMail As String
                        LibEmmeteur = RecupElem(Session("SES_Langue"), "ParainLibEmmeteur")
                        SujetMail = New DManager("DataDev").RetournerScalaire("SELECT Prenom + ' ' + Nom FROM dbo.BOMBA_Membres WHERE UserId = '" & Session("SES_UserIdStr") & "'") & " t'invite sur Bombamail"
                Dim CorpsMail As String = RetournerCorpsMail("/DefinitionMail/" & GetParamSite("nomsite", "Site") & "/Parrainage" & Session("SES_Langue") & ".txt")
                CorpsMail = Replace(CorpsMail, "##pseudo##", New DManager("DataDev").RetournerScalaire("SELECT Prenom + ' ' + Nom FROM dbo.BOMBA_Membres WHERE UserId = '" & Session("SES_UserIdStr") & "'"))
                CorpsMail = Replace(CorpsMail, "##userid##", GetPage("CreationCompteMembre", enTypeRetour.Externe) & "&parain=" & GetUserGUID().ToString)
                ProjetY.KMail.EnvoiMailBaseDeco(LibEmmeteur, GetInfoUser("Email", "MemberShip", Session("SES_UserIdStr")), Mail, SujetMail, CorpsMail)
            Catch ex As Exception
                Logage("Erreur envoi mail parainage : " & ex.Message)
            Finally
                Response.Redirect(GetPage("Profil", enTypeRetour.Html))
            End Try
    End Sub

Ce que je constate c'est qu'il m'envoi le premier mail, dans la txtFil1, mais pas les autres. Alors je me demande si ça va pas trop vite pour lui, genre il arrive pas à exécuter la procédure à la file 10 fois d'affilée.

Ou alors le problème est autre, mais là je vois pas trop.

Pourriez vous m'éclairer s'il vous plait ?

C'est tout à fait normal que seul le premier soit exécuté. En effet dans ton finalement tu fais un response.redirect. Tu changes donc de page dès le premier mail envoyé !

Sors ton Redirect de ta procédure d'envoi de mail et fais-le à la fin de ton click.

Mais quel crétin je suis !!!!

Merci d'avoir des yeux à ma place.

Bonne continuation à toi.