Τρόπος γρήγορης συγχώνευσης στοιχείων από πολλούς φακέλους χωρίς διπλότυπα στο Outlook

Λύσεις του Outlook Σεπτέμβριος 29, 2025

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

Κατά καιρούς, μπορεί να θέλετε να συγχωνεύσετε στοιχεία από διάφορους φακέλους του Outlook, όπως τη συγχώνευση όλων των επαφών πολλών φακέλων επαφών του Outlook. Σε αυτήν την περίπτωση, εάν υπάρχουν μερικές διπλές επαφές μεταξύ αυτών των φακέλων, πρέπει να ελπίζετε ότι τα διπλά μπορούν να αφαιρεθούν αυτόματα κατά τη συγχώνευση. Υπό αυτήν την περίπτωση, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα VBA για να τον πραγματοποιήσετε με ευκολία.

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

Προς starμε, ξεκινήστε την εφαρμογή Outlook.
Στη συνέχεια, θα πρέπει να έχετε πρόσβαση στο πρόγραμμα επεξεργασίας του Outlook VBA πατώντας το πλήκτρο "Alt + F11" στην κύρια οθόνη του Outlook.
Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", πρέπει να ανοίξετε μια λειτουργική μονάδα που δεν χρησιμοποιείται.
Μετά από αυτό, θα πρέπει να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

Αργότερα πρέπει να ελέγξετε τις ρυθμίσεις μακροεντολών του Outlook, διασφαλίζοντας ότι η μακροεντολή είναι ενεργοποιημένη.
Τέλος, μπορείτε να δοκιμάσετε.

Πρώτον, επιστρέψτε στο νέο παράθυρο λειτουργικής μονάδας.
Στη συνέχεια, πατήστε το πλήκτρο F5 για να ενεργοποιήσετε αυτήν τη μακροεντολή.
Στη συνέχεια, πρέπει να επιλέξετε τους δύο φακέλους που θα συγχωνευτούν. Η πρώτη είναι η πηγή και η δεύτερη είναι η πηγή tarΠάρε ένα.
Μετά από αυτό, το Outlook θα αρχίσει να μετακινεί όλα τα στοιχεία από το φάκελο προέλευσης στο tarΠάρε ένα. Επίσης, στο μεταξύ, τα αντίγραφα θα καταργηθούν αυτόματα.
Τελικά, ενδέχεται να λάβετε ένα μήνυμα που ζητά τον αριθμό των καταργημένων διπλότυπων, όπως το παρακάτω στιγμιότυπο οθόνης:

Τα μικροσκοπικά σφάλματα μπορούν να οδηγήσουν σε μεγάλες καταστροφές

Παρά το ότι είναι γεμάτο με ποσότητες εξαιρετικών λειτουργιών, το Outlook εξακολουθεί να είναι ευαίσθητο σε σφάλματα και καταστροφή. Ίσως αντιμετωπίσατε διάφορα ζητήματα του Outlook. Πολλοί χρήστες τείνουν να αγνοούν τα τυχαία σφάλματα. Ωστόσο, είναι το μικρό σφάλμα που προκαλεί σοβαρά σφάλματα του Outlook, το οποίο θα θέσει σε κίνδυνο το αρχείο Outlook. Επομένως, δεν πρέπει να αγνοήσετε τα μικρά λάθη. Αντ 'αυτού, θα πρέπει να τα εξαλείψετε το συντομότερο δυνατό. Επιπλέον, καλύτερα να διατηρήσετε την ικανότητα Επισκευή PST εργαλείο, όπως DataNumen Outlook Repair. Μέσω του υψηλού ποσοστού ανάκτησής του, αυτό το βοηθητικό πρόγραμμα επωμίστηκε τα αντίστοιχα.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com