Via l'objet Outlook, je désire répondre Ã*** un email. Voici mon code actuel


Dim olApp AsNew Outlook.Application
Dim objMail As Outlook.MailItem
objMail = olApp.CreateItem(Outlook.OlItemType.olMailItem)

With objMail
.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
.HTMLBody = vBody
.Subject = "RE : " + Tobjet.Text
.CC = vC
.To = vA
.myAction = .Actions.Add
.myAction.Name = "Reply"
.myAction.ShowOn()
.Display()
End With

Où ça cloche ?

Pour précision:
j'utilise VB.net 2005
Je veux visualiser l'email avant de l'envoyer

Merci d'avance pour vos réactions