VBScript et oulook

Bonjour à tous,
Voila je suis entrain de modifier un formulaire de type Message dans outlook et j'ai besoin d'éditer un script por paramétrer certaines actions.
En fait je voudrais que lors de l'envoie du formulaire il y ait une fenêtre qui s'ouvre et demande la confirmation de l'envoi. Lorsque l'utiliateur clique sur "oui" le message est envoyé, et sur "non" le message n'est pas envoyé.
Voila ce que j'ai fait pour le moment :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function Item_Send() Dim val val = (msgbox ("Envoyer ?", vbYesNo+vbQuestion , "Validation du message")) If val = 7 then WScript.quit End if End Function
Pour l'instant la fenêtre s'affiche correctement et lorsque l'on clique sur oui, le message est envoyé. Par contre je n'arrive pas à lui dire d'annuler la fonction quand l'utilisateur clique sur non.
Avez vous des idées sur la méthode à appliquer pour annuler un envoi de ce type ?
Peut être faut il appeler une autre fonction qui à la propriété d'annuler l'envoi de message ?

Merci d'avance pour vos conseils,
A+,
Ponpon

Pour insérer le script je modifie le formulaire et je peux venir éditer un script attaché au formulaire.
En l'occurence le script que j'utilise est appelé directement quand je clique sur le bouton "Envoyer" de la fenêtre message de outlook.

Je sais que cette façon d'utiliser VBScript n'est pas très répandue, par contre savez vous si il est possible d'utiliser VBA pour ce genre de cas ?

L'option lorsqu'on modifie un formulaire outlook c'est "Afficher le code". Lorsqu'on clique dessus ça lance la fenêtre de l'éditeur de script. Il n'a pas réelement de nom à proprement parler.

et quand tu clique sur non il se passe quoi ..?

essai
Code:

1 2 cancel=true

Voila j'ai essayé en essayant avec cancel mais ça ne marche pas, quand je clique sur non il m'envoie l'e-mail.
J'ai trouvé une solution intermédiaire qui consiste à créer un bouton et d'y associer une routine :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 sub Envoi_Click() val = (msgbox ("Envoyer ?", vbYesNo+vbQuestion , "Validation du message")) If val = 6 then Item.send end If end sub
Je court circuite le rôle du bouton "envoyer" de outlook par défaut en quelque sorte !

Merci encore pour ton aide !
A+