Πώς να αδειάσετε ομαδικά όλους τους φακέλους "Διαγραμμένα" σε όλους τους λογαριασμούς email του Outlook

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

Όπως όλοι γνωρίζουμε, το Outlook επιτρέπει στους χρήστες να προσθέτουν και να ρυθμίζουν πολλούς λογαριασμούς email. Επιπλέον, εάν κάθε λογαριασμός χρησιμοποιεί ένα μεμονωμένο αρχείο δεδομένων του Outlook, κάθε αρχείο θα συνοδεύεται από έναν φάκελο "Διαγραμμένα στοιχεία", ο οποίος αποθηκεύει τα στοιχεία που έχουν διαγραφεί. Όταν επιβεβαιώσετε ότι τα στοιχεία σε όλους τους φακέλους "Διαγραμμένα" είναι άχρηστα, θα έχετε την τάση να αδειάζετε τους φακέλους. Σε αυτή την περίπτωση, αν τα αδειάσετε χειροκίνητα, μπορεί να είναι πολύ κουραστικό. Καλύτερα να εφαρμόσετε μια άκρη για να τα αδειάσετε κατά παρτίδες, όπως η παρακάτω.

Μαζική άδειασμα όλων των φακέλων «Διαγραμμένων αντικειμένων» σε όλους τους λογαριασμούς email

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

Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

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

Σε περίπτωση διαφθοράς του Outlook

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

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

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