Εάν θέλετε να αντιγράψετε τη δομή του φακέλου από ένα αρχείο PST του Outlook σε άλλο, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο, η οποία θα σας διδάξει πώς να χρησιμοποιείτε το VBA για να το μεταφέρετε με μια κίνηση.
Ίσως, για να διαχειρίζεστε καλύτερα τα email σας, να έχετε δημιουργήσει αρκετούς προσαρμοσμένους φακέλους στο κύριο αρχείο του Outlook. Επομένως, κατά τη δημιουργία ενός νέου αρχείου PST του Outlook, μπορεί να θέλετε να εφαρμόσετε την ίδια δομή φακέλου. Στην πραγματικότητα, στο προηγούμενο άρθρο μου - "2 βήματα για να διατηρήσετε την τρέχουσα ιεραρχία φακέλων σε ένα νέο αρχείο του Outlook», μπορείτε να μάθετε μια παραδοσιακή μέθοδο, η οποία χρησιμοποιεί τη λειτουργία «Αρχειοθέτηση» για να την πετύχετε. Ωστόσο, στην πραγματικότητα, είναι ακόμα λίγο κουραστικό. Σε σύγκριση με αυτό, η χρήση κωδικών VBA για τη λήψη του θα είναι πολύ πιο γρήγορη. Επομένως, στα ακόλουθα, θα σας πούμε τα αναλυτικά βήματα και τους κωδικούς.
Αντιγράψτε τη δομή φακέλου από ένα αρχείο PST του Outlook σε άλλο
- Από την αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, στο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια θα μπείτε στο παράθυρο επεξεργασίας του Outlook VBA.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε μια νέα λειτουργική μονάδα.
Public objNewPSTFolder As Outlook.Folder
Sub CopyFolderStructure()
Dim objFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
'Get the folders of the source Outlook PST file
Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
'Create the new pst file in your desired local folder and name
Outlook.Application.Session.AddStore "E:\New PST File.pst"
Set objNewPSTFolder = Session.Folders.GetLast()
For Each objFolder In objFolders
CreateFolder objFolder
Next
MsgBox "Completed!", vbOKOnly + vbInformation, "Copy Folder Structure"
End Sub
Sub CreateFolder(objFolder As Outlook.Folder)
Dim objSubFolder As Outlook.Folder
'Only copy the mail folder
If (objFolder.DefaultItemType = olMailItem) Then
'New Outlook PST file auto includes the "Deleted Items" folder, so skip it
'Skip the useless mail folders - "Conversation Action Settings" and "Quick Step Settings"
If (objFolder.Name <> "Deleted Items") And (objFolder.Name <> "Conversation Action Settings") And (objFolder.Name <> "Quick Step Settings") Then
'Create the new folder
objNewPSTFolder.Folders.Add objFolder.Name
Set objNewPSTFolder = objNewPSTFolder.Folders.Item(objFolder.Name)
For Each objSubFolder In objFolder.Folders
CreateFolder objSubFolder
Next
Set objNewPSTFolder = objNewPSTFolder.parent
End If
End If
End Sub
- Μετά από αυτό, αλλάξτε το επίπεδο ασφάλειας της μακροεντολής σε χαμηλό.
- Αργότερα επιστρέψτε στο παράθυρο του προγράμματος επεξεργασίας VBA και πατήστε το πλήκτρο "F5" για να εκτελέσετε τη μακροεντολή.
- Τέλος, αφού τελειώσει η λειτουργία της μακροεντολής, θα λάβετε ένα μήνυμα που θα σας ζητά "Ολοκληρώθηκε!".
- Σε αυτό το σημείο, μπορείτε να μεταβείτε στο παράθυρο πλοήγησης αλληλογραφίας. Θα δείτε ένα νέο αρχείο δεδομένων του Outlook που έχει την ίδια δομή φακέλου με το αρχείο προέλευσης PST, όπως η παρακάτω εικόνα:
Αντιμετωπίστε τα ενοχλητικά προβλήματα PST
Καθώς το Outlook PST είναι επιρρεπές σε σφάλματα, πολλοί από εσάς πρέπει να έχετε αντιμετωπίσει ποτέ διάφορα ζητήματα στο Outlook. Αντιμέτωποι με αυτά, μπορείτε πρώτα να χρησιμοποιήσετε το εργαλείο επιδιόρθωσης εισερχομένων του Outlook για να δοκιμάσετε. Εάν αποτύχει, μπορείτε να εφαρμόσετε ένα πιο ισχυρό εργαλείο τρίτων, όπως π.χ DataNumen Outlook Repair, Η οποία μπορεί να επιδιορθώστε το Outlook Σφάλματα PST σαν αεράκι.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server σταθερός και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com