Comment créer rapidement une règle Outlook pour bloquer les expéditeurs de plusieurs e-mails

Si vous souhaitez créer une règle pour bloquer les expéditeurs de plusieurs e-mails sélectionnés, vous devez généralement d'abord noter les expéditeurs, puis créer une règle manuellement. C'est assez gênant. Ainsi, nous partagerons ici une méthode beaucoup plus rapide pour l'obtenir en un seul clic.

Certains utilisateurs pensent que la fonction "ant-spam" intégrée dans Outlook n'est pas aussi efficace qu'ils l'espèrent. Par conséquent, ils sont habitués à créer des règles Outlook pour bloquer les expéditeurs. Maintenant, dans ce qui suit, nous présenterons une méthode rapide pour créer une règle pour bloquer les expéditeurs de plusieurs e-mails.

Créez rapidement une règle pour bloquer les expéditeurs de plusieurs e-mails

1. Pour commetart, lancez l'application Outlook.
2. Ensuite, entrez dans la fenêtre de l'éditeur VBA via le raccourci "Alt + F11".
3. Ensuite, dans la nouvelle fenêtre, placez le code VBA suivant dans un module inutilisé.

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. Après cela, conformément à "Comment exécuter le code VBA dans votre Outlook", ajoutez cette macro à la barre d'outils ou au ruban d'accès rapide.
5. Ensuite, quittez l'éditeur VBA normalement.
6. Enfin, suivez les étapes suivantes pour essayer.

• Tout d'abord, sélectionnez les e-mails dont vous souhaitez bloquer les expéditeurs.
• Ensuite, cliquez sur le bouton nouvelle macro.
• Une fois la macro terminée, vous pouvez accéder au menu "Fichier" et cliquer sur le bouton "Gérer les règles et les alertes" pour vérifier la règle nouvellement ajoutée, comme indiqué dans l'image ci-dessous.

Gardez les e-mails malveillants à distance

Quel que soit le client de messagerie que vous utilisez, vous devez fréquemment recevoir des e-mails d'expéditeurs inconnus. Most des e-mails peuvent être des spams publicitaires et même contenir des macros malveillantes. Ils peuvent endommager votre fichier Outlook en un tournemain. Ainsi, dans Outlook, vous devez prendre des mesures efficaces pour bloquer les e-mails inconnus. De plus, si vous pouvez vous le permettre, il est conseillé de préparer un puissant outil de récupération PST, tel que DataNumen Outlook Repair. Il peut réparer Outlook fichier sans transpirer, peu importe à quel point il est endommagé.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération SQL et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com