Slik oppretter du raskt en Outlook-regel for å blokkere avsendere av flere e-poster

Hvis du vil opprette en regel for å blokkere avsendere av flere utvalgte e-poster, må du vanligvis først skrive ned avsendere og deretter opprette en regel manuelt. Det er ganske plagsomt. Derfor vil vi her dele en mye raskere metode for å få den med ett klikk.

Noen brukere tror den innebygde "ant-spam"-funksjonen i Outlook ikke er så effektiv som de håper. Derfor er de vant til å lage Outlook-regler for å blokkere avsendere. Nå, i det følgende, vil vi introdusere en rask metode for å lage en regel for å blokkere avsendere av flere e-poster.

Lag raskt en regel for å blokkere avsendere av flere e-poster

1. For somtart, start Outlook-applikasjonen.
2. Gå deretter inn i VBA-redigeringsvinduet via snarveien "Alt + F11".
3. Deretter, i det nye vinduet, legger du følgende VBA-kode inn i en ubrukt 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. Etter det, i henhold til "Hvordan kjøre VBA-kode i Outlook", legg til denne makroen til hurtigtilgangsverktøylinjen eller båndet.
5. Avslutt deretter VBA-editoren på vanlig måte.
6. Til slutt, ta følgende trinn for å prøve.

• Først av alt, velg e-postene hvis avsendere du vil blokkere.
• Klikk deretter på den nye makroknappen.
• Etter at makroen er ferdig, kan du gå til "Fil"-menyen og klikke på "Administrer regler og varsler" -knappen for å sjekke den nylig lagt til regelen, som vist i bildet nedenfor.

Hold ondsinnede e-poster unna

Uansett hvilken e-postklient du bruker, må du ofte motta e-postene fra ukjente avsendere. Most av e-postene kan være reklamespam og til og med inneholde ondsinnede makroer. De kan skade Outlook-filen din på et blunk. Derfor, i Outlook, bør du ta effektive tiltak for å blokkere de ukjente e-postene. I tillegg, hvis du har råd til det, er det tilrådelig å forberede et kraftig PST-gjenopprettingsverktøy, som f.eks DataNumen Outlook Repair. Det kan reparere Outlook fil uten å svette uansett hvor alvorlig den er skadet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med