Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Outlook: Come rimuovere gli elementi duplicati del calendario

Author Sun Last modified

A volte, ci sono alcuni elementi duplicati del calendario quando importiamo eventi da altri dispositivi. Per rimuovere gli elementi duplicati del calendario, questo tutorial introduce due metodi diversi: uno consiste nel rimuoverli uno per uno quando i duplicati sono pochi, l'altro utilizza VBA per rimuovere tutti i duplicati in una volta sola.

Rimuovere manualmente gli elementi duplicati del calendario uno per uno

VBA per rimuovere gli elementi duplicati del calendario in una volta sola


Rimuovere manualmente gli elementi duplicati del calendario uno per uno

 

Per rimuovere gli elementi duplicati del calendario uno per uno, è necessario elencarli in un ordine specifico per visualizzare chiaramente i duplicati, quindi rimuoverli uno alla volta.

1. Generalmente, il calendario è in una vista "Calendario", attiva il calendario da cui desideri rimuovere i duplicati, quindi fai clic su "Visualizza" > "Cambia vista" > "Elenco".

steps on manually removing duplicates calendar items one by one

Ora il calendario viene visualizzato come elenco.

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

2. Quindi, specifica una condizione che utilizzi per confrontare se gli elementi sono duplicati, supponendo di voler confrontare se gli elementi hanno lo stesso oggetto. Fai clic su "OGGETTO" nell'elenco del calendario, quindi tutti gli elementi con lo stesso oggetto vengono raggruppati insieme.

steps on manually removing duplicates calendar items one by one

3. Ora puoi rimuovere gli elementi con lo stesso oggetto uno per uno facendo clic con il tasto destro sull'elemento e selezionando "Elimina" dal menu contestuale che appare.

steps on manually removing duplicates calendar items one by one

Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS

Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
doc ai email handle

Questa funzione supporta:

  • Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
  • Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
  • Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
  • Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
  • Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
  • Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.

Questa funzione supporta:

  • Risposte intelligenti alle email
  • Contenuto ottimizzato
  • Bozze basate su parole chiave
  • Estensione intelligente del contenuto
  • Riassunto delle email
  • Traduzione multilingue

Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela


VBA per rimuovere gli elementi duplicati del calendario in una volta sola

 

Qui viene introdotto un VBA che può rimuovere tutti gli elementi duplicati del calendario in una cartella del calendario in diversi casi.

1. Premi i tasti "Alt" + "F11" per abilitare la finestra "Microsoft Visual Basic for Applications".

2. Fai clic su "Inserisci" > "Modulo" per creare un nuovo modulo vuoto, quindi copia e incolla il codice seguente nel modulo.

VBA: rimuovi tutti gli elementi duplicati del calendario in una categoria specifica

'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

In questo VBA, verranno rimossi tutti i duplicati nella categoria "data" confrontando l'oggetto, la posizione, il corpo e la categoria; puoi modificarli secondo necessità.

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

3. quindi premi il tastoF5" o fai clic su Esegui per eseguire il codice, appare una finestra di dialogo "Macro", scegli "RemoveDuplicateCalendar" e fai clic su "Esegui".steps on using VBA to remove duplicates calendar items at once time .

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

Quindi gli elementi duplicati nella categoria "data" sono stati rimossi.

VBA: rimuovi tutti gli elementi duplicati del calendario tra le categorie

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

Eseguendo questo codice, tutti i duplicati che hanno lo stesso oggetto, posizione, corpo e categoria in ogni categoria verranno rimossi.

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

Nota: Il VBA sopra funziona nella cartella del calendario inclusi le sottocartelle.


I migliori strumenti per la produttività in Office

Ultime notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP)  /  Programma invio Email  /  CC/BCC automatico tramite Regola durante l’invio delle Email  /  Inoltro automatico (Regola avanzata)   /  Aggiungi Saluto automaticamente   /  Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email  /  Blocca Email fraudulent (tramite Oggetto e altri parametri)  /  Elimina Email Duplicato  /  Ricerca Avanzata  /  Organizza cartelle ...

📁 Allegati ProSalva in Batch  /  Distacca in Batch  /  Comprimi in Batch  /  Salvataggio automatico   /  Distacca automaticamente  /  Auto Comprimi ...

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti   /  Notifiche per le email importanti in arrivo  /  Riduci Outlook al posto di chiuderlo ...

👍 Funzioni rapide: Rispondi a Tutti con Allegati  /  Email Anti-Phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate  /  Dividi un Gruppo di Contatti in Gruppi singoli  /  Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Sblocca Kutools per Outlook istantaneamente con un solo clic. Non aspettare, scarica ora e aumenta la tua efficienza!

kutools for outlook features1 kutools for outlook features2

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

  • Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
  • 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
  • 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint