Kuinka luoda nopeasti Outlook-sääntö useiden sähköpostien lähettäjien estämiseksi

Jos haluat luoda säännön estääksesi useiden valittujen sähköpostien lähettäjät, sinun on ensin kirjoitettava lähettäjät muistiin ja luotava sääntö manuaalisesti. Se on melko hankalaa. Joten tässä jaamme paljon nopeamman tavan saada se yhdellä napsautuksella.

Jotkut käyttäjät ajattelevat, että Outlookin sisäänrakennettu "ant-spam" -ominaisuus ei ole yhtä tehokas kuin he toivovat. Siksi he ovat tottuneet luomaan Outlook-sääntöjä lähettäjien estämiseksi. Seuraavassa esitellään nopea tapa luoda sääntö, joka estää useiden sähköpostien lähettäjät.

Luo nopeasti sääntö, jolla estetään useiden sähköpostien lähettäjät

1. Sillä kutentart, käynnistä Outlook-sovellus.
2. Siirry sitten VBA-editori-ikkunaan pikakuvakkeen ”Alt + F11” kautta.
3. Seuraavaksi, laita seuraava VBA-koodi uuteen ikkunaan käyttämättömään moduuliin.

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. Sen jälkeenKuinka suorittaa VBA-koodi Outlookissa“, Lisää tämä makro Pikakäynnistystyökaluriville tai nauhalle.
5. Poistu sitten VBA-editorista normaalisti.
6. Viimeiseksi, kokeile seuraavia vaiheita.

• Valitse ensin sähköpostit, joiden lähettäjät haluat estää.
• Napsauta sitten uutta makropainiketta.
• Kun makro on valmis, voit siirtyä Tiedosto-valikkoon ja napsauttaa Hallitse sääntöjä ja ilmoituksia -painiketta tarkistaaksesi äskettäin lisätyn säännön, kuten alla olevassa kuvassa näkyy.

Säilytä haitalliset sähköpostit

Riippumatta siitä, mitä sähköpostiohjelmaa käytät, sinun on usein vastaanotettava sähköpostit tuntemattomilta lähettäjiltä. Most sähköposteista saattaa olla roskapostimainoksia ja jopa haitallisia makroja. Ne voivat vahingoittaa Outlook-tiedostoa hetkessä. Siksi Outlookissa sinun on toteutettava tehokkaita toimenpiteitä tuntemattomien sähköpostien estämiseksi. Lisäksi, jos sinulla on varaa siihen, on suositeltavaa valmistaa tehokas PST-palautustyökalu, kuten DataNumen Outlook Repair. Se voi korjata Outlook tiedosto hikoilematta siitä kuinka vakavasti se on vahingoittunut.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com