Outlook: come rimuovere gli elementi del calendario duplicati
A volte, ci sono alcuni elementi del calendario duplicati quando importiamo eventi da altri dispositivi. Per rimuovere gli elementi del calendario duplicati, questo tutorial introduce due metodi diversi, uno sta rimuovendo uno per uno quando i duplicati sono meno, un altro sta usando VBA per rimuovere tutti i duplicati contemporaneamente.
Rimuovi manualmente gli elementi del calendario duplicati uno per uno
VBA per rimuovere gli elementi del calendario duplicati contemporaneamente
- Automatizza l'invio di e-mail con Auto CC / BCC, Avanzamento automatico secondo le regole; Inviare Risposta automatica (Fuori sede) senza richiedere un server Exchange...
- Ricevi promemoria come Avviso BCC quando rispondi a tutti mentre sei nell'elenco CCN e Ricorda quando mancano allegati per gli allegati dimenticati...
- Migliora l'efficienza della posta elettronica con Rispondi (a tutti) con gli allegati, Aggiungi automaticamente il saluto o la data e l'ora nella firma o nell'oggetto, Rispondi a più email...
- Semplifica l'invio di e-mail con Richiamare le e-mail, Strumenti per gli allegati (Comprimi tutto, Salva tutto automaticamente...), Rimuovi duplicatie Rapporto rapido...
Rimuovi manualmente gli elementi del calendario duplicati uno per uno
Per rimuovere gli elementi del calendario duplicati uno per uno, devi prima elencarli in un ordine specifico per visualizzare chiaramente i duplicati, quindi rimuoverli uno per uno.
1. Generalmente, il calendario è in a Calendario visualizza, attiva il calendario per cui desideri rimuovere i duplicati, quindi fai clic su Visualizza > Cambia punto di vista > Lista.
Ora il calendario è stato visualizzato come un elenco.
2. Specificare quindi una condizione da utilizzare per confrontare se gli elementi sono duplicati, supponendo di confrontare se gli elementi hanno lo stesso oggetto. Clic OGGETTO nell'elenco del calendario, tutti gli elementi con lo stesso oggetto vengono messi insieme.
3. Ora puoi rimuovere gli elementi che hanno lo stesso oggetto uno per uno facendo clic con il pulsante destro del mouse sull'elemento e facendo clic Elimina dal menu contestuale che si apre.
VBA per rimuovere gli elementi del calendario duplicati contemporaneamente
Qui introduce alcuni VBA che possono rimuovere tutti gli elementi del calendario duplicati in una cartella del calendario in diversi casi.
1. Stampa altro + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli per creare un nuovo modulo vuoto, quindi copia e incolla il codice sottostante nel modulo.
VBA: rimuove tutti gli elementi del calendario duplicati 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, rimuoverà tutti i duplicati in "quando” questa categoria confrontando il soggetto, la posizione, il corpo e la categoria, puoi cambiarli di cui hai bisogno.
3. quindi premere F5 o fare clic su Esegui per eseguire il codice, una finestra di dialogo Macro salta fuori, scegli RimuoviDuplicateCalendar e fare clic su Correre .
Quindi gli elementi duplicati nella categoria "data" sono stati rimossi.
VBA: rimuovi tutti gli elementi del calendario duplicati 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
Esegui questo codice, tutti i duplicati che si trovano nello stesso oggetto, posizione, corpo, categoria in ciascuna categoria sono stati rimossi.
Note:: Sopra VBA funziona nella cartella del calendario include la sottocartella.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.