Discussion :

[KiDiBoo]

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

[ptitdragon_eric]

Pourquoi écrire du code si c'est pour pas qu'il soit exécuté?

Code :

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

1
2
3
4
5
6
7
8
Function Mere() 
 
On error goto Err_Handling 
 
. 
. 
Call SendMail 
Exit function

Tout simplement

Pour envoyer ton message utilise la fonction SendObject[/code]

[Tofalu]

J'ai pas regardé le code, mais plusieurs possibilité s'offre à toi :

La fonction ne retourne pas de résultat, dans ce cas, tu peux la faire retourner un booléen qui s'il vaut true indiquera qu'il n'y a pas eu d'erreur.

Mais en général, si on utilise une fonction c'est pour son résultat, donc dans ce cas, tu peux utiliser un paramètre déclaré par référence Byref. Au début de la fonction tu fixe ce paramètre à false et en cas d'erreur à True. Donc si à la sortie de la fonction le paramètre passé en byref est égal à True alors il y a eu une erreur

Autre solution (adoptée en général), ne pas traiter l'erreur dans la fonction mais la renvoyée à l'appelant