Πώς να συγχωνεύσετε δύο φακέλους χωρίς διπλότυπα σε έναν φάκελο στο Outlook;
Στο Outlook, ενδέχεται να έχετε πολλούς λογαριασμούς email με πολλούς φακέλους, σε ορισμένες περιπτώσεις, θέλετε να συγχωνεύσετε δύο φακέλους σε έναν και να καταργήσετε τα διπλά στοιχεία. Πώς μπορείτε να λύσετε γρήγορα αυτήν την εργασία; Σε αυτό το άρθρο, εισάγω έναν κωδικό VBA για να σας βοηθήσω να τον χειριστείτε το συντομότερο δυνατό στο Outlook.
Συγχώνευση δύο φακέλων χωρίς διπλότυπα σε έναν από τον κώδικα VBA
Συγχώνευση πολλών φακέλων και κατάργηση διπλών στοιχείων με το Kutools για Outlook
Συγχώνευση δύο φακέλων χωρίς διπλότυπα σε έναν από τον κώδικα VBA
Για να συγχωνεύσετε δύο φακέλους σε έναν και να καταργήσετε τα διπλά στοιχεία, μπορείτε να το χειριστείτε με τον κώδικα VBA ως εξής βήματα:
1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο
2. Κάντε διπλό κλικ στο Αυτό το OutlookSession από Project1 στο αριστερό παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο σωστό σενάριο.
VBA: Συγχώνευση δύο φακέλων χωρίς διπλωμάτες
Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary 'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
Set xSourceItem = xSourceFolder.Items.Item(i)
xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
Set xTargetItem = xTargetFolder.Items.Item(i)
Select Case xTargetItem.Class
Case olMail
With xTargetItem
xStr = .Subject & .Body & .SentOn
End With
Case olAppointment
With xTargetItem
xStr = .Subject & .Start & .Duration & .Location & .Body
End With
Case olContact
With xTargetItem
xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
End With
Case olTask
With xTargetItem
xStr = .Subject & .StartDate & .DueDate & .Body
End With
End Select
If xDictionary.Exists(xStr) = True Then
xTargetItem.Delete
xCount = xCount + 1
Else
xDictionary.Add xStr, True
End If
Next i
If xCount <> 0 Then
MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
3. κλικ Εργαλεία > αναφορές και στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft κουτάκι.
4. κλικ OK. Τώρα πατήστε F5 κλειδί για την εκτέλεση του κώδικα. Εμφανίζεται ένας διάλογος για να σας υπενθυμίσει ότι επιλέγετε τον πρώτο φάκελο που θέλετε να συγχωνεύσετε (σημείωση: όλα τα στοιχεία στον πρώτο φάκελο θα αφαιρεθούν μετά τη συγχώνευση με τον δεύτερο φάκελο).
5. κλικ OK, στο δεύτερο αναδυόμενο παράθυρο διαλόγου, επιλέξτε το δεύτερο φάκελο με τον οποίο θέλετε να συγκρίνετε και να συγχωνεύσετε.
6. κλικ OK, τώρα, όλα τα στοιχεία του πρώτου φακέλου θα μετακινηθούν στον δεύτερο φάκελο και τα διπλά θα καταργηθούν επίσης.
Συγχώνευση πολλών φακέλων και κατάργηση διπλών στοιχείων με το Kutools για Outlook
Εάν δεν είστε εξοικειωμένοι με τον κώδικα VBA, δοκιμάστε να το χρησιμοποιήσετε Kutools για το Outlook, ένα εύχρηστο πρόσθετο, με το Ενοποίηση φακέλων και Διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου βοηθητικά προγράμματα που μπορούν εύκολα και γρήγορα να χειριστούν αυτήν την εργασία.
Kutools for Outlook , Περιλαμβάνει 100 + ισχυρές δυνατότητες και εργαλεία για το Microsoft Outlook 2016, 2013, 2010 και Office 365. |
||
Δωρεάν εγκατάσταση Kutools για Outlook και, στη συνέχεια, κάντε τα παρακάτω βήματα:
Συγχώνευση πολλών φακέλων
1. κλικ Kutools Plus > Ενοποίηση φακέλων, στη συνέχεια στο Συγχώνευση πολλών φακέλων σε έναν κάντε κλικ στο πλαίσιο διαλόγου Πρόσθεση για να προσθέσετε τους φακέλους στη λίστα που θα συγχωνευθεί, επιλέξτε έναν φάκελο ως φάκελο προορισμού.
2. κλικ OK > OK. Τώρα όλα τα στοιχεία στους επιλεγμένους φακέλους έχουν συγχωνευτεί σε έναν συγκεκριμένο φάκελο.
Κατάργηση διπλών στοιχείων
3. κλικ Kutools > Διαγραφή διπλότυπου > Διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου. Τότε στο Διπλότυπα μηνύματα διαλόγου, ελέγξτε το φάκελο που θέλετε να αφαιρέσετε διπλότυπα.
4. κλικ Επόμενοσε Ρυθμίσεις διπλότυπων μηνυμάτων διαλόγου, καθορίστε τα κριτήρια που χρησιμοποιείτε για να συγκρίνετε μηνύματα ηλεκτρονικού ταχυδρομείου και, στη συνέχεια, ελέγξτε Διαγραφή διπλών μηνυμάτων και επιλέξτε Συγκρίνετε για διπλά μηνύματα σε έναν φάκελο.
5. κλικ Επόμενο > Επόμενο, τα διπλότυπα email έχουν φιλτραριστεί. Κάντε κλικ Διαγραφή διπλού μηνύματος κουμπί> OK για να αφαιρέσετε με επιτυχία τα διπλά μηνύματα ηλεκτρονικού ταχυδρομείου.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.