Πώς να μεταφέρετε μαζικά όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου σε ένα αρχείο PST του Outlook σε έναν συγκεκριμένο φάκελο μέσω VBA

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

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

Μαζική μετακίνηση όλων των μηνυμάτων ηλεκτρονικού ταχυδρομείου σε ένα αρχείο PST του Outlook σε έναν συγκεκριμένο φάκελο

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

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. Μετά από αυτό, αλλάξτε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
6. Τελικά μπορείτε να εκτελέσετε τη νέα μακροεντολή κάνοντας κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων ή πατήστε το πλήκτρο "F5".
7. Ταυτόχρονα, όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου όλων των φακέλων σε έναν συγκεκριμένο φάκελο θα μετακινηθούν στον προκαθορισμένο φάκελο σε παρτίδες.

Διάσωση των δεδομένων PST σας εγκαίρως

Εάν δυστυχώς υποφέρετε Ζημιά PST, τι θα κάνεις τότε; Γενικά, η πρώτη σας σκέψη πρέπει να επιστρέψετε τα συμβιβασμένα δεδομένα PST το συντομότερο δυνατό. Ως συνήθως, ο απλούστερος τρόπος είναι η επαναφορά από ένα ενημερωμένο αντίγραφο ασφαλείας δεδομένων. Ωστόσο, εάν η δημιουργία αντιγράφων ασφαλείας δεδομένων είναι παλιά αρκετές εβδομάδες, μπορεί να είναι άχρηστη. Σε αυτήν την περίπτωση, δεν έχετε άλλη επιλογή από το να επαναλάβετε σε ένα ισχυρό εργαλείο ανάκτησης, όπως DataNumen Outlook Repair.

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

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