通常，如果要創建一條規則來阻止多個選定電子郵件的發件人，則必須先寫下發件人，然後手動創建一條規則。 這很麻煩。 因此，這裡我們將分享一種更快的方法，只需單擊一下即可獲得。
一些用戶認為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。 它可以 維修展望 無論損壞有多嚴重，文件都不會汗流breaking背。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql恢復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM