Как бързо да създадете правило на Outlook, за да блокирате подателите на множество имейли

Ако искате да създадете правило за блокиране на подателите на множество избрани имейли, обикновено първо трябва да запишете подателите и след това да създадете правило ръчно. Това е доста обезпокоително. Затова тук ще споделим много по-бърз метод за получаването му с едно кликване.

Някои потребители смятат, че вградената функция „ant-spam“ в 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. И накрая, направете следните стъпки, за да опитате.

• Първо изберете имейлите, чиито податели искате да блокирате.
• След това щракнете върху бутона за нов макрос.
• След като макросът приключи, можете да отидете в менюто „Файл“ и да щракнете върху бутона „Управление на правила и предупреждения“, за да проверите новодобавеното правило, както е показано на изображението по-долу.

Пазете злонамерени имейли в Bay

Без значение какъв имейл клиент използвате, трябва често да получавате имейли от неизвестни податели. Мost от имейлите може да са рекламен спам и дори да съдържат злонамерени макроси. Те могат да повредят вашия Outlook файл за миг. По този начин в Outlook трябва да предприемете ефективни мерки за блокиране на неизвестните имейли. Освен това, ако можете да си го позволите, препоръчително е да подготвите мощен инструмент за възстановяване на PST, като напр DataNumen Outlook Repair, То може ремонт на Outlook пилете, без да се потите, независимо колко сериозно е повреден.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com