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

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

Някои потребители смятат, че вградената функция „ant-spam“ в Outlook не е толкова ефективна, колкото се надяват. Следователно те са свикнали да създават правила на Outlook, за да блокират подателите. Сега, по-долу, ще представим бърз метод за създаване на правило за блокиране на подателите на множество имейли.

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

1. За начало стартирайте приложението 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

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

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

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