title: Reply to Outlook mail from Excel
body: <p>I am trying to "replytoall" with a given format in the Body.</p>
  
  <p>I use the following code to search for and display the mails.</p>
  
  <pre><code>Sub Test()
  
  Dim olApp As Outlook.Application
  Dim olNs As Namespace
  Dim Fldr As MAPIFolder
  Dim olMail As Variant
  Dim i As Integer
  
  Set olApp = New Outlook.Application
  Set olNs = olApp.GetNamespace("MAPI")
  Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
  i = 1
  
  For Each olMail In Fldr.Items
  If InStr(olMail.Subject, "Application for Privilege Leave - Leave ID - Dev-PL-45252-4") &lt;&gt; 0 Then
  olMail.Display
  
  i = i + 1
  End If
  Next olMail
  End Sub
  </code></pre>
  
  <p>I need to Replyall with the same subject and a prescribed body and signature. </p>
  
  <p>It is similar to when we open up a mail in Outlook and click on the Reply to All button.</p>
  
  <p>I want it triggered from Excel.</p>