Outlook: Como remover itens de calendário duplicados
À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".

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.

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.


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!
📧 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...

