Outlook: Πώς να αφαιρέσετε διπλότυπα στοιχεία ημερολογίου

Μερικές φορές, υπάρχουν ορισμένα διπλότυπα στοιχεία ημερολογίου όταν εισάγουμε συμβάντα από άλλες συσκευές. Για να καταργήσετε τα διπλότυπα στοιχεία του ημερολογίου, αυτό το σεμινάριο εισάγει δύο διαφορετικές μεθόδους, η μία αφαιρεί μία προς μία όταν τα διπλότυπα είναι λιγότερα και μία άλλη χρησιμοποιεί VBA για να αφαιρέσει όλα τα διπλότυπα ταυτόχρονα.

Καταργήστε μη αυτόματα τα διπλότυπα στοιχεία ημερολογίου ένα προς ένα

VBA για την ταυτόχρονη κατάργηση διπλότυπων στοιχείων ημερολογίου

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη

Διαβάστε περισσότερα ...Κατεβάστε ...

Kutools for Outlook - Ενισχύστε το Outlook με 100+ προηγμένες δυνατότητες για ανώτερη απόδοση

Αυτοματοποιήστε την αποστολή email με Αυτόματο CC / BCC, Αυτόματη προώθηση με κανόνες? στείλετε Αυτόματη απάντηση (Εκτός γραφείου) χωρίς να απαιτείται διακομιστής ανταλλαγής...
Λάβετε υπενθυμίσεις όπως Προειδοποίηση BCC όταν απαντάτε σε όλους όσο βρίσκεστε στη λίστα BCC και Υπενθύμιση όταν λείπουν συνημμένα για ξεχασμένα συνημμένα...
Βελτιώστε την αποτελεσματικότητα του email με Απάντηση (Όλα) Με Συνημμένα, Αυτόματη προσθήκη χαιρετισμού ή ημερομηνίας και ώρας στην υπογραφή ή στο θέμα, Απάντηση σε πολλά email...
Βελτιώστε την αποστολή email με Ανάκληση email, Εργαλεία συνημμένου (Συμπίεση όλων, Αυτόματη αποθήκευση όλων...), Κατάργηση διπλότυπων, να Γρήγορη αναφορά...

Ενισχύστε το Outlook 2021 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε μια ολοκληρωμένη δωρεάν δοκιμή 60 ημερών και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

Διαβάστε περισσότερα ...Κατεβάστε ...

Καταργήστε μη αυτόματα τα διπλότυπα στοιχεία ημερολογίου ένα προς ένα

Για να αφαιρέσετε τα διπλότυπα στοιχεία ημερολογίου ένα προς ένα, πρέπει να τα καταχωρήσετε με μια συγκεκριμένη σειρά για να δείτε πρώτα τα διπλότυπα καθαρά και μετά να τα αφαιρέσετε ένα προς ένα.

1. Γενικά, το ημερολόγιο είναι σε α Ημερολόγιο εκδηλώσεων προβάλετε, ενεργοποιήστε το ημερολόγιο που θέλετε να αφαιρέσετε τα διπλότυπα και μετά κάντε κλικ Δες > Αλλαξε θέα > Λίστα.

Τώρα το ημερολόγιο προβλήθηκε ως λίστα.

2. Στη συνέχεια, καθορίστε μια συνθήκη που χρησιμοποιείτε για να συγκρίνετε εάν τα στοιχεία είναι διπλότυπα, υποθέτοντας ότι συγκρίνετε εάν τα στοιχεία έχουν το ίδιο θέμα. Κάντε κλικ ΘΕΜΑ στη λίστα ημερολογίου, τότε όλα τα στοιχεία με το ίδιο θέμα τοποθετούνται μαζί.

3. Τώρα μπορείτε να αφαιρέσετε τα στοιχεία που έχουν το ίδιο θέμα ένα προς ένα κάνοντας δεξί κλικ στο αντικείμενο και κάνοντας κλικ Διαγραφή από το αναδυόμενο μενού περιβάλλοντος.

VBA για την ταυτόχρονη κατάργηση διπλότυπων στοιχείων ημερολογίου

Εδώ παρουσιάζεται κάποια VBA που μπορεί να αφαιρέσει όλα τα διπλότυπα στοιχεία ημερολογίου σε έναν φάκελο ημερολογίου σε διαφορετικές περιπτώσεις.

1. Τύπος άλλος + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή μονάδα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα.

VBA: καταργήστε όλα τα διπλότυπα στοιχεία ημερολογίου σε μια συγκεκριμένη κατηγορία

'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

Σε αυτό το VBA, θα αφαιρέσει όλα τα διπλότυπα στο "Ραντεβού Αυτή η κατηγορία συγκρίνοντας το θέμα, την τοποθεσία, το σώμα και την κατηγορία, μπορείτε να τα αλλάξετε όπως θέλετε.

3. στη συνέχεια πατήστε F5 πληκτρολογήστε ή κάντε κλικ στην επιλογή Εκτέλεση για να εκτελέσετε τον κώδικα, ένα παράθυρο διαλόγου Μακροεντολές ξεπροβάλλει, επιλέξτε RemoveDuplicateCalendar και κάντε κλικ στο κουμπί τρέξιμο .

Στη συνέχεια, τα διπλότυπα στοιχεία στην κατηγορία "ημερομηνία" έχουν αφαιρεθεί.

VBA: καταργήστε όλα τα διπλότυπα στοιχεία ημερολογίου σε όλες τις κατηγορίες

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

Εκτελέστε αυτόν τον κωδικό, όλα τα διπλότυπα που βρίσκονται στο ίδιο θέμα, τοποθεσία, σώμα, κατηγορία σε κάθε κατηγορία έχουν αφαιρεθεί.