Macro préparer un mail sans l'envoi

Bonjour au forum,

J'ai la macro suivante qui me permets d'envoyer un mail à un destinaire avec une pièce jointe.

Cependant, je souhaiterai modifier la macro, qu'en l'activant celà me prépare le mail avec le nom du destinaire avec la pièce jointe sans l'envoyer afin que je puisse modifier le corps du message.

En remerciant de votre aide.

Sub test()

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = "toto@nomdedomaine.com"
myItem.Subject = "Copies virements de Trésorerie"
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver en pièce jointe, la facture n°."
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\chemin du fichier..."
MsgBox "Le message a été envoyé à " & myItem.to
myItem.Send
Set ol = Nothing

End Sub

Cependant, je souhaiterai modifier la macro, qu'en l'activant celà me prépare le mail avec le nom du destinaire avec la pièce jointe sans l'envoyer afin que je puisse modifier le coprs du message.

Bonjour, essayez de rempalcer

myItem.Send

par

myItem.display

Merci, çà marche !

Merci également !

Bonjour,

Je suis novice en macro, je cherche a en créer une qui me permettrait en fonction des filtre que je sélectionne dans le tableau du fichier excel joint d'ouvrir un mail avec en destinataires les informations de la colonne C et en copie ceux de la colonne D. Pour lancer cette macro j'aimerais que les utilisateurs du fichier excel n'aient qu'à cliquer sur l'enveloppe.

Pourriez-vous m'aider svp ?

Merci d'avance

Martin