Copier email une fois envoye

Bonjour à tous,

J'ai un bouton qui lance une macro Excel. Cette macro permet de préparer un email pour vérification (.display) :

   
Set ObjMail = MonOutlook.CreateItem(olMailItem)
    With ObjMail
        .To = 'les destinataires
       .Subject = 'Sujet du mail
       .Display  'Préparation du mail et vérification avant envoi
    End With

Une fois l'appui sur le bouton "Envoyer" d'Outlook, je souhaite que le mail soit copié dans un dossier choisi.

Si le mail n'est pas envoyé rien ne se fait.

Est-ce que cela est possible ? Je n'ai rien trouvé sur le forum ni sur le web.

Par avance merci.

Cordialement,

Bonjour,

C'est possible.

Voir exemple ci-joint via un UserForm avec copie du mail envoyé dans le dossier "Mes Documents" sous le nom mail.msg.

Grand Merci Thev !

Du coup j'ai fait des recherches sur les événements Outlook et j'ai pu adapter mon code.

J'ai eu un problème avec la gestion de l’évènement qui ne s’arrête pas.

J'ai réglé le problème avec :

Set evts_session = Nothing

ça clôture l’événement.

Encore MERCI !