Как быстро создать правило Outlook для блокировки отправителей нескольких электронных писем

Если вы хотите создать правило для блокировки отправителей нескольких выбранных электронных писем, обычно вам нужно сначала записать отправителей, а затем создать правило вручную. Это довольно хлопотно. Таким образом, здесь мы поделимся гораздо более быстрым способом получить его одним щелчком мыши.

Некоторые пользователи считают, что встроенная функция защиты от спама в Outlook не так эффективна, как они надеются. Поэтому они привыкли создавать правила Outlook для блокировки отправителей. Далее мы представим быстрый метод создания правила для блокировки отправителей нескольких электронных писем.

Быстро создайте правило для блокировки отправителей нескольких электронных писем

1. Для насtarт, запустите приложение 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 восстановление и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com