Kako hitro ustvariti Outlookovo pravilo za blokiranje pošiljateljev več e-poštnih sporočil

Če želite ustvariti pravilo za blokiranje pošiljateljev več izbranih e-poštnih sporočil, morate običajno najprej zapisati pošiljatelje in nato ročno ustvariti pravilo. Je precej težavno. Zato bomo tukaj delili veliko hitrejšo metodo, da jo dobite z enim klikom.

Nekateri uporabniki menijo, da vgrajena funkcija »ant-spam« v Outlooku ni tako učinkovita, kot upajo. Zato so navajeni ustvarjati Outlookova pravila za blokiranje pošiljateljev. Zdaj bomo v nadaljevanju predstavili hitro metodo za ustvarjanje pravila za blokiranje pošiljateljev več e-poštnih sporočil.

Hitro ustvarite pravilo za blokiranje pošiljateljev več e-poštnih sporočil

1. Kajti kottart, zaženite aplikacijo Outlook.
2. Nato odprite okno urejevalnika VBA prek bližnjice »Alt + F11«.
3. Nato v novem oknu vstavite naslednjo kodo VBA v neuporabljen modul.

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. Po tem, v skladu z "Kako zagnati kodo VBA v Outlooku«, dodajte ta makro v orodno vrstico za hitri dostop ali trak.
5. Nato normalno zaprite urejevalnik VBA.
6. Nazadnje naredite naslednje, da poskusite.

• Najprej izberite e-poštna sporočila, katerih pošiljatelje želite blokirati.
• Nato kliknite gumb za nov makro.
• Ko je makro končan, lahko odprete meni »Datoteka« in kliknete gumb »Upravljanje pravil in opozoril«, da preverite novo dodano pravilo, kot je prikazano na spodnji sliki.

Zlonamerna e-poštna sporočila hranite v zalivu

Ne glede na to, kateri e-poštni odjemalec uporabljate, morate pogosto prejemati e-pošto od neznanih pošiljateljev. Most e-poštnih sporočil je lahko oglaševalska neželena pošta in celo vsebuje zlonamerne makre. V hipu lahko poškodujejo vašo Outlookovo datoteko. Zato bi morali v Outlooku sprejeti učinkovite ukrepe za blokiranje neznanih e-poštnih sporočil. Poleg tega, če si to lahko privoščite, je priporočljivo pripraviti zmogljivo orodje za obnovitev PST, kot je npr DataNumen Outlook Repair. Lahko popravilo Outlook pilite, ne da bi se preznojili, ne glede na to, kako resno je poškodovan.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com