Note: The other languages of the website are Google-translated. Back to English

Πώς να διαγράψετε μαζικά όλους τους κενούς φακέλους στο Outlook;

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

Μαζική διαγραφή όλων των κενών φακέλων στο Outlook με VBA

Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερες από 100 προηγμένες δυνατότητες θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2021 - 2010 ή στο Office 365. Πλήρεις δυνατότητες δωρεάν δοκιμή 60 ημερών.

βέλος μπλε δεξιά φούσκαΜαζική διαγραφή όλων των κενών φακέλων στο Outlook με VBA

Για να καταργήσετε όλους τους κενούς υποφακέλους ενός συγκεκριμένου φακέλου του Outlook, κάντε τα εξής:

1. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο λειτουργικής μονάδας.

VBA: Διαγραφή όλων των κενών υποφακέλων συγκεκριμένων φακέλων του Outlook μαζικά

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. Τύπος F5 Κλειδί ή τρέξιμο για να εκτελέσετε αυτόν τον κωδικό VBA.

4. Στο αναδυόμενο παράθυρο διαλόγου Επιλογή φακέλου, επιλέξτε τον συγκεκριμένο φάκελο του οποίου οι άδειοι υποφάκελοι θα διαγράψετε μαζικά και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

5. Τώρα βγαίνει ένα παράθυρο διαλόγου Kutools for Outlook και σας δείχνει πόσους κενούς υποφακέλους έχουν διαγραφεί. Κάντε κλικ στο OK για να το κλείσετε.

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


βέλος μπλε δεξιά φούσκαΣχετικά άρθρα

Εύρεση φακέλου (διαδρομή πλήρους φακέλου) κατά όνομα φακέλου στο Outlook


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (10)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμπρός!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω το ακόλουθο σφάλμα κατά την εκτέλεση του παραπάνω "Σφάλμα χρόνου εκτέλεσης '-2147352567 (80020009)' Δεν είναι δυνατή η διαγραφή αυτού του φακέλου. Κάντε δεξί κλικ στο φάκελο και, στη συνέχεια, κάντε κλικ στο ιδιότητες για να ελέγξετε τα δικαιώματά σας για το φάκελο. Δείτε τον κάτοχο του φακέλου ή ο διαχειριστής σας να αλλάξει τα άδειά σας"

Φαίνεται ότι το σενάριο μετακινεί 1 στοιχείο στον διαγραμμένο φάκελο και, στη συνέχεια, εμφανίζεται σφάλμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συμφωνώ - λαμβάνω το ίδιο σφάλμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το σενάριο προσπαθεί να διαγράψει έναν φάκελο που είχε ήδη διαγραφεί.
Πρόσθεσα μια σειρά μετά το xFlag = False με αυτό το περιεχόμενο:
σε σφάλμα συνέχιση στη συνέχεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πράγματι, προσθέστε:

On Error Συνέχιση Επόμενη

ΜΕΤΑ:

Dim x Fldr As Folder «Δήλωση υποφακέλων αντικειμένων
xFlag = Λάθος

Θα πρέπει να μοιάζει με αυτό:

Dim x Fldr As Folder «Δήλωση υποφακέλων αντικειμένων
xFlag = Λάθος
On Error Συνέχιση Επόμενη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω το ίδιο σφάλμα όπως ο Bryan... και τώρα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το σενάριο προσπαθεί να διαγράψει έναν φάκελο που είχε ήδη διαγραφεί.
Πρόσθεσα μια σειρά μετά το xFlag = False με αυτό το περιεχόμενο:
σε σφάλμα συνέχιση στη συνέχεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σούπερ εύκολο και απίστευτα χρήσιμο. Σας ευχαριστώ!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Διαγράφηκαν 74 κενοί φάκελοι αλλά δυστυχώς και 109 φάκελοι που δεν διαγράφηκαν. Άλλοι άδειοι φάκελοι έμειναν ανέγγιχτοι.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε υπέροχα για μένα. Σας ευχαριστώ. Ορισμένοι φάκελοι δεν μπορούν να διαγραφούν καθώς είναι εγγενείς στο Outlook, αλλά οι υποφάκελοι λειτουργούν εξαιρετικά.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL