[VBA] Outlook - Ajout d'une piece jointe dans email actif

[pedrag31]

Bonjour chers XLDnautes

J'utilise le code ci-dessous pour créer un nouvel e-mail et y joindre un fichier dont le chemin est dans ListBox1.List(ListBox1.ListIndex, 1).

        Dim MyOutlook As New Outlook.Application, MyMessage As Outlook.MailItem
            Set MyOutlook = CreateObject("Outlook.Application")
            Set MyMessage = MyOutlook.CreateItem(0)
        With MyMessage
            .Attachments.Add ListBox1.List(ListBox1.ListIndex, 1)
            .Display
        End With

Si cela est possible, je souhaiterais créer une autre macro similaire permettant également d'ajouter ce même fichier joint dans un e-mail actif existant.

Pour être plus précis, l'idée serait de pouvoir cliquer tout d'abord sur "répondre a tous" ou "transférer" dans Outlook et, ensuite, pouvoir lancer la macro qui viendrait ajouter automatiquement la PJ a cet email...

Pensez-vous que cela soit possible?
Avez-vous des pistes a me proposer?
Un lien vers un exemple peut être?

Merci d'avance pour vos conseils.

Bonne journée,

 

[pedrag31]

Re : [VBA] Outlook - Ajout d'une piece jointe dans email actif

Bonjour le forum,

un petit up