要自动转发特定的传入电子邮件，您首先会想到使用 Outlook 中的规则。 但是，规则不支持您在转发时自定义电子邮件主题和正文。 如果您想自动转发带有自定义主题和正文的特定邮件，您可以使用本文介绍的方法。
众所周知，Outlook规则可以支持用户自动转发特定的传入邮件。 这样，邮件将自动转发给特定的人，主题格式为“FW：原始邮件主题”和原始邮件正文。 但是，许多用户希望自动转发带有自定义主题和正文的电子邮件。 显然，规则无法实现它。 因此，在这里我们将介绍一种轻松获取它的方法。
自动转发带有自定义主题和正文的特定传入电子邮件
- 一开始，start 您的 Outlook 程序。
- 然后，参考“访问VBA编辑器如何在 Outlook 中运行 VBA 代码“。
- 接下来，将以下 VBA 代码复制并粘贴到“ThisOutlookSession”项目中。
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'If it is a specific new email
If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
Set objForward = objMail.Forward
'Customize the forward subject, body and recipients
With objForward
.Subject = "Custom Subject"
.HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
.Recipients.Add ("boss@datanumen.com")
.Recipients.Add ("john@datanumen.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub
- 之后，更改指定传入电子邮件的条件。 并根据需要修改代码中的具体正文、主题和收件人。
- 最后，点击“Application_Startup”子程序，然后按“F5”键。
- 从那时起，每当特定的收件到达您的默认收件箱文件夹时，Outlook 都会自动将其与自定义主题和正文一起转发给预定义的收件人。
灵活解决 Outlook 问题
尽管 Outlook 功能丰富，但它无法避免错误和其他问题。 例如，由于多种因素，Outlook PST 文件很容易损坏。 这些包括人为错误、病毒、过大的 PST 文件和损坏的 Outlook 配置文件等。 因此，您需要采取一些预防措施，例如对 Outlook PST 文件大小保持谨慎，将所有病毒拒之门外，以及获得一个强大的 展望恢复 工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 SQL Server 恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com