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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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