Discussion :

[tibiscuit]

Bonjour,

J'utilise la méthode CDO pour envoyer des mails et j'aurais voulu savoir si il était possible, en cas d'échec de l'envoi (quelque soit l'erreur) d'afficher un message à l'utilisateur plutot que de l'envoyer dans l'éditeur vba

[dodo69]

tu peux mettre un renvoi d'erreur,

Code :

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

1
2
3
4
5
6
7
8
9
 
On error goto reprendre_ici
 
'ici tu met tes traitements d'envoie de mail...
 
Exit Sub ' j'ai mis un exit sub ici car si le traitement se passe bien il lira quand meme ton "reprendre_ici:"
reprendre_ici : ' en cas d'erreur le programme reprend ici
msgbox("une erreure est survenue lors de l'envoie des mails")
Exit sub

Normalement ca devrai marché

Cdlt
DoDo

[Michel_M]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
On Error GoTo erreur
'ce qui peut faire erreur
'..... suite du code
'......fin du code
Exit Sub
erreur:
MsgBox "erreur"
End If

[tibiscuit]

Super, ça fonctionne.

Merci beaucoup !