如果您想创建一个规则来阻止多个选定电子邮件的发件人，通常，您必须先记下发件人，然后手动创建一个规则。 挺麻烦的。 因此，在这里我们将分享一种更快捷的一键获取方法。
一些用户认为 Outlook 中内置的“反垃圾邮件”功能并不像他们希望的那样有效。 因此，他们习惯于创建 Outlook 规则来阻止发件人。 现在，在下文中，我们将介绍一种快速创建规则以阻止多封电子邮件发件人的方法。
快速创建规则以阻止多封电子邮件的发件人
- 对于作为tart、启动 Outlook 应用程序。
- 然后，通过快捷键“Alt+F11”进入VBA编辑器窗口。
- 接下来，在新窗口中，将以下 VBA 代码放入未使用的模块中。
Sub CreateRuleForBlockingMultipleSenders()
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Dim objMoveRuleAction As Outlook.MoveOrCopyRuleAction
Dim objFromCondition As Outlook.ToOrFromRuleCondition
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objJunkFolder As Outlook.Folder
Set objRules = Application.Session.DefaultStore.GetRules()
'Create a rule
Set objRule = objRules.Create("Block Senders", olRuleReceive)
Set objFromCondition = objRule.Conditions.From
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
'Get Junk Email folder
Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
For i = objSelection.Count To 1 Step -1
If objSelection.Item(i).Class = olMail Then
Set objMail = objSelection.Item(i)
'Add the email senders to rule condition
With objFromCondition
.Enabled = True
.Recipients.Add objMail.SenderEmailAddress
.Recipients.ResolveAll
End With
'Move the emails from blocked senders to Junk Email folder
Set objMoveRuleAction = objRule.Actions.MoveToFolder
With objMoveRuleAction
.Enabled = True
.Folder = objJunkFolder
End With
End If
Next
objRules.Save
End Sub
- 之后，按照“如何在 Outlook 中运行 VBA 代码“，将此宏添加到快速访问工具栏或功能区。
- 随后，正常退出 VBA 编辑器。
- 最后，按照以下步骤试一试。
- 首先，选择要阻止其发件人的电子邮件。
- 然后，单击新建宏按钮。
- 宏完成后，您可以进入“文件”菜单并单击“管理规则和警报”按钮来检查新添加的规则，如下图所示。
远离恶意电子邮件
无论您使用什么电子邮件客户端，您都必须经常收到来自未知发件人的电子邮件。 米ost 的电子邮件可能是广告垃圾邮件，甚至包含恶意宏。 它们会瞬间损坏您的 Outlook 文件。 因此，在 Outlook 中，您应该采取有效措施来阻止未知邮件。 另外，如果你负担得起，建议准备一个强大的PST恢复工具，比如 DataNumen Outlook Repair。 它可以 修复 Outlook 无论损坏多么严重，都可以毫不费力地归档。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com