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
- Para começar, clique em “Arquivo”.
- Em seguida, no menu “Arquivo”, clique no botão “Gerenciar regras e alertas”.
- 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” é
.
- Agora, pressione a tecla “Ctrl” e enquanto isso selecione as regras cujo ícone de ação é um por um.
- 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
- Para comotart, inicie o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
- 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 'Processar todas as caixas de correio para cada objStore em objStores Definir objRules = objStore.GetRules Para i = objRules.Count Para 1 Etapa -1 Definir objRule = objRules(i) Para cada objRuleAction Em objRule.Actions 'Se a ação "Mover" estiver ativada 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
- Posteriormente, pressione a tecla “F5” para executar esta macro agora.
- 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
1