Kako brzo kreirati Outlook pravilo za blokiranje pošiljalaca više e-poruka

Ako želite kreirati pravilo za blokiranje pošiljatelja više odabranih e-poruka, obično morate prvo zapisati pošiljaoce, a zatim ručno kreirati 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 funkcija „mravlje neželjene pošte“ u Outlooku nije toliko efikasna kao što se nadaju. Stoga su navikli kreirati Outlook pravila kako bi blokirali pošiljaoce. Sada ćemo u nastavku predstaviti brzu metodu za kreiranje pravila za blokiranje pošiljatelja više e-poruka.

Brzo kreirajte pravilo za blokiranje pošiljalaca više e-poruka

1. Za astart, pokrenite Outlook aplikaciju.
2. Zatim uđite u prozor VBA editora preko prečice “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 sa „Kako pokrenuti VBA kod u vašem Outlooku“, dodajte ovaj makro na alatnu traku ili traku za brzi pristup.
5. Nakon toga, normalno izađite iz VBA editora.
6. Na kraju, poduzmite sljedeće korake da biste probali.

• Prije svega, odaberite e-poštu čije pošiljatelje želite blokirati.
• Zatim kliknite na dugme za novi makro.
• Nakon što se makro završi, možete otići na meni „Datoteka“ i kliknuti na dugme „Upravljanje pravilima i upozorenjima“ da proverite novo dodato pravilo, kao što je prikazano na slici ispod.

Držite zlonamjerne e-poruke u zaljevu

Bez obzira koji klijent e-pošte koristite, morate često primati e-poštu od nepoznatih pošiljalaca. Most e-mailovi mogu biti reklamni neželjeni sadržaji i čak sadržavati zlonamjerne makroe. Oni mogu oštetiti vašu Outlook datoteku u trenu. Stoga bi u Outlooku trebali poduzeti efikasne mjere da blokirate nepoznate e-poruke. Osim toga, ako si to možete priuštiti, preporučljivo je pripremiti moćan alat za oporavak PST-a, kao npr DataNumen Outlook Repair. Može popraviti Outlook fajl bez znojenja bez obzira koliko je ozbiljno oštećen.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com