Outlook: Come rimuovere gli elementi duplicati del calendario
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".
Ora il calendario viene visualizzato come elenco.
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.
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.
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.
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à.
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".
.
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.
Nota: Il VBA sopra funziona nella cartella del calendario inclusi le sottocartelle.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
