2 métodos eficazes para excluir em lote todas as regras do Outlook executando uma ação específica

Se você precisar excluir em lote todas as regras do Outlook que executam uma ação específica, como “Mover”, “Copiar” ou “Sinalizar”, leia este artigo. Aqui, usaremos a ação "Mover" como exemplo para apresentar a você 2 métodos rápidos.

Às vezes, você pode querer excluir todas as regras que executam uma ação específica no Outlook. Por exemplo, você reconstruiu estruturas de pastas em suas caixas de correio. Assim, você pretende reclassificar e arquivar e-mails em pastas diferentes. Nesse caso, convém excluir em lote todas as regras que executam a ação "Mover". Olhando para isso, aqui vamos apresentar 2 maneiras. O primeiro é apropriado para uma caixa de correio. Mas se você quiser processar todas as caixas de correio em seu Outlook, é melhor usar o seguinte Método 2.

Método 1: Excluir lote em uma caixa de correio

1. Para começar, clique em “Arquivo”.
2. Em seguida, no menu “Arquivo”, clique no botão “Gerenciar regras e alertas”.
3. Na próxima caixa de diálogo “Regras e alertas”, você pode ver a coluna “Ações” na lista de regras. E o ícone da ação “Mover” é .
4. Agora, pressione a tecla “Ctrl” e enquanto isso selecione as regras cujo ícone de ação é  um por um.
5. Depois de selecionar as regras, clique no botão "Excluir" acima da lista de regras.

Método 2: exclusão em lote em todas as caixas de correio

1. Para começar, abra o editor VBA do Outlook conforme as instruções em “Como executar o código VBA no seu Outlook".
2. Em seguida, copie o seguinte código VBA em um módulo em branco.

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. Posteriormente, pressione a tecla “F5” para executar esta macro agora.
4. Quando a macro for concluída, verifique as regras de cada caixa de correio em seu Outlook. Todas as regras relacionadas à ação “Mover” desapareceram.

Faça com erros preocupantes do Outlook

Você recebe alguma mensagem de erro durante o uso do Outlook? Na realidade, o Outlook está sujeito a erros e até corrupção. Portanto, é comum encontrar erros do Outlook. Felizmente, o Outlook fornece a ferramenta de correção embutida – ScanpstName. Você pode usá-lo para tentar corrigir erros. Se falhar, seu último recurso é uma ferramenta externa mais hábil e potente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com