Πώς να διαγράψετε γρήγορα πολλούς φακέλους αλληλογραφίας του Outlook σε παρτίδες

Κοινή χρήση τώρα:

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

Ως συνήθως, όταν σκοπεύετε να διαγράψετε έναν μεμονωμένο φάκελο αλληλογραφίας, υπάρχουν δύο διαθέσιμες μέθοδοι. Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, το ένα είναι ότι μπορείτε να κάνετε δεξί κλικ σε αυτόν τον φάκελο αλληλογραφίας και, στη συνέχεια, να επιλέξετε "Διαγραφή φακέλου" από το μενού περιβάλλοντος. Το άλλο είναι ότι πρέπει να μεταβείτε στην καρτέλα "Φάκελος" και να κάνετε κλικ στο κουμπί "Διαγραφή φακέλου".

Διαγραφή ενός φακέλου μεμονωμένης αλληλογραφίας

Είναι προφανές ότι και τα δύο είναι αρκετά απλά. Ωστόσο, εάν χρησιμοποιήσετε ένα από τα δύο για να διαγράψετε πολλούς φακέλους, θα είναι μάλλον ενοχλητικό. Πολλοί χρήστες έχουν εκφράσει ότι επιθυμούν να διαγράψουν πολλούς φακέλους απλά με μία κίνηση. Εάν όλοι αυτοί οι φάκελοι είναι οι υποφάκελοι σε έναν συγκεκριμένο φάκελο, όπως στην παραπάνω εικόνα, μπορείτε πράγματι να χρησιμοποιήσετε το Outlook VBA για να τους διαγράψετε με ένα κλικ. Αλλά αν όχι, πρέπει να κάνετε κάποιες επιπλέον προσπάθειες. Διαβάστε παρακάτω για να τα βρείτε αναλυτικά.

Εάν αυτοί οι φάκελοι είναι υποφάκελοι σε έναν συγκεκριμένο φάκελο

  1. Για να ξεκινήσετε, ξεκινήστε το Outlook.
  2. Στη συνέχεια, πατήστε τις συντομεύσεις πλήκτρων "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
  3. Στη συνέχεια, στο αναδυόμενο παράθυρο, θα πρέπει να ανοίξετε μια λειτουργική μονάδα που δεν χρησιμοποιείται ή να εισαγάγετε μια νέα λειτουργική μονάδα με «Εισαγωγή» > «Ενότητα».
  4. Στη συνέχεια, πρέπει να αντιγράψετε τους παρακάτω κωδικούς σε αυτό.
Sub DeleteMultipleFolders()
    Dim objCurrentFolder As Folder
    Dim objSubFolders As Folders
    Dim i As Long
 
    On Error Resume Next
 
    Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    Set objSubFolders = objCurrentFolder.Folders
 
    For i = objSubFolders.Count To 1 Step -1
        objSubFolders.Item(i).Delete
    Next
End Sub

Κωδικοί VBA - Διαγραφή όλων των υποφακέλων με μία κίνηση

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

Το παραπάνω κόλπο θα είναι πολύ βολικό εάν αυτοί οι φάκελοι είναι όλοι οι υποφάκελοι κάτω από έναν συγκεκριμένο φάκελο. Αλλά εάν οι φάκελοι που πρόκειται να διαγραφούν βρίσκονται κάτω από διαφορετικούς φακέλους, πρέπει να κάνετε κάποιες πρόσθετες λειτουργίες. Ακολουθήστε τα παρακάτω βήματα.

Εάν αυτοί οι φάκελοι δεν είναι υποφάκελοι σε έναν συγκεκριμένο φάκελο

  1. Αρχικά, δημιουργήστε έναν νέο φάκελο που ονομάζεται "Temp".
  • Πρώτα, προσθέστε το σωστό αρχείο PST.
  • Στη συνέχεια, κάντε κλικ στο κουμπί "Νέος φάκελος" στην καρτέλα "Φάκελος".
  • Στη συνέχεια πληκτρολογήστε "Θερμοκρασία" στο πεδίο "Όνομα".
  • Τελικά, κάντε κλικ στο κουμπί "OK".Δημιουργήστε έναν νέο φάκελο Temp
  1. Στη συνέχεια, πρέπει να σύρετε τους φακέλους που σκοπεύετε να διαγράψετε στο φάκελο "Temp".Σύρετε τους φακέλους που πρόκειται να διαγραφούν στον φάκελο Temp
  2. Αφού μετακινηθούν όλοι αυτοί οι φάκελοι και βρεθούν στο φάκελο "Temp", μπορείτε να χρησιμοποιήσετε τη μακροεντολή που αναφέρεται στην πρώτη ενότητα για να διαγράψετε όλους αυτούς τους υποφακέλους στο "Temp".

Ποτέ μην κάνετε κλικ στους συνδέσμους σε άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου

Εκτός από τις δικές σας μακροεντολές, θα πρέπει να είστε προσεκτικοί με όλες τις εξωτερικές μακροεντολές, καθώς ενδέχεται να περιέχουν ιούς. Ως συνήθως, αυτές οι κακόβουλες μακροεντολές μεταμφιέζονται ως αβλαβείς σύνδεσμοι στα μηνύματα ηλεκτρονικού ταχυδρομείου. Επομένως, εάν δεν μπορείτε να προσδιορίσετε τον αποστολέα ενός email, καλύτερα να μην κάνετε λήψη των συνημμένων του ή να κάνετε κλικ στους συνδέσμους του. Διαφορετικά, τα δεδομένα του Outlook είναι πιθανό να μολυνθούν. Έτσι, για να ανακτήσετε το δικό σας κατεστραμμένο Outlook δεδομένα, το εργαλείο εισερχομένων, Scanpst.exe δεν θα είναι χρήσιμο. Χρειάζεται να καταφύγετε σε ένα εξωτερικό εργαλείο, όπως π.χ DataNumen Outlook Repair.

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

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

Κοινή χρήση τώρα:

Τα σχόλια είναι κλειστά.