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

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

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

Αυτόματη μετακίνηση στοιχείων σε ένα φάκελο στον γονικό του φάκελο πριν τον διαγράψετε

1. Αρχικά, αποκτήστε πρόσβαση στο πρόγραμμα επεξεργασίας του Outlook VBA μέσω του "Alt + F11".
2. Στη συνέχεια, στο νέο παράθυρο, ανοίξτε το έργο "ThisOutlookSession".
3. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτό το έργο.

'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

4. Μετά από αυτό, μπορείτε να πάρετε μια βολή τώρα.
5. Αρχικά, κάντε δεξί κλικ στον υποφάκελο που θέλετε να διαγράψετε.
6. Στη συνέχεια, από το μενού περιβάλλοντος, επιλέξτε την επιλογή «[Smart] Delete Folder».
7. Με τη μία, το Outlook θα διαγράψει το φάκελο και θα μετακινήσει τα στοιχεία του στον γονικό φάκελο.
8. Στην περίπτωσή μου, διαγράφω τον υποφάκελο "To Bob". Ο γονικός φάκελος είναι "Απεσταλμένα αντικείμενα". Επομένως, όλα τα στοιχεία του έχουν μετακινηθεί στα "Απεσταλμένα", όπως το παρακάτω στιγμιότυπο οθόνης.

Λάβετε υπόψη ότι το Outlook είναι ευάλωτο

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

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

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