Kā ātri izveidot Outlook kārtulu, lai bloķētu vairāku e-pasta ziņojumu sūtītājus

Ja vēlaties izveidot kārtulu, lai bloķētu vairāku atlasītu e-pasta ziņojumu sūtītājus, vispirms vispirms ir jāpieraksta sūtītāji un pēc tam jāizveido kārtula manuāli. Tas ir diezgan apgrūtinoši. Tādējādi šeit mēs dalīsimies ar daudz ātrāku metodi, kā to iegūt ar vienu klikšķi.

Daži lietotāji domā, ka Outlook iebūvētā funkcija “ant-spam” nav tik efektīva, kā viņi cer. Tāpēc viņi ir pieraduši izveidot Outlook kārtulas, lai bloķētu sūtītājus. Turpmāk mēs ieviesīsim ātru metodi, lai izveidotu kārtulu vairāku e-pasta ziņojumu sūtītāju bloķēšanai.

Ātri izveidojiet noteikumu, lai bloķētu vairāku e-pasta ziņojumu sūtītājus

1. Par kātart, palaidiet programmu Outlook.
2. Pēc tam ievadiet VBA redaktora logu, izmantojot saīsni “Alt + F11”.
3. Pēc tam jaunajā logā neizmantotā modulī ievietojiet šādu VBA kodu.

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. Pēc tam saskaņā arKā palaist VBA kodu programmā Outlook“, Pievienojiet šo makro ātrās piekļuves rīkjoslai vai lentei.
5. Pēc tam izejiet no VBA redaktora normāli.
6. Visbeidzot, veiciet šādas darbības, lai mēģinātu.

• Vispirms atlasiet e-pastus, kuru sūtītājus vēlaties bloķēt.
• Pēc tam noklikšķiniet uz jaunās makro pogas.
• Pēc makro pabeigšanas varat doties uz izvēlni Fails un noklikšķināt uz pogas Pārvaldīt kārtulas un brīdinājumus, lai pārbaudītu nesen pievienoto kārtulu, kā parādīts zemāk esošajā attēlā.

Saglabājiet ļaunprātīgos e-pastus līcī

Neatkarīgi no tā, kādu e-pasta klientu izmantojat, jums bieži jāsaņem e-pasta ziņojumi no nezināmiem sūtītājiem. Most no e-pastiem var būt surogātpasta reklamēšana un pat satur ļaunprātīgus makro. Tie var sabojāt jūsu Outlook failu. Tādējādi programmā Outlook jums jāveic efektīvi pasākumi, lai bloķētu nezināmus e-pastus. Turklāt, ja to varat atļauties, ieteicams sagatavot jaudīgu PST atkopšanas rīku, piemēram, DataNumen Outlook Repair. Tā var labot Outlook failu bez sviedriem, lai cik nopietni tas būtu bojāts.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar