Jak rychle vytvořit pravidlo aplikace Outlook k blokování odesílatelů více e-mailů

Chcete-li vytvořit pravidlo pro blokování odesílatelů více vybraných e-mailů, obvykle musíte odesílatele nejprve zapsat a poté vytvořit pravidlo ručně. Je to docela problematické. Proto zde budeme sdílet mnohem rychlejší způsob, jak jej získat jedním kliknutím.

Někteří uživatelé si myslí, že vestavěná funkce „ant-spamu“ v aplikaci Outlook není tak účinná, jak doufají. Proto jsou zvyklí vytvářet pravidla Outlooku pro blokování odesílatelů. Nyní v následujícím představíme rychlý způsob vytvoření pravidla pro blokování odesílatelů více e-mailů.

Rychle vytvořte pravidlo pro blokování odesílatelů více e-mailů

1. Pro jakotart, spusťte aplikaci Outlook.
2. Poté vstupte do okna editoru VBA pomocí zkratky „Alt + F11“.
3. Dále v novém okně vložte následující kód VBA do nepoužívaného modulu.

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. Poté v souladu s „Jak spustit kód VBA ve vašem Outlooku“, přidejte toto makro na panel nástrojů Rychlý přístup nebo pás karet.
5. Následně normálně ukončete editor VBA.
6. Nakonec vyzkoušejte následující kroky.

• Nejprve vyberte e-maily, jejichž odesílatele chcete blokovat.
• Poté klikněte na tlačítko nové makro.
• Po dokončení makra můžete přejít do nabídky „Soubor“ a kliknutím na tlačítko „Spravovat pravidla a upozornění“ zkontrolovat nově přidané pravidlo, jak je znázorněno na obrázku níže.

Udržujte škodlivé e-maily v zálivu

Bez ohledu na to, jakého e-mailového klienta používáte, musíte často přijímat e-maily od neznámých odesílatelů. Most z e-mailů mohou být reklamní spamy a dokonce mohou obsahovat škodlivá makra. Mohou během okamžiku poškodit váš soubor aplikace Outlook. V aplikaci Outlook byste tedy měli přijmout účinná opatření k blokování neznámých e-mailů. Navíc, pokud si to můžete dovolit, je vhodné připravit si výkonný nástroj pro obnovu PST, jako je kupř DataNumen Outlook Repair. To může opravit Outlook bez ohledu na to, jak vážně je poškozen.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com