Bonjour
J'essaie depuis un moment d’insérer un fichier PDF dans le corps d'un message OUTLOOK(comme on le fait à la main dans OUTLOOK: Insérer+objet+créer à partir d'un fichier etc...)

J'ai repris du code trouvé sur Développez, et je l'ai arrangé à ma sauce : ajout valeur message avec balise HTML.
J'ai testé le code HTML sous IE et cela fonctionne.
Code html : Sélectionner tout - Visualiser dans une fenêtre à part
<iframe src='D:\Fichier PP\Avis inspecteur du travail.pdf' width='500px' height='450px'></iframe>

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MonApply As New Outlook.Application
Dim MonMail As Outlook.MailItem
Dim Message As String
 
Set MonApply = Outlook.Application
Set MonMail = MonApply.CreateItem(olMailItem)
 Message = "<iframe src='D:\Fichier PP\Avis inspecteur du travail.pdf' width='500px' height='450px'></iframe>"
With MonMail
    .Subject = "Test insertion dans corps Aperçu pdf"
    '.Body = ThisWorkbook.FullName
     .HTMLBody = Message
    .Display
End With
Ma question est la suivante : pourquoi, lorsque je lance cette macro, je n'ai pas le résultat escompté ?
Y a-t-il quelqu'un qui pourrait m'aider ?

A+