Discussion :

[Ponpon_sb]

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 :

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

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.

[SfJ5Rpw8]

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

essai

Code :

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

1
2
 
cancel=true

[Ponpon_sb]

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 :

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

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+