Répondre a un mail avec un macro Excel

bonjour a tous,

je voudrais savoir si c'est possible de répondre a un mail avec un macro excel...

je m'explique je voudrais rechercher un mais en particulier (la rechercher devras se faire dans tout les dossier, car j’utilise les réglés outlook pour faire un premier tri de mes mails.) et répondre a ce mail mais en remplaçant le destinataire et les personne en copies.

voici le rafistolage que j'ai fait avec des bout de code que j'ai trouver mais j'arrive pas trouver une solution a mon problème

Sub maj_panne()
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim Item As Object
Dim sj As String
Dim le_mail As Variant

Set objNS = GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set le_mail = CreateObject("outlook.application")

sj = "RE: KN SAS_Devis de réparation d'imprimante thermique en attente - URGENT"

With olFolder
    For i = 1 To .Items.Count
        If TypeOf .Items(i) Is Outlook.MailItem Then
          If .Items(i).Subject = sj Then
            n = i
          End If
        End If
    Next
End With
olFolder.Items(n).Display
End Sub

il y a deux soucis avec ces code premièrement il ne cherche que dans la boite de réception hors je souhaiterais qu'il face dans tout les dossier

et deuxièmement il affiche le message au lieu de "répondre"

merci pour vos réponses.

Je reste évidement a votre disposition pour toute les éventuelle question que vous pourrez avoir