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 é remover um por um quando as duplicatas são menos, outro é usar o VBA para remover todas as duplicatas de uma só vez.
Remova manualmente os itens de calendário duplicados, um por um
VBA para remover itens de calendário duplicados de uma só vez
- Automatize o envio de e-mails com Auto CC / BCC, Avanço automático por regras; enviar Resposta automatica (Fora do escritório) sem a necessidade de um servidor Exchange...
- Receba lembretes como Aviso BCC ao responder a todos enquanto você está na lista BCC, e Lembrar quando houver anexos ausentes para anexos esquecidos...
- Melhore a eficiência do e-mail com Responder (todos) com anexos, Adicionar automaticamente saudação ou data e hora à assinatura ou assunto, Responder vários e-mails...
- Simplifique o envio de e-mails com Recuperar e-mails, Ferramentas de Anexo (Compactar tudo, salvar tudo automaticamente...), Remover Duplicados e Relatório Rápido...
Remova manualmente os itens de calendário duplicados, um por um
Para remover itens de calendário duplicados um por um, primeiro você precisa listá-los em uma ordem específica para visualizar as duplicatas claramente e, em seguida, removê-los um por um.
1. Geralmente, o calendário está em um Calendário visualizar, ative o calendário que você deseja remover duplicatas e clique em Ver > Alterar vista > Lista.
Agora o calendário foi visto como uma lista.
2. Em seguida, especifique uma condição que você usa para comparar se os itens são duplicados, supondo comparar se os itens têm o mesmo assunto. Clique ASSUNTO na lista de calendários, todos os itens com o mesmo assunto são colocados juntos.
3. Agora você pode remover os itens que têm o mesmo assunto um por um clicando com o botão direito do mouse no item e clicando Apagar no menu de contexto pop-up.
VBA para remover itens de calendário duplicados de uma só vez
Aqui apresenta alguns VBA que podem remover todos os itens de calendário duplicados em uma pasta de calendário em diferentes casos.
1. Pressione outro + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo para criar um novo módulo em branco, copie e cole o código abaixo no módulo.
VBA: remova 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 em “dados” esta categoria comparando o assunto, local, corpo e categoria, você pode alterá-los conforme necessário.
3. em seguida, pressione F5 ou clique em Executar para executar o código, uma caixa de diálogo Macros aparece, escolha RemoverDuplicateCalendar e clique Execute .
Em seguida, os itens duplicados na categoria “data” foram removidos.
VBA: remova todos os itens de calendário duplicados nas 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, todas as duplicatas que estão no mesmo assunto, local, corpo, categoria em cada categoria foram removidas.
Note: Acima VBA funciona na pasta do calendário inclui subpasta.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.