Note: The other languages of the website are Google-translated. Back to English

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

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

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 View > Cambia punto di vista > Lista.

doc rimuove gli elementi del calendario duplicati 1

Ora il calendario è stato visualizzato come un elenco.

doc rimuove gli elementi del calendario duplicati 1

doc rimuove gli elementi del calendario duplicati 1

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.

doc rimuove gli elementi del calendario duplicati 1

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.

doc rimuove gli elementi del calendario duplicati 1


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 > Modulo 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.

doc rimuove gli elementi del calendario duplicati 1

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 doc rimuove gli elementi del calendario duplicati 1 .

doc rimuove gli elementi del calendario duplicati 1

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.

doc rimuove gli elementi del calendario duplicati 1

doc rimuove gli elementi del calendario duplicati 1

Note:: Sopra VBA funziona nella cartella del calendario include la sottocartella.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0  Personaggi
Posizioni suggerite