[XL-2010] Outlook.Application.MsgBox Erreur 438

[koffmann]

Bonjour à tous,

je souhaiterais afficher un message box dans outlook depuis vba excel avant l'envoi d'un e-email (afin qu'aucune action ne soit possible sans avoir cliqué sur le OK).

Voici un extrait de mon code:

Code :

1
2
3
4
5
6
Set Ok = New Outlook.Application
Set OkMail = Ok.CreateItem(olMailItem)
strHTML = "blah blah"
.HTMLBody = strHTML
.Display
Outlook.Application.MsgBox "blah blah?", vbYesNo + vbInformation, "ATTENTION"

Evidemment ça ne marche pas (Erreur 438) sans doute parceque Msgbox n'est pas reconnu ou pas possible. Mon mail s'affiche correctement.

Pour information voici les références que j'utilise :
Microsoft Forms 2.0 OL, Office 14.0 OL, Outlook 14.0 OL, Outlook View Control, DAO 3.6 OL, OLE Automation.

- Ce que je veux faire est-il possible? Si oui comment ?

Par avance merci pour votre aide qui me sera précieuse

[Daniel.C]

Bonjour,

Tu peux sans doute utiliser l'évènement Send (regarde l'aide dans les membres de MailItem de l'aide Outlook). Tu positionnes une variable à "True" si l'utilisateur a cliqué sur le bouton "OK" du msgbox. Sinon, tu inclues la ligne :

Code :

Cancel=True

dans la macro évènementielle. Fais attention à la partie du code qui doit être placé dans un module de classe.

[koffmann]

Bonjour Daniel.

Merci pour ta réponse qui correspond à mes attentes. Toutefois je reste intrigué par le "Outlook.Application.MsgBox " qui ne marche pas et aimerais bien savoir pourquoi ^^


Merci encore et bonne journée

[Daniel.C]

"MsgBox" n'est pas une fonction OutLook, sinon ton problème aurait résolu. Il aurait fallu coder de toutes façons :

Code :

ok.MsgBox "blah blah?", vbYesNo + vbInformation, "ATTENTION"

mais bon, ça ne fonctionne pas.

[koffmann]

Ce que je ne comprend pas c'est quand dans l'éditeur vba d'Outlook cela marche parfaitement...

[Daniel.C]

Effectivement, mais c'est une fonction, donc tu ne peux pas la qualifier... Peut-être écrire une macro Outlook et l'appeler depuis Excel ?