Kuidas kiiresti luua Outlooki reegel mitme meili saatjate blokeerimiseks

Kui soovite luua reegli mitme valitud meili saatjate blokeerimiseks, peate tavaliselt saatjad kirja panema ja seejärel reegli käsitsi looma. See on üsna tülikas. Seega jagame siin palju kiiremat meetodit selle ühe klõpsuga hankimiseks.

Mõned kasutajad arvavad, et Outlooki sisseehitatud rämpsposti funktsioon ei ole nii tõhus, kui nad loodavad. Seetõttu on nad harjunud saatjate blokeerimiseks Outlooki reeglite loomisega. Järgnevalt tutvustame kiiret meetodit mitme e-kirja saatjate blokeerimiseks reegli loomiseks.

Looge kiiresti reegel mitme meili saatjate blokeerimiseks

1. Sest nagutart, käivitage Outlooki rakendus.
2. Seejärel sisenege VBA redaktori aknasse otsetee "Alt + F11" kaudu.
3. Järgmisena pange uues aknas kasutamata moodulisse järgmine VBA kood.

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ärast seda vastavalt "Kuidas Outlookis VBA-koodi käivitada“, lisage see makro kiirpääsu tööriistaribale või lindile.
5. Seejärel väljuge VBA redaktorist tavapäraselt.
6. Lõpuks tehke proovimiseks järgmised toimingud.

• Kõigepealt valige meilid, mille saatjaid soovite blokeerida.
• Seejärel klõpsake uuel makro nupul.
• Pärast makro lõpetamist võite minna menüüsse „Fail” ja klõpsata nuppu „Halda reegleid ja hoiatusi”, et kontrollida äsja lisatud reeglit, nagu on näidatud alloleval pildil.

Hoidke pahatahtlikud meilid lahes

Olenemata sellest, millist meiliklienti te kasutate, peate sageli saama meile tundmatutelt saatjatelt. Most meilidest võivad olla rämpspostid ja isegi pahatahtlikud makrod. Need võivad teie Outlooki faili hetkega kahjustada. Seega peaksite Outlookis võtma tõhusaid meetmeid tundmatute meilide blokeerimiseks. Lisaks, kui saate seda endale lubada, on soovitatav ette valmistada võimas PST taastamise tööriist, nt DataNumen Outlook Repair. See võib Outlooki parandamine faili higistamata, olenemata sellest, kui tõsiselt see kahjustatud on.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom