Skip to main content

Outlook: Como remover itens de calendário duplicados

Author: Sun Last Modified: 2025-06-04

Às vezes, há alguns itens de calendário duplicados quando importamos eventos de outros dispositivos. Para remover os itens de calendário duplicados, este tutorial apresenta dois métodos diferentes: um é removê-los um por um quando há poucas duplicatas, e o outro é usar VBA para remover todas as duplicatas de uma só vez.

Remover manualmente itens de calendário duplicados um por um

VBA para remover itens de calendário duplicados de uma só vez


Remover manualmente itens de calendário duplicados um por um

 

Para remover itens de calendário duplicados um por um, você precisa listá-los em uma ordem específica para visualizar claramente as duplicatas e depois removê-las individualmente.

1. Geralmente, o calendário está na visualização "Calendário", ative o calendário do qual deseja remover as duplicatas, clique em "Visualizar" > "Alterar Visualização" > "Lista".

steps on manually removing duplicates calendar items one by one

Agora o calendário está sendo exibido como uma lista.

steps on manually removing duplicates calendar items one by one
steps on manually removing duplicates calendar items one by one

2. Em seguida, especifique uma condição que você usará para comparar se os itens são duplicados, supondo que a comparação seja feita pelo mesmo assunto. Clique em "ASSUNTO" na lista do calendário, então todos os itens com o mesmo assunto serão agrupados.

steps on manually removing duplicates calendar items one by one

3. Agora você pode remover os itens com o mesmo assunto um por um clicando com o botão direito no item e selecionando "Excluir" no menu de contexto que aparece.

steps on manually removing duplicates calendar items one by one

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
doc ai email handle

Este recurso suporta:

  • Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
  • Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
  • Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
  • Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
  • Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
  • Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta:

  • Respostas inteligentes de e-mail
  • Conteúdo otimizado
  • Rascunhos baseados em palavras-chave
  • Extensão inteligente de conteúdo
  • Resumo de e-mails
  • Tradução multilíngue

O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite


VBA para remover itens de calendário duplicados de uma só vez

 

Aqui estão algumas linhas de VBA que podem remover todos os itens de calendário duplicados em uma pasta de calendário em diferentes casos.

1. Pressione as teclas "Alt" + "F11" para ativar a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo" para criar um novo módulo em branco, depois copie e cole o código abaixo no módulo.

VBA: remover todos os itens de calendário duplicados em uma categoria específica

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Neste VBA, ele removerá todas as duplicatas na categoria "data" comparando o assunto, local, corpo e categoria; você pode alterá-los conforme necessário.

steps on using VBA to remove duplicates calendar items at once time

3. Em seguida, pressione a teclaF5 ou clique em Executar para rodar o código, uma caixa de diálogo "Macros" aparecerá, escolha "RemoveDuplicateCalendar" e clique em "Executar".steps on using VBA to remove duplicates calendar items at once time .

steps on using VBA to remove duplicates calendar items at once time

Então, os itens duplicados na categoria "data" terão sido removidos.

VBA: remover todos os itens de calendário duplicados entre categorias

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Execute este código, e todas as duplicatas que têm o mesmo assunto, local, corpo e categoria em cada categoria serão removidas.

steps on using VBA to remove duplicates calendar items at once time
steps on using VBA to remove duplicates calendar items at once time

Observação: O VBA acima funciona em pastas de calendário, incluindo subpastas.


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2