So erstellen Sie schnell eine Outlook-Regel, um die Absender mehrerer E-Mails zu blockieren

Wenn Sie eine Regel erstellen möchten, um die Absender mehrerer ausgewählter E-Mails zu blockieren, müssen Sie normalerweise zuerst die Absender notieren und dann manuell eine Regel erstellen. Es ist ziemlich mühsam. Daher werden wir hier eine viel schnellere Methode vorstellen, um sie mit einem Klick zu erhalten.

Einige Benutzer sind der Meinung, dass die integrierte Out-Spam-Funktion in Outlook nicht so effektiv ist, wie sie hoffen. Daher sind sie es gewohnt, Outlook-Regeln zu erstellen, um die Absender zu blockieren. Im Folgenden wird nun eine schnelle Methode zum Erstellen einer Regel zum Blockieren der Absender mehrerer E-Mails vorgestellt.

Erstellen Sie schnell eine Regel, um Absender mehrerer E-Mails zu blockieren

1. Für astart Starten Sie die Outlook-Anwendung.
2. Rufen Sie dann das VBA-Editor-Fenster über die Verknüpfung „Alt + F11“ auf.
3. Fügen Sie als Nächstes im neuen Fenster den folgenden VBA-Code in ein nicht verwendetes Modul ein.

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. Danach gemäß „So führen Sie VBA-Code in Outlook ausFügen Sie dieses Makro zur Symbolleiste oder zum Menüband für den Schnellzugriff hinzu.
5. Beenden Sie anschließend den VBA-Editor normal.
6. Führen Sie zum Schluss die folgenden Schritte aus, um es zu versuchen.

• Wählen Sie zunächst die E-Mails aus, deren Absender Sie blockieren möchten.
• Klicken Sie dann auf die neue Makro-Schaltfläche.
• Nach Abschluss des Makros können Sie im Menü "Datei" auf die Schaltfläche "Regeln und Warnungen verwalten" klicken, um die neu hinzugefügte Regel zu überprüfen (siehe Abbildung unten).

Halten Sie bösartige E-Mails in Schach

Unabhängig davon, welchen E-Mail-Client Sie verwenden, müssen Sie die E-Mails häufig von unbekannten Absendern erhalten. M.ost Bei den E-Mails kann es sich um Werbe-Spam handeln, die sogar schädliche Makros enthalten. Sie können Ihre Outlook-Datei im Handumdrehen beschädigen. Daher sollten Sie in Outlook wirksame Maßnahmen ergreifen, um unbekannte E-Mails zu blockieren. Wenn Sie es sich leisten können, ist es außerdem ratsam, ein leistungsstarkes PST-Wiederherstellungstool vorzubereiten, z DataNumen Outlook Repair. Es kann Outlook reparieren Datei, ohne ins Schwitzen zu geraten, egal wie schwer es beschädigt ist.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX