Outlook: Como remover itens de calendário duplicados

Author: Sun Last Modified: 2025-08-06

À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.

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.

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.

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.

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". .

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.