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 začátek 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, často dostáváte e-maily od neznámých odesílatelů. Většina e-mailů může být reklamní spam a dokonce obsahovat škodlivá makra. Mohou váš soubor Outlooku rychle poškodit. Proto byste v Outlooku měli podniknout účinná opatření k blokování neznámých e-mailů. Kromě toho, pokud si to můžete dovolit, je vhodné připravit si výkonný nástroj pro obnovu PST souborů, například 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