Ako rýchlo vytvoriť pravidlo programu Outlook na blokovanie odosielateľov viacerých e-mailov

Ak chcete vytvoriť pravidlo blokujúce odosielateľov viacerých vybraných e-mailov, musíte si najskôr odosielateľov zapísať a potom vytvoriť pravidlo ručne. Je to dosť nepríjemné. Preto tu budeme zdieľať oveľa rýchlejšiu metódu, ako ju získať jedným kliknutím.

Niektorí používatelia si myslia, že vstavaná funkcia „ant-spamu“ v programe Outlook nie je taká efektívna, ako dúfajú. Preto sú zvyknutí vytvárať pravidlá Outlooku na blokovanie odosielateľov. Teraz v nasledujúcom texte predstavíme rýchlu metódu na vytvorenie pravidla na blokovanie odosielateľov viacerých e-mailov.

Rýchlo vytvorte pravidlo na blokovanie odosielateľov viacerých e-mailov

1. Pre začiatok spustite aplikáciu Outlook.
2. Potom vstúpte do okna editora VBA pomocou skratky „Alt + F11“.
3. Ďalej v novom okne vložte nasledujúci 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. Potom v súlade s „Ako spustiť kód VBA v programe Outlook“, Pridajte toto makro na panel s nástrojmi alebo na pásku s nástrojmi Rýchly prístup.
5. Potom normálne ukončite editor VBA.
6. Nakoniec vyskúšajte nasledujúce kroky.

• Najskôr vyberte e-maily, ktorých odosielateľov chcete blokovať.
• Potom kliknite na tlačidlo nového makra.
• Po dokončení makra môžete prejsť do ponuky „Súbor“ a kliknutím na tlačidlo „Spravovať pravidlá a výstrahy“ skontrolovať novo pridané pravidlo, ako je to znázornené na obrázku nižšie.

Majte škodlivé e-maily na serveri Bay

Bez ohľadu na to, akého e-mailového klienta používate, často musíte dostávať e-maily od neznámych odosielateľov. Väčšina e-mailov môže byť reklamný spam a dokonca obsahuje škodlivé makrá. Môžu rýchlo poškodiť váš súbor Outlooku. Preto by ste v Outlooku mali prijať účinné opatrenia na blokovanie neznámych e-mailov. Okrem toho, ak si to môžete dovoliť, je vhodné pripraviť si výkonný nástroj na obnovu PST, ako napríklad DataNumen Outlook Repair, Môže opraviť Outlook pilník bez toho, aby ste sa zapotili bez ohľadu na to, ako vážne je poškodený.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S