Kako brzo stvoriti Outlook pravilo za blokiranje pošiljatelja više e-poruka

Ako želite stvoriti pravilo za blokiranje pošiljatelja više odabranih poruka e-pošte, obično prvo morate zapisati pošiljatelje, a zatim ručno izraditi pravilo. To je prilično problematično. Stoga ćemo ovdje podijeliti mnogo brži način da ga dobijete jednim klikom.

Neki korisnici misle da ugrađena značajka "ant-spam" u Outlooku nije tako učinkovita koliko se nadaju. Stoga su navikli stvarati Outlook pravila za blokiranje pošiljatelja. Sada ćemo u nastavku predstaviti brzu metodu za stvaranje pravila za blokiranje pošiljatelja više e-poruka.

Brzo izradite pravilo za blokiranje pošiljatelja više poruka e-pošte

1. Za astart, pokrenite Outlook aplikaciju.
2. Zatim uđite u prozor VBA uređivača preko prečaca “Alt + F11”.
3. Zatim, u novom prozoru, stavite sljedeći VBA kod u neiskorišteni 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. Nakon toga, u skladu s “Kako pokrenuti VBA kod u vašem Outlooku“, dodajte ovu makronaredbu na alatnu traku za brzi pristup ili vrpcu.
5. Nakon toga normalno izađite iz VBA uređivača.
6. Na kraju, poduzmite sljedeće korake da biste isprobali.

• Prije svega odaberite e-poruke čije pošiljatelje želite blokirati.
• Zatim kliknite gumb za novu makronaredbu.
• Nakon što makronaredba završi, možete otići na izbornik "Datoteka" i kliknuti gumb "Upravljanje pravilima i upozorenjima" da provjerite novo dodano pravilo, kao što je prikazano na slici ispod.

Držite zlonamjernu e-poštu podalje

Bez obzira koji klijent e-pošte koristite, morate često primati e-poštu od nepoznatih pošiljatelja. Most e-poruka može biti reklamna neželjena pošta i čak sadržavati zlonamjerne makronaredbe. Oni mogu oštetiti vašu Outlook datoteku u tren oka. Dakle, u Outlooku biste trebali poduzeti učinkovite mjere za blokiranje nepoznatih e-poruka. Osim toga, ako si to možete priuštiti, preporučljivo je pripremiti moćan alat za oporavak PST-a, kao što je DataNumen Outlook Repair. To može popraviti Outlook turpijajte bez oznoja bez obzira na to koliko je ozbiljno oštećen.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com