title: How to forward emails in a folder and change the reply to address to the original sender?
body: <p>I have a user who wants to redirect any email to other people in their department so that when that person replies to the email it will go back to the person who originally sent it.</p>
  <p>I am trying to make VBA code to forward all emails in a specified folder and change the reply to address so that they don't have to manually put it in every time.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub SendFolder()
      Dim olApp As Outlook.Application
      Dim olNS As Outlook.NameSpace
      Dim MyFolder As Outlook.MAPIFolder
      Dim ObjMail As Outlook.MailItem
  
      Set olApp = Outlook.Application
      Set olNS = olApp.GetNamespace(&quot;MAPI&quot;)
      Set MyFolder = Application.Session.Folders(&quot;me@us.com&quot;).Folders(&quot;test&quot;)
  
      For i = MyFolder.Items.Count To 0 Step -1
          Set ObjMail.Subject = MyFolder.Itmes(i).Subject
          Set ObjMail.ReplyRecipients = MyFolder.Itmes(i).ReplyRecipients
          Set ObjMail.Body = MyFolder.Itmes(i).Body
          Set ObjMail.Attachments = MyFolder.Itmes(i).Attachments
          Set ObjMail.BodyFormat = MyFolder.Itmes(i).BodyFormat
          Set ObjMail.To = &quot;test@us.com&quot;
          ObjMail.Send
      Next
  End Sub
  </code></pre>