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

问题描述

我在 Outlook 2013 的共享交换邮箱中收到支持请求。我将我应该处理的邮件转发到外部票务系统。在转发之前，我将原始发件人的地址复制到回复地址中。我想使用 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```

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

outlook-2013 vba