Εάν θέλετε να καταργήσετε τα διπλά στοιχεία στο Outlook, η αναζήτηση και η κατάργηση ένα προς ένα θα είναι πολύ ενοχλητικό. Αυτό το σost θα σας διδάξει πώς να το ολοκληρώσετε γρήγορα με το Outlook VBA.
Στο προηγούμενο άρθρο μου - «Πώς να βρείτε γρήγορα και να καταργήσετε διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook", Μπορείτε να μάθετε ένα τέχνασμα για να βρείτε και να αφαιρέσετε διπλά μηνύματα ηλεκτρονικού ταχυδρομείου, τα οποία ταξινομούν πρώτα τα μηνύματα ανά θέμα, μετά από τον ληφθέντα χρόνο και στη συνέχεια από συνημμένα για να ανακαλύψετε τα διπλά στοιχεία και, τέλος, επιλέξτε τα διπλά και πατήστε το πλήκτρο" Διαγραφή ". Αν και αυτή η μέθοδος φαίνεται φαινομενικά λίγο πιο βολική, αλλά είναι πολύ πιο ενοχλητική σε σύγκριση με τη χρήση του Outlook VBA. Με τους ακόλουθους κωδικούς VBA, μπορείτε να καταργήσετε γρήγορα τα διπλά στοιχεία με ένα μόνο κλικ, ανεξάρτητα από τα μηνύματα ηλεκτρονικού ταχυδρομείου, τις εργασίες, τις επαφές ή τα ραντεβού. Τώρα διαβάστε για να λάβετε λεπτομερώς τους κωδικούς.
Καταργήστε τα διπλά στοιχεία του Outlook σε έναν φάκελο
- Προς starμε, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11".
- Στο επόμενο παράθυρο του προγράμματος επεξεργασίας VBA, κάντε διπλό κλικ για να ανοίξετε μια λειτουργική μονάδα που χρησιμοποιείται ή εισάγετε απευθείας μια νέα λειτουργική μονάδα με το "Insert"> "Module".
- Στη συνέχεια αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA στη λειτουργική μονάδα.
Sub RemoveDuplicateItems()
Dim objFolder As Folder
Dim objDictionary As Object
Dim i As Long
Dim objItem As Object
Dim strKey As String
Set objDictionary = CreateObject("scripting.dictionary")
'Select a source folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
For i = objFolder.Items.Count To 1 Step -1
Set objItem = objFolder.Items.Item(i)
Select Case objFolder.DefaultItemType
'Check email subject, body and sent time
Case olMailItem
strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
'Check appointment subject, start time, duration, location and body
Case olAppointmentItem
strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
'Check contact full name and email address
Case olContactItem
strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
'Check task subject, start date, due date and body
Case olTaskItem
strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
End Select
strKey = Replace(strKey, ", ", Chr(32))
'Remove the duplicate items
If objDictionary.Exists(strKey) = True Then
objItem.Delete
Else
objDictionary.Add strKey, True
End If
Next i
End If
End Sub
- Μετά από αυτό, υπογράψτε ψηφιακά αυτήν τη μακροεντολή και αλλάξτε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
- Αργότερα, μπορείτε να εκτελέσετε αυτό το νέο έργο VBA. Κάντε απευθείας κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων.
- Στη συνέχεια, θα πρέπει να επιλέξετε έναν φάκελο στον οποίο θέλετε να καταργήσετε διπλά στοιχεία.
- Τέλος, τα διπλά στοιχεία στον επιλεγμένο φάκελο θα διαγραφούν ταυτόχρονα.
Διασφάλιση ευάλωτων δεδομένων PST
Λόγω του γεγονότος ότι το αρχείο PST είναι ευπαθές σε καταστροφή, επομένως θα πρέπει να καταβάλλετε πολλές προσπάθειες για την προστασία του αρχείου PST. Για παράδειγμα, θα πρέπει να αποτρέψετε το σωστό κλείσιμο του Outlook. Επιπλέον, πρέπει να προετοιμάσετε μια ισχυρή Επιδιόρθωση του Outlook εργαλείο, όπως DataNumen Outlook Repair που θα είναι σε θέση να σώσει το PST σας εγκαίρως.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com