如何解决Outlook 2013 重定向选定的电子邮件并使回复地址与原始发件人相同
我在 Outlook 2013 的共享交换邮箱中收到支持请求。我将我应该处理的邮件转发到外部票务系统。在转发之前,我将原始发件人的地址复制到回复地址中。我想使用 VBA 宏自动执行此过程。
以下宏将是完美的:
预先感谢您帮我节省了大量时间。
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 举报,一经查实,本站将立刻删除。