Vérification d'E-mail avant envoi

Bonjour,

Je suis entrain de créer une macro qui me permettrai d'envoyer un mail automatiquement.

J'arrive à envoyer le mail mais j'aimerai pouvoir afficher le mail avant l'envoi pour pouvoir rajouter des choses si besoin.

Voici mon code (qui fonctionne) :

Sub EnvoiMailSimple()

  Dim Email As Outlook.Application
  Dim EmailMsg As Outlook.MailItem
  Dim Dest As Outlook.Recipient

Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)

EmailMsg.To = "adresse@outlook.com"
EmailMsg.Subject = "Objet"
EmailMsg.Body = "Corps"

EmailMsg.Send

Set EmailMsg = Nothing
Set Email = Nothing
End Sub

Merci d'avance

Bonjour,

J'ai trouvé la solution ....

Pour les intéressés il suffit d'enlever la ligne

EmailMsg.Send

et la remplacer par :

EmailMsg.Display