Code VBA - créer un mail avec en PJ le dernier mail reçu dans la Boite de reception

Bonjour,
Comme évoqué dans l'intitulé de cette discussion, je posséde un fichier excel avec pas mal de boutons pointant vers du code vba et me permettant dans un cadre associatif d'écrire des mails avec des PJ recherchées automatiquement dans mon PC etc... Aujourd'hui je souhaite pousser le vice un peu plus loin et crée un mail automatiquement avec un certain texte à l'interieur, ça je sais faire mais je veux joindre à ce mail et en PJ le dernier mail reçu qui se trouve donc dans la boite de reception
J'ai commencé à élaborer ce code (uniquement pour enregistrer le dernier mail reçu sur le bureau) mais je sèche, bref j'ai besoin de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MonOutlook As Object, MonMail As Object Dim ImpDefaut As String Dim myItem As Outlook.MailItem     Set MonOutlook = CreateObject("Outlook.Application") With MonOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) If .Items.Count > 0 Then Set MonMail = .Items(1) End With .Item(1).SaveAsFile ("C:\Users\MOI\Desktop\" & ActiveWorkbook.Sheets("Accueil").Range("C51").Value & ".msg")   End Sub

---

Merci de votre retour et bonne journée

Pour ceux que ça intéresse,
je suis parvenu à réaliser ce que je voulais, c'est à dire depuis Excel enregistrer le dernier mail reçu dans outlook, je vous laisse le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub enregistrerderniermailRECU()   Dim MonOutlook As Object, MonMail As Object 'Dim ImpDefaut As String Dim myItem As Outlook.MailItem Dim myAttachments As Outlook.Attachments   Set MonOutlook = CreateObject("Outlook.Application") With MonOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) If .Items.Count > 0 Then Set MonMail = .Items(1) MonMail.SaveAs ("C:\Users\MOI\Desktop\" & ActiveWorkbook.Sheets("Accueil").Range("C51").Value & ".msg"), OlSaveAsType.olMSG   End With End Sub

---