Sådan oprettes hurtigt en Outlook-regel for at blokere afsendere af flere e-mails

Hvis du vil oprette en regel for at blokere afsendere af flere valgte e-mails, skal du normalt først skrive ned afsenderne og derefter oprette en regel manuelt. Det er ret besværligt. Således deler vi her en meget hurtigere metode til at få det via et enkelt klik.

Nogle brugere synes, at den indbyggede “ant-spam” -funktion i Outlook ikke er så effektiv, som de håber. Derfor er de vant til at oprette Outlook-regler for at blokere afsenderne. Nu i det følgende vil vi introducere en hurtig metode til at oprette en regel, der blokerer afsendere af flere e-mails.

Opret hurtigt en regel for at blokere afsendere af flere e-mails

1. For somtart, start Outlook-applikationen.
2. Indtast derefter VBA-editorvinduet via genvejen "Alt + F11".
3. Derefter skal du i det nye vindue sætte følgende VBA-kode i et ubrugt 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. Derefter i overensstemmelse med “Sådan køres VBA-kode i din Outlook“, Tilføj denne makro til Quick Access Toolbar eller bånd.
5. Afslut derefter VBA-editoren normalt.
6. Til sidst skal du tage følgende trin for at prøve.

• Vælg først de e-mails, hvis afsendere du vil blokere.
• Klik derefter på den nye makroknap.
• Når makroen er færdig, kan du gå til menuen "Filer" og klikke på knappen "Administrer regler og alarmer" for at kontrollere den nyligt tilføjede regel, som vist på billedet nedenfor.

Hold ondsindede e-mails i bugt

Uanset hvilken e-mail-klient du bruger, skal du ofte modtage e-mails fra ukendte afsendere. Most af e-mails kan være reklamespam og endda indeholde ondsindede makroer. De kan beskadige din Outlook-fil på et øjeblik. Således skal du i Outlook træffe effektive foranstaltninger til at blokere de ukendte e-mails. Derudover, hvis du har råd til det, anbefales det at forberede et kraftfuldt PST-gendannelsesværktøj, såsom DataNumen Outlook Repair. Det kan reparere Outlook fil uden at svede, uanset hvor alvorligt den er beskadiget.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com