Як швидко створити правило Outlook, щоб заблокувати відправників кількох електронних листів

Якщо ви хочете створити правило для блокування відправників кількох вибраних електронних листів, зазвичай вам потрібно спочатку записати відправників, а потім створити правило вручну. Це досить клопітно. Таким чином, тут ми поділимося набагато швидшим методом, щоб отримати його одним клацанням миші.

Деякі користувачі вважають, що вбудована функція "анти-спаму" в Outlook не така ефективна, як вони сподіваються. Тому вони звикли створювати правила Outlook для блокування відправників. Тепер, далі, ми представимо швидкий метод для створення правила блокування відправників декількох електронних листів.

Швидко створіть правило для блокування відправників кількох електронних листів

1. Для якtart, запустіть програму Outlook.
2. Потім увійдіть у вікно редактора VBA за допомогою комбінації клавіш “Alt + F11”.
3. Далі, у новому вікні, помістіть наступний код 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

4. Після цього, відповідно до “Як запустити код VBA у своєму Outlook“, Додайте цей макрос на панель швидкого доступу або стрічку.
5. Згодом нормально закрийте редактор VBA.
6. Нарешті, виконайте наступні кроки, щоб спробувати.

• Перш за все, виберіть електронні листи, відправників яких ви хочете заблокувати.
• Потім натисніть кнопку нового макросу.
• Після завершення макросу ви можете перейти до меню «Файл» і натиснути кнопку «Управління правилами та сповіщеннями», щоб перевірити нещодавно додане правило, як показано на малюнку нижче.

Зберігайте шкідливі електронні листи в бухті

Незалежно від того, яким поштовим клієнтом ви користуєтесь, вам доведеться часто отримувати електронні листи від невідомих відправників. Мost з електронних листів може бути рекламним спамом і навіть містити шкідливі макроси. Вони можуть негайно пошкодити ваш файл Outlook. Таким чином, в Outlook вам слід вжити ефективних заходів для блокування невідомих електронних листів. Крім того, якщо ви можете собі це дозволити, бажано підготувати потужний засіб відновлення PST, такий як DataNumen Outlook Repair. Він може ремонт Outlook файл, не порушуючи поту, незалежно від того, наскільки серйозно він пошкоджений.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення SQL та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com