Τρόπος συγχώνευσης αρχείων PST μέσω του Outlook VBA

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

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

Γενικά, εάν θέλετε να συγχωνεύσετε μόνο δύο αρχεία σε ένα, μπορείτε απλώς να εισαγάγετε το ένα στο άλλο. Ωστόσο, εάν θέλετε να συγχωνεύσετε πολλά, θα είναι πολύ ενοχλητικό να το κάνετε με μη αυτόματο τρόπο. Έτσι, εδώ θα σας παρουσιάσουμε τη συγχώνευση πολλαπλών αρχείων PST σε γρήγορο χρόνο μέσω VBA. Τώρα, διαβάστε για να το πάρετε λεπτομερώς.

Συγχώνευση αρχείων PST μέσω του Outlook VBA

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

Public objNewPSTFileFolder As Outlook.Folder

Private Sub CreateNewPSTFile()
    'Create a new PST file
    Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst"
    Set objNewPSTFileFolder = Session.Folders.GetLast()
    Call SelectANDMergePSTFiles
End Sub

Sub SelectANDMergePSTFiles()
    Dim objSourceFile As Object
    Dim strMsg As String
    Dim nResponse As Integer
 
    'Select the source PST file
    Set objSourceFile = Outlook.Application.Session.PickFolder
    Call CopyFolder(objSourceFile)
 
    'Ask if select one more PST file
    strMsg = "One Completes! Do you want to select one more PST file?"
    nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files")
  
    If nResponse = vbYes Then
       Call SelectANDMergePSTFiles
    Else
       MsgBox ("All Complete!")
    End If
End Sub

Sub CopyFolder(ByVal objCurrentFile As Object)
    Dim objFolder As Outlook.Folder
 
    For Each objFolder In objCurrentFile.Folders
        objFolder.CopyTo objNewPSTFileFolder
    Next objFolder
End Sub

5. Στη συνέχεια, θα πρέπει να επιβεβαιώσετε ότι το Outlook σας επιτρέπει μακροεντολές.
6. Τέλος, μπορείτε να δοκιμάσετε.

• Πρώτα, κάντε κλικ στην υπορουτίνα «CreateNewPST».
• Στη συνέχεια, κάντε κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων.
• Στη συνέχεια, θα χρειαστεί να επιλέξετε το αρχείο προέλευσης στο αναδυόμενο παράθυρο διαλόγου όπως το ακόλουθο στιγμιότυπο οθόνης:
• Αφού επιλέξετε ένα, κάντε κλικ στο "OK".
• Στη συνέχεια, το Outlook θα αντιγράψει όλα τα στοιχεία από το επιλεγμένο αρχείο στο νέο αρχείο PST.
• Μετά από αυτό, θα λάβετε ένα μήνυμα που θα σας ρωτάει εάν θέλετε να επιλέξετε ένα ακόμη αρχείο. Πατήστε "Ναι", μπορείτε να επιλέξετε το επόμενο αρχείο PST προέλευσης.
• Εφόσον ολοκληρώσετε την επιλογή και τη συγχώνευση όλων των επιθυμητών αρχείων πηγής, μπορείτε να επιλέξετε "Όχι".
• Τέλος, θα λάβετε με επιτυχία ένα νέο αρχείο PST το οποίο είναι το συγχωνευμένο αρχείο όλων των επιλεγμένων αρχείων προέλευσης.

Τι γίνεται αν το αρχείο PST καταστραφεί

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

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

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