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 :
Et la procédure, la voilà
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
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 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) & "¶in=" & 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
Ou alors le problème est autre, mais là je vois pas trop.
Pourriez vous m'éclairer s'il vous plait ?
Partager