zeOffspring | alors... j'ai enlevé le annuler = false de la sub et j'ai fait ça :
(déso pour la tonne de code)
Code :
- Private Sub cmdLancer_Click()
- Dim rstClientFax As DAO.Recordset
- Dim rstClientSMS As DAO.Recordset
- Dim IndexMail As Integer
- Dim IndexFax As Integer
- Dim IndexSMS As Integer
- Dim i As Integer
- On Error Resume Next
- cmdFermer.Enabled = False
- cmdAnnuler.Visible = True
- 'Si le client a actionné le bouton d'annulation
- If annuler = True Then
- If MsgBox("Etes-vous sûr(e) de vouloir annuler le mailing ?", vbYesNo) = vbYes Then
- MsgBox ("Mailing annulé par l'utilisateur." )
- Exit Sub
- End If
- End If
- DoEvents
- 'ENVOI DU MAIL GROUPE AUX NbClientsMail DESTINATAIRES
- If NbClientsMail <> 0 Then
- 'Création de la liste des destinataires
- Dim list_dest As String
- For IndexMail = 0 To NbClientsMail - 2
- list_dest = list_dest & TabDestMail(IndexMail).Coordonnee & ","
- Next IndexMail
- list_dest = list_dest & TabDestMail(NbClientsMail - 1).Coordonnee
- 'Chargement de la page d'envoi du mail
- If cboType.ListIndex = 0 Then Call mailfr.ChargerMail(list_dest, 1, txtObjet.text)
- If cboType.ListIndex = 1 Then Call mailfr.ChargerMail(list_dest, 2, txtObjet.text,)
- Call mailfr.cmdGenerer_Click
- 'On attache les fichiers au mail
- mailfr.nbFileAttachMail = Me.lstFiles.ListItems.Count
- For i = 0 To mailfr.nbFileAttachMail - 1
- Call mailfr.RemplirTabFichiersJoints(i, Me.lstFiles.ListItems(i + 1).SubItems(1), Me.lstFiles.ListItems(i + 1).SubItems(4), Me.lstFiles.ListItems(i + 1).SubItems(3))
- mailfr.nbSizeFileAttach = mailfr.nbSizeFileAttach + Me.lstFiles.ListItems(i + 1).SubItems(4) / 1024
- Next i
- 'Envoi du mail
- Call mailfr.cmdEnvoyer_Click
- Call mailfr.cmdFermer_Click
- Wait 2
- 'Si le client a actionné le bouton d'annulation
- If annuler = True Then
- If MsgBox("Etes-vous sûr(e) de vouloir annuler le mailing ?", vbYesNo) = vbYes Then
- MsgBox ("Mailing annulé par l'utilisateur." )
- Exit Sub
- End If
- End If
- DoEvents
- End If
- 'ENVOI DES FAX, OUVERTURE DE LA FEUILLE FAX.FRM NbClientsFax FOIS
- If NbClientsFax <> 0 Then
- For IndexFax = 1 To NbClientsFax
- 'On récupère les données pour l'envoi et on charge la page des fax
- Set rstClientFax = dba.OpenRecordset("SELECT * FROM Client WHERE [Code Client]=" & TabDestFax(IndexFax - 1).CodeClient)
- Call Fax.ChargerFax(rstClientFax!Société, rstClientFax!Contact1, rstClientFax!Fax, rstClientFax!)
- 'On joint les pièces
- For i = 1 To Me.lstFiles.ListItems.Count
- Fax.lstPJ.AddItem Me.lstFiles.ListItems(i).SubItems(3)
- Next i
- 'Envoi du fax
- Call Fax.cmdEnvoyer_Click
- Call Fax.cmdFermer_Click
- 'Si le client a actionné le bouton d'annulation
- If annuler = True Then
- If MsgBox("Etes-vous sûr(e) de vouloir annuler le mailing ?", vbYesNo) = vbYes Then
- MsgBox ("Mailing annulé par l'utilisateur." )
- Exit Sub
- End If
- End If
- DoEvents
- Next IndexFax
- End If
- 'ENVOI DES SMS, OUVERTURE DE LA FEUILLE SMS.FRM NbClientsSMS FOIS
- If NbClientsSMS <> 0 Then
- For IndexSMS = 1 To NbClientsSMS
- Set rstClientSMS = dba.OpenRecordset("SELECT * FROM Client WHERE portable LIKE '" & TabDestSMS(IndexSMS - 1).Coordonnee & "'" )
- Call SMS.ChargerSms(rstClientSMS!Contact1, TabDestSMS(IndexSMS - 1).Coordonnee)
- Call SMS.BTenvoyer_Click
- Call SMS.cmdFermer_Click
- 'Si le client a actionné le bouton d'annulation
- If annuler = True Then
- If MsgBox("Etes-vous sûr(e) de vouloir annuler le mailing ?", vbYesNo) = vbYes Then
- MsgBox ("Mailing annulé par l'utilisateur." )
- Exit Sub
- End If
- End If
- DoEvents
- Next IndexSMS
- End If
- cmdAnnuler.Visible = False
- cmdFermer.Enabled = True
- cmdLancer.Enabled = False
- MsgBox ("Le mailing est terminé." )
- End Sub
|
Message édité par zeOffspring le 12-07-2006 à 15:37:06
|