Hur man snabbt skapar en Outlook-regel för att blockera avsändare av flera e-postmeddelanden

Om du vill skapa en regel för att blockera avsändare av flera valda e-postmeddelanden måste du vanligtvis först skriva ner avsändarna och sedan skapa en regel manuellt. Det är ganska besvärligt. Således kommer vi här att dela en mycket snabbare metod för att få den med ett klick.

Vissa användare tycker att den inbyggda "ant-spam" -funktionen i Outlook inte är så effektiv som de hoppas. Därför är de vana vid att skapa Outlook-regler för att blockera avsändarna. Nu, i det följande, kommer vi att introducera en snabb metod för att skapa en regel för att blockera avsändare av flera e-postmeddelanden.

Skapa snabbt en regel för att blockera avsändare av flera e-postmeddelanden

1. För somtarstarta Outlook-applikationen.
2. Gå sedan in i VBA-redigeringsfönstret via genvägen "Alt + F11".
3. Därefter placerar du följande VBA-kod i en oanvänd modul i det nya fönstret.

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. Efter det, i enlighet medHur du kör VBA-kod i din Outlook“, Lägg till detta makro i snabbåtkomstverktygsfältet eller menyfliksområdet.
5. Avsluta sedan VBA-redigeraren normalt.
6. Slutligen, ta följande steg för att prova.

• Välj först e-postmeddelanden vars avsändare du vill blockera.
• Klicka sedan på den nya makroknappen.
• När makro är klar kan du gå till "Arkiv" -menyn och klicka på "Hantera regler och varningar" för att kontrollera den nyligen tillagda regeln, som visas i bilden nedan.

Förvara skadliga e-postmeddelanden vid bukten

Oavsett vilken e-postklient du använder måste du ofta ta emot e-postmeddelanden från okända avsändare. Most av e-postmeddelandena kan vara reklamskräp och till och med innehålla skadliga makron. De kan skada din Outlook-fil på ett tag. Således, i Outlook, borde du vidta effektiva åtgärder för att blockera okända e-postmeddelanden. Dessutom är det tillrådligt att förbereda ett kraftfullt PST-återställningsverktyg, till exempel om du har råd DataNumen Outlook Repair. Det kan reparera Outlook fil utan att svettas oavsett hur allvarligt den är skadad.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL-återhämtning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com