2 méthodes efficaces pour supprimer par lots toutes les règles Outlook effectuant une action spécifique

Si vous devez supprimer par lots toutes les règles Outlook qui exécutent une action spécifique, telle que "Déplacer", "Copier" ou "Signaler", vous pouvez lire cet article. Ici, nous prendrons l'action "Déplacer" comme exemple pour vous présenter 2 méthodes rapides.

Parfois, vous souhaiterez peut-être supprimer toutes les règles effectuant une action spécifique dans Outlook. Par exemple, vous avez reconstruit les structures de dossiers dans vos boîtes aux lettres. Ainsi, vous avez l'intention de reclasser et d'archiver les e-mails dans différents dossiers. Dans ce cas, vous souhaiterez peut-être supprimer par lots toutes les règles effectuant l'action "Déplacer". En regardant cela, nous allons présenter ici 2 façons. Le premier est approprié à une boîte aux lettres. Mais si vous souhaitez traiter toutes les boîtes aux lettres de votre Outlook, vous feriez mieux d'utiliser la méthode 2 suivante.

Méthode 1 : suppression par lots dans une boîte aux lettres

1. Pour commencer, cliquez sur "Fichier".
2. Ensuite, dans le menu "Fichier", cliquez sur le bouton "Gérer les règles et les alertes".
3. Dans la boîte de dialogue suivante "Règles et alertes", vous pouvez voir la colonne "Actions" dans la liste des règles. Et l'icône de l'action "Déplacer" est .
4. Maintenant, appuyez sur la touche "Ctrl" et pendant ce temps sélectionnez les règles dont l'icône d'action est  un par un.
5. Après avoir sélectionné les règles, cliquez sur le bouton "Supprimer" au-dessus de la liste des règles.

Méthode 2 : suppression par lots dans toutes les boîtes aux lettres

1. Pour commencer, lancez l'éditeur VBA d'Outlook conformément à «Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, copiez le code VBA suivant dans un module vide.

Sub DeleteAllMoveRules()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objRules As Outlook.rules
    Dim i As Long
    Dim objRule As Outlook.Rule
    Dim objRuleAction, objMoveRuleAction As Outlook.RuleAction
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all mailboxes
    For Each objStore In objStores
        Set objRules = objStore.GetRules
 
        For i = objRules.Count To 1 Step -1
            Set objRule = objRules(i)
            For Each objRuleAction In objRule.Actions
                'If "Move" action is enabled
                If objRuleAction.ActionType = olRuleActionMoveToFolder Then
                   Set objMoveRuleAction = objRuleAction
                   If objMoveRuleAction.Enabled = True Then
                      'Delete the rule
                      objRules.Remove (objRule.Name)
                      On Error Resume Next
                      objRules.Save
                      Exit For
                   End If
                 End If
            Next
       Next i
    Next
End Sub

3. Ensuite, appuyez sur la touche "F5" pour exécuter cette macro dès maintenant.
4. Une fois la macro terminée, vérifiez les règles de chaque boîte aux lettres dans votre Outlook. Toutes les règles liées à l'action "Déplacer" ont disparu.

Faire avec les erreurs Outlook inquiétantes

Recevez-vous des messages d'erreur lors de l'utilisation de votre Outlook ? En réalité, Outlook est sujet aux erreurs et même à la corruption. Par conséquent, il est courant de rencontrer des erreurs Outlook. Heureusement, Outlook fournit l'outil de correction intégré - Scanpst. Vous pouvez l'utiliser pour essayer de corriger les erreurs. En cas d'échec, votre dernier recours est un outil externe plus habile et puissant, comme DataNumen Outlook Repair.

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érer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com