有些用户在 Outlook 中配置了多个电子邮件帐户，并将其中一个设置为默认帐户。 但是，他们还希望 Outlook 通过另一个帐户自动转发特定的传入电子邮件。 outlook没有这个功能，只能用本文分享的VBA代码实现。
例如，您在 Outlook 中设置了两个 POP3 电子邮件帐户，并将帐户 1 设置为默认帐户。 因此，所有传入的电子邮件将保存在帐户 1 的 Outlook 文件中。您创建一个 Outlook 规则以将特定的传入电子邮件自动转发给其他人。 现在，您希望所有邮件转发都通过另一个电子邮件帐户执行，即帐户 2。但是，Outlook 规则没有提供这样的操作。 因此，您必须使用其他方法，例如以下方式。
通过不同的帐户自动转发特定的传入电子邮件
- 首先，在 Outlook 中，通过“Alt + F11”访问 VBA 编辑器。
- 然后，在 VBA 编辑器中，将以下 VBA 代码放入空闲模块中。
Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
Dim objForwardMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objMailAccounts As Outlook.Accounts
Dim objMailAccount As Outlook.Account
Set objForwardMail = objMail.Forward
'Change the recipients of forwarding email
Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
objRecipient.Type = olTo
objForwardMail.Recipients.ResolveAll
Set objMailAccounts = Outlook.Application.Session.Accounts
For Each objMailAccount In objMailAccounts
'Replace "John Smith" with the display name of your email account
If objMailAccount.DisplayName = "John Smith" Then
objForwardMail.SendUsingAccount = objMailAccount
objForwardMail.Send
End If
Next
End Sub
- 接下来，退出 VBA 编辑器。
- 随后，单击“主页”选项卡上的“规则”>“管理规则和警报”。
- 然后，在新对话框中，点击“新建规则”。
- 之后，将显示另一个对话框，您需要在其中选择“Apply rule on messages I receive”，然后单击“Next”。
- 接下来，在新屏幕中，您需要设置规则条件，例如“主题中包含特定单词”，然后点击“下一步”。
- 在随后的屏幕中，您必须选择“运行脚本”并选择您刚才添加的新宏。
- 之后，您可以根据屏幕向导完成规则设置。
- 从现在开始，每次当特定邮件到达特定邮箱时，Outlook 都会自动将其转发到另一个特定的电子邮件帐户。
损坏后抢救 Outlook 数据
虽然 Outlook 提供了大量的功能，但它仍然不能没有错误和损坏。 如果您的 Outlook 突然崩溃，您的 Outlook 数据文件很可能已损坏。 那时，即使是内置的 Outlook修复 工具 Scanpst 无法帮助您。 你别无选择，只能借助一个强大的外部工具，比如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com