Appel d'une Fonction: comment savoir s'il y a une erreur
Bonjour le forum,
J'ai 2 tites questions:
- 1ere: Dans une fonction, je fais appel à une autre fonction qui sert à envoyer un fichier par email. S'il y a erreur sur la fonction d'envoi de mail, je j'identifie pour stopper le code. Dans ce cas, j'aimerai donc qu'au retour vers la fonction appelante, le code soit renvoyé vers Err_Handling et non qu'il se poursuive.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
Function Mere()
On error goto Err_Handling
.
.
Call SendMail
.
.
Err_Handling
Exit Function
End Function() |
Code:
1 2 3 4 5 6 7
|
Function SendMail()
On Error goto Err_Handling
.
Err_Handling
Exit Function
End Function |
- 2ieme:
J'ai une table Settings, contenant divers paramètres (adresse email, directories,...). J'aimerai pouvoir récupérer les valeurs de cette table à la demande...
Code:
1 2 3 4 5 6 7 8 9 10
|
Function SendMail(AAA)
On error goto Err_Handling
str_mail = currentdb.openrecordset("Select Settings.email from Settings where Settings.ID = ""AAA"")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = str_mail
.
.
End Function |
Cela ne fonctionne pas.
D'avance merci pour votre aide.
KiDiBoo