Ίσως έχετε έναν φάκελο κάτω από τον οποίο υπάρχουν πολλοί υποφάκελοι. Εάν θέλετε να αναδιοργανώσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου σε αυτά, όπως τη γρήγορη μετακίνηση όλων των μηνυμάτων ηλεκτρονικού ταχυδρομείου από αυτούς τους υποφακέλους σε έναν συγκεκριμένο φάκελο, μπορείτε να χρησιμοποιήσετε τον τρόπο που χρησιμοποιείται από κοινού σε αυτό το άρθρο.
Μερικές φορές, μπορεί να χρειαστεί να μετακινήσετε ομαδικά τα μηνύματα ηλεκτρονικού ταχυδρομείου από όλους τους υποφακέλους ενός φακέλου σε έναν άλλο φάκελο για κάποιους λόγους, όπως για παράδειγμα θέλετε να επαναταξινομήσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, ώστε αυτοί οι υποφάκελοι να μην είναι πλέον χρήσιμοι. Σε αυτήν την περίπτωση, η επεξεργασία αυτών των υποφακέλων ένας προς έναν είναι αρκετά ενοχλητική. Επομένως, εδώ θα σας παρουσιάσουμε έναν άλλο τρόπο.
Μαζική μετακίνηση email από όλους τους υποφακέλους ενός φακέλου σε έναν άλλο φάκελο
- Από την αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, στην κύρια οθόνη του Outlook, πατήστε τα πλήκτρα "Alt + F11", τα οποία θα σας μεταφέρουν στον επεξεργαστή VBA.
- Στη συνέχεια, στο νέο παράθυρο "Microsoft Visual Basic for Applications", πρέπει να ανοίξετε μια λειτουργική μονάδα που δεν χρησιμοποιείται.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.
Dim objTargetFolder As Outlook.folder
Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
Dim objSourceFolder As Outlook.folder
Dim objFolder As Outlook.folder
'Get the source folder whose subfolders to be processed
Set objSourceFolder = Application.Session.PickFolder
If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
If objSourceFolder.folders.count > 0 Then
'Select a target folder
Set objTargetFolder = Application.Session.PickFolder
If Not (objTargetFolder Is Nothing) Then
For Each objFolder In objSourceFolder.folders
Call ProcessFolders(objFolder)
Next
MsgBox "Move Completed!", vbExclamation
End If
Else
MsgBox "No subfolders!", vbExclamation
End If
End If
End Sub
Sub ProcessFolders(ByVal objFolder As Outlook.folder)
Dim i As Long
Dim objSubfolder As Outlook.folder
For i = objFolder.Items.count To 1 Step -1
'Move emails to the target folder
If objFolder.Items(i).Class = olMail Then
objFolder.Items(i).Move objTargetFolder
End If
Next
'Process subfolders recursively
If objFolder.folders.count > 0 Then
For Each objSubfolder In objFolder.folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- Μετά από αυτό, μπορείτε να εκτελέσετε αυτήν τη μακροεντολή.
- Πρώτα, σε αυτό το παράθυρο μακροεντολής, πατήστε το κουμπί "F5".
- Στη συνέχεια, θα σας ζητηθεί να επιλέξετε έναν φάκελο προέλευσης του οποίου οι υποφάκελοι θα υποβληθούν σε επεξεργασία.
- Μετά από αυτό, πρέπει να καθορίσετε τον φάκελο προορισμού στον οποίο θέλετε να μετακινήσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου.
- Στη συνέχεια, αυτή η μακροεντολή θα αρχίσει να λειτουργεί. Όταν ολοκληρωθεί, θα λάβετε ένα μήνυμα που θα σας ζητά "Ολοκλήρωση".
- Τελικά, μπορείτε να αποκτήσετε πρόσβαση στον φάκελο προορισμού. Θα δείτε ότι όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου των υποφακέλων κάτω από τον φάκελο προέλευσης βρίσκονται εκεί.
Επαναφορά συμβιβαστικών δεδομένων του Outlook
Παρά το γεγονός ότι διαθέτει πολυάριθμες δυνατότητες, όπως και άλλοι πελάτες ηλεκτρονικού ταχυδρομείου, το Outlook εξακολουθεί να μην μπορεί να ξεφύγει από τη διαφθορά. Με όλο και περισσότερα αποθηκευμένα δεδομένα, το Outlook θα είναι όλο και πιο επιρρεπές σε σφάλματα και ζημιές. Ως εκ τούτου, πρέπει να έχετε ένα ισχυρό εργαλείο επισκευής εύχρηστο, όπως DataNumen Outlook Repair. Είναι ειδικά σχεδιασμένο για να επιδιορθώστε το Outlook θέματα. Έτσι, μπορεί να σαρώσει και να επαναφέρει το κατεστραμμένο αρχείο του Outlook με ευκολία.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datKanumen.com