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

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

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

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

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

Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερα από 100 προηγμένα χαρακτηριστικά θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2010-2019 και 365. Πλήρεις δυνατότητες δωρεάν δοκιμή 60 ημερών.

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

 

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

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1


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, θα αφαιρέσει όλα τα διπλότυπα στο "Ραντεβού Αυτή η κατηγορία συγκρίνοντας το θέμα, την τοποθεσία, το σώμα και την κατηγορία, μπορείτε να τα αλλάξετε όπως θέλετε.

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

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

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

Note: Πάνω από τα έργα VBA στον φάκελο ημερολογίου περιλαμβάνει τον υποφάκελο.


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες