Discussion :

[kupae]

tout le monde!


Alors voici l'objet de ma visite.

J'utilise dans le cadre d'un formulaire de relance par mail, cette fonction VBA.
Elle fonctionne, j'arrive même a lui attacher un etat en format Word.

Voici le code

Code :

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

1
2
3
 
DoCmd.OpenReport "Retardataires", acViewPreview, , "NomDistributeur='" & Me.ListeDistributeur.Column(1, 0) & "'"      
DoCmd.SendObject acSendReport, , acFormatRTF, Me.ListeDistributeur.Column(2, i), , , Filmmm, textemsg, True

Comme vous pouvez le constatez, il y a plusieurs destinataires, que je vais chercher en incrémentant ma variable a l'aide d'une boucle For.

Mon soucis etant que,
si ma liste de destinataires est composée de plusieurs destinataires, j'aimerais qu'il m'ouvre plusieurs fenetre Outlook, une par destinataires.
Car dans mon cas, il attend que j'ai envoyé le premier mail pour ouvrir la deuxieme fenetre.

Le vrai probleme etant qu'en fermant une fenetre outlook (sans avoir envoyer le mail), j'arete la boucle et je me retrouve avec un message d'erreur "L'action SendObject a été annulé". Du coup je n'ai plus accès au reste de mes mails à envoyer.

Si quelqu'un aurait une idée pour m'aider à contourner ceci.

Le but n'etant pas d'envoyer les mails automatiquement, mais bien de me les préparer pour ensuite me permettre une personnalisation des mails.

J'espere avoir été clair.
si ce n'est pas le cas faites moi signe s'il vous plait.
Merci

[LedZeppII]

Bonsoir,

Tu devrais t'en sortir avec une gestion d'erreur.
Il faut ignorer l'erreur 2501.

Code vb :

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
Sub EnvoiEmail()
' ...
On Error GoTo ERRH
For i = 0 To Me.ListeDistributeur.ListCount-1
    DoCmd.OpenReport "Retardataires", acViewPreview, , "NomDistributeur='" & Me.ListeDistributeur.Column(1, 0) & "'"      
    DoCmd.SendObject acSendReport, , acFormatRTF, Me.ListeDistributeur.Column(2, i), , , Filmmm, textemsg, True
Next
 
Exit Sub
 
ERRH:
Select Case Err.Number
   Case 2501 ' L'action ... a été annulée - ignorer cette erreur
        Resume Next
   Case Else
        Select Case MsgBox("Erreur '" & Err.Number & "' :" & vbCrLf & vbCrLf & _
                           Err.Description, vbAbortRetryIgnore)
            Case vbRetry
                 Resume 0
            Case vbIgnore
                 Resume Next
        End Select
End Select
End Sub

A+

[kupae]

Bonjour, merci LedZeppII.
En reprenant ton idée je suis arrivé à gerer cette erreur.
Malheureusement en fermant pour la deuxieme fois la fenetre outlook, j'ai à nouveau le message 2501 qui s'affiche.

Cela veut donc dire que la deuxième fois je en parviens pas en rentrer dans ma gestion d'erreur. Mais je n'arrive pas a trouver pourquoi.

voici mon code en entier.

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
On Error GoTo Erreur
For i = 0 To Me.ListeDistributeur.ListCount - 1
Reprendre:
 
        DoCmd.OpenReport "Retardataires", acViewPreview, , "NomDistributeur='" & Me.ListeDistributeur.Column(1, i) & "'"
        DoCmd.SendObject acSendReport, "retardataires", acFormatRTF, Me.ListeDistributeur.Column(2, i), , , Filmmm, textemsg, True
        DoCmd.Close acReport, "Retardataires"
 
Next i
Exit Sub
 
Erreur:
If Err.Number = 2501 Then
    DoCmd.Close acReport, "Retardataires"
    i = i + 1
    If i = Me.ListeDistributeur.ListCount Then Exit Sub
    GoTo Reprendre
Else
    MsgBox Err.Description
End If
Exit Sub

[LedZeppII]

Bonjour,

Il faut mettre

Code :

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

    Resume Reprendre

au lieu de

Code :

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

    GoTo Reprendre

La gestion d'erreurs se fait avec On Error et Resume.
Resume signale que l'erreur a été traitée et reprend l'exécution du code à l'endroit désigné

Je pense que ton code peut se simplifier ainsi :

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
On Error GoTo Erreur
For i = 0 To Me.ListeDistributeur.ListCount - 1
 
        DoCmd.OpenReport "Retardataires", acViewPreview, , "NomDistributeur='" & Me.ListeDistributeur.Column(1, i) & "'"
        DoCmd.SendObject acSendReport, "retardataires", acFormatRTF, Me.ListeDistributeur.Column(2, i), , , Filmmm, textemsg, True
        DoCmd.Close acReport, "Retardataires"
 
Next i
Exit Sub
 
Erreur:
If Err.Number = 2501 Then
    Resume Next
Else
    MsgBox Err.Description
End If

Resume Next reprend le cours du programme à la ligne suivant celle ayant provoqué l'erreur.

A+

[kupae]

Merci beaucoup LedZeppII tu m'as evité une longue journée de mal de crâne.

Tout fonctionne à merveille.
C'est mon tuteur qui va etre content