Ir para o conteúdo principal

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

Guia Office - Habilite edição e navegação com guias no Microsoft Office, facilitando o trabalho
Kutools para Outlook - Impulsione o Outlook com mais de 100 recursos avançados para eficiência superior
Aumente seu Outlook 2021 - 2010 ou Outlook 365 com esses recursos avançados. Desfrute de um teste gratuito abrangente de 60 dias e melhore sua experiência de e-mail!

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.

doc remover itens de calendário duplicados 1

Agora o calendário foi visto como uma lista.

doc remover itens de calendário duplicados 1

doc remover itens de calendário duplicados 1

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.

doc remover itens de calendário duplicados 1

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.

doc remover itens de calendário duplicados 1


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.

doc remover itens de calendário duplicados 1

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 doc remover itens de calendário duplicados 1 .

doc remover itens de calendário duplicados 1

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.

doc remover itens de calendário duplicados 1

doc remover itens de calendário duplicados 1

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.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sadly neither of these work
This comment was minimized by the moderator on the site
I have tested the code and both of them work, What is your problem?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations