Μετάβαση στο κύριο περιεχόμενο

Πώς να συγχωνεύσετε δύο φακέλους χωρίς διπλότυπα σε έναν φάκελο στο 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

doc συγχώνευση φακέλων χωρίς διπλότυπα 1

3. κλικ Εργαλεία > αναφορές και στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft κουτάκι.

doc συγχώνευση φακέλων χωρίς διπλότυπα 2 doc βέλος δεξιά doc συγχώνευση φακέλων χωρίς διπλότυπα 3

4. κλικ OK. Τώρα πατήστε F5 κλειδί για την εκτέλεση του κώδικα. Εμφανίζεται ένας διάλογος για να σας υπενθυμίσει ότι επιλέγετε τον πρώτο φάκελο που θέλετε να συγχωνεύσετε (σημείωση: όλα τα στοιχεία στον πρώτο φάκελο θα αφαιρεθούν μετά τη συγχώνευση με τον δεύτερο φάκελο).
doc συγχώνευση φακέλων χωρίς διπλότυπα 4

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

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


Συγχώνευση πολλών φακέλων και κατάργηση διπλών στοιχείων με το Kutools για Outlook

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

Kutools for Outlook , Περιλαμβάνει 100 + ισχυρές δυνατότητες και εργαλεία για το Microsoft Outlook 2016, 2013, 2010 και Office 365.

Δωρεάν εγκατάσταση Kutools για Outlook και, στη συνέχεια, κάντε τα παρακάτω βήματα:

Συγχώνευση πολλών φακέλων

1. κλικ Kutools Plus > Ενοποίηση φακέλων, στη συνέχεια στο Συγχώνευση πολλών φακέλων σε έναν κάντε κλικ στο πλαίσιο διαλόγου Πρόσθεση για να προσθέσετε τους φακέλους στη λίστα που θα συγχωνευθεί, επιλέξτε έναν φάκελο ως φάκελο προορισμού.
doc ενοποίηση και κατάργηση διπλότυπου 1

2. κλικ OK > OK. Τώρα όλα τα στοιχεία στους επιλεγμένους φακέλους έχουν συγχωνευτεί σε έναν συγκεκριμένο φάκελο.
doc ενοποίηση και κατάργηση διπλότυπου 2

Κατάργηση διπλών στοιχείων

3. κλικ Kutools > Διαγραφή διπλότυπου > Διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου. Τότε στο Διπλότυπα μηνύματα διαλόγου, ελέγξτε το φάκελο που θέλετε να αφαιρέσετε διπλότυπα.
doc ενοποίηση και κατάργηση διπλότυπου 3

4. κλικ Επόμενοσε Ρυθμίσεις διπλότυπων μηνυμάτων διαλόγου, καθορίστε τα κριτήρια που χρησιμοποιείτε για να συγκρίνετε μηνύματα ηλεκτρονικού ταχυδρομείου και, στη συνέχεια, ελέγξτε Διαγραφή διπλών μηνυμάτων και επιλέξτε Συγκρίνετε για διπλά μηνύματα σε έναν φάκελο.
doc ενοποίηση και κατάργηση διπλότυπου 4

5. κλικ Επόμενο > Επόμενο, τα διπλότυπα email έχουν φιλτραριστεί. Κάντε κλικ Διαγραφή διπλού μηνύματος κουμπί> OK για να αφαιρέσετε με επιτυχία τα διπλά μηνύματα ηλεκτρονικού ταχυδρομείου.
doc ενοποίηση και κατάργηση διπλότυπου 5 doc συγχώνευση φακέλων χωρίς διπλότυπα 6


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations