Discussion :

[bigounet]

Bonjour à tous,

j'utilise le code trouvé sur ce forum (http://www.developpez.net/forums/d12...er-etats-mail/) pour envoyer un mail et cela fonctionne pour ce que je veux faire.
Mais, si je souhaite annuler l'envoi du mail, outlook se ferme (ce qui est normal) mais je ne sais plus rien faire dans mon programme access. C'est comme si je n'avais plus l'accès à mon formulaire alors qu'il est toujours ouvert. Je dois le fermer (avec la croix) ou passer mon formulaire en mode création puis en mode normal et je sais à nouveau travailler dans access. J'ai juste un message d'erreur me signalant que mon mail n'a pas été envoyé. Je ne vois absolument pas d'où vient le problème. Si j'envoi le mail, la fenêtre d'envoi dans Outlook se ferme et je reviens au même problème. Pour résumer, je perds le focus de mon formulaire à chaque fois. Je ne trouve pas de solution. Je précise que je travaille avec office 2010
En vous remerciant

[tee_grandbois]

Bonsoir,
tu dois utiliser la gestion d'erreur pour dire à Access de continuer le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
On Error GoTo gestErr
DoCmd.SendObject .........
 
gestErr:
Select Case err.Number
Case 2501  
    Msgbox "Envoi du mail annulé"
    Exit Function
Case Else
    MsgBox err.Number & " : " & err.DESCRIPTION
 
End Select

[bigounet]

merci bien pour votre réponse. Je vais essayer le code lundi, au bureau. Bon we.

[bigounet]

Je viens de l'essayer sous access 2003 et cela fonctionne. Mais , un autre petit soucis, c'est qu'un champ (text10) doit absolument être rempli. J'ai mis ce code :

Code :

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

1
2
3
If (IsNull(Forms![fm-demande OM]![Text10]))  Then
     MsgBox "le champ motif de la mission doit être rempli", , "erreur de données"
End If

Ça fonctionne puis j'ai l'erreur "94 : utilisation incorrecte de Null" qui apparait.
Le champ (text10) est un champ texte, tout simple et c'est le seul champ qui doit être rempli obligatoirement.

Comment faire pour passer cette erreur ?

Merci

[bigounet]

j'ai mis une valeur par défaut, que l'utilisateur devra modifier. Et tout fonctionne bien.