Vba Outlook 2013重定向所选电子邮件并使回复地址与原始发件人地址相同

我在Outlook 2013的共享exchange邮箱中收到支持请求。我将要处理的邮件转发到外部票务系统。在转发之前，我将原始发件人的地址复制到回复地址中。我希望使用VBA宏自动执行此过程

如果满足以下条件，则以下宏将是完美的：

原始发件人的地址将复制到回复地址中，并且

如果可以将原始邮件的类别设置为“myname”，并将其标记为完成

提前谢谢你帮我节省了很多时间

Sub BatchRedirectEmails()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objRedirectMail As Outlook.MailItem
 
    'Get all selected emails
    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       For i = objSelection.Count To 1 Step -1
           If TypeOf objSelection(i) Is MailItem Then
              Set objMail = objSelection(i)
 
              'Redirect each email
              Set objRedirectMail = objMail.Forward
              With objRedirectMail
                   'Add more recipients as per your needs
                   .Recipients.Add ("john@datanumen.com")
                   .Recipients.Add ("abby@datanumen.com")
                   .Recipients.Add ("coral@datanumen.com")
                   .Recipients.Add ("david@datanumen.com")
                   .Recipients.ResolveAll
                   .Subject = objMail.Subject
                   .HTMLBody = objMail.HTMLBody
                   .Send 
             End With
 
          End If
       Next
    End If
End Sub```

---

这回答了你的问题吗？谢谢尼顿的回复。不幸的是，我没有任何编码经验。我在网上找到了我发布的代码。我想你的帖子至少包含了我第一次询问的答案。你能告诉我代码的哪一部分需要插入到哪里吗？你知道我询问的第二部分如何编码吗？提前感谢。

.Recipients.add（objMail.SenderEmailAddress）

更新类别。ReplyRecipients.add（objMail.SenderEmailAddress）似乎可以做到这一点。我还需要复印抄送地址。