Discussion :

[STOUPI]

J'ai la séquence suivante :

Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "toto@nom.fr"
MonMessage.bcc = ListeComplete
MonMessage.Subject = "profil "
MonMessage.body = "Bonjour,"
MonMessage.Attachments.Add "F:\xxxx.xls"

Je voudrais à ce niveau que la boite outlook standard s'affiche avant envoi.
Comment puis-je faire ????????????

MonMessage.Send
Set MonOutlook = Nothing

Merci à tous

[stéphane_ais2]

Bonjour,

Du côté de la fonction SendObject dont l'un des paramètres permet l'ouverture du client de messagerie...

:on l'oublie trop souvent...

SE