Jeśli chcesz utworzyć regułę blokującą nadawców wielu wybranych wiadomości e-mail, zwykle musisz najpierw zapisać nadawców, a następnie ręcznie utworzyć regułę. To dość kłopotliwe. Dlatego tutaj udostępnimy znacznie szybszą metodę uzyskania go za pomocą jednego kliknięcia.
Niektórzy użytkownicy uważają, że wbudowana funkcja „antyspamowa” w Outlooku nie jest tak skuteczna, jak mają nadzieję. Dlatego są przyzwyczajeni do tworzenia reguł Outlooka, aby blokować nadawców. W dalszej części przedstawimy szybką metodę tworzenia reguły blokującej nadawców wielu wiadomości e-mail.
Szybko utwórz regułę blokującą nadawców wielu wiadomości e-mail
- Na początek uruchom aplikację Outlook.
- Następnie przejdź do okna edytora VBA za pomocą skrótu „Alt + F11”.
- Następnie w nowym oknie umieść następujący kod VBA w nieużywanym module.
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
- Następnie, zgodnie z „Jak uruchomić kod VBA w swoim Outlooku„, Dodaj to makro do paska narzędzi szybkiego dostępu lub wstążki.
- Następnie normalnie zamknij edytor VBA.
- Na koniec wykonaj następujące czynności, aby spróbować.
- Przede wszystkim wybierz e-maile, których nadawców chcesz zablokować.
- Następnie kliknij przycisk nowego makra.
- Po zakończeniu działania makra możesz przejść do menu „Plik” i kliknąć przycisk „Zarządzaj regułami i alertami”, aby sprawdzić nowo dodaną regułę, jak pokazano na poniższym obrazku.
Trzymaj złośliwe wiadomości e-mail w zatoce
Niezależnie od tego, jakiego klienta poczty używasz, często otrzymujesz wiadomości od nieznanych nadawców. Większość z nich to spam reklamowy, a nawet złośliwe makra. Mogą one w mgnieniu oka uszkodzić plik Outlooka. Dlatego w Outlooku powinieneś podjąć skuteczne środki, aby zablokować nieznane wiadomości. Ponadto, jeśli możesz sobie na to pozwolić, zaleca się przygotowanie skutecznego narzędzia do odzyskiwania plików PST, takiego jak: DataNumen Outlook Repair. To może napraw Outlooka pilnik bez potu, bez względu na to, jak poważnie jest uszkodzony.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com