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

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

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

Καταργήστε συνημμένα από ληφθέντα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από μια συγκεκριμένη ημερομηνία

1. Αρχικά, ανοίξτε το Outlook και μεταβείτε στην καρτέλα "Προγραμματιστής".
2. Στη συνέχεια, πατήστε το κουμπί "Visual Basic" στην ομάδα "Κωδικός".
3. Θα εμφανιστεί ένα νέο παράθυρο. Σε αυτό, θα πρέπει να ανοίξετε μια νέα ενότητα και να αντιγράψετε τους ακόλουθους κωδικούς σε αυτήν.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

4. Τώρα μπορείτε να βγείτε από το τρέχον παράθυρο "Visual Basic" και να προχωρήσετε στην προσθήκη της μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης. Ακολουθήστε τα παρακάτω βήματα:

• Αρχικά, πατήστε το κάτω βέλος στη γραμμή εργαλείων γρήγορης πρόσβασης και επιλέξτε "Περισσότερες εντολές" από την αναπτυσσόμενη λίστα.
• Στη συνέχεια θα πρέπει να επιλέξετε «Μακροεντολές» στο πεδίο «Επιλογή εντολών από».
• Στη συνέχεια επιλέξτε τη σωστή μακροεντολή και κάντε κλικ στο κουμπί "Προσθήκη" στο κέντρο.
• Τέλος, κάντε κλικ στο κουμπί "OK" για να το ενεργοποιήσετε και επιστρέψτε στο κύριο παράθυρο του Outlook.

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

Καταργήστε συνημμένα από απεσταλμένα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από μια συγκεκριμένη ημερομηνία

Για να επιτύχετε αυτόν τον στόχο, μπορείτε να αντιγράψετε ολόκληρους τους παραπάνω κωδικούς VBA, αλλά να αλλάξετε ορισμένες γραμμές ακολουθώντας τις παρακάτω σημειώσεις:

1. Πρώτα, αλλάξτε όλο το "olInbox" σε "olSentItemFolder" στους κωδικούς VBA.
2. Στη συνέχεια, αντικαταστήστε το "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" με:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Στη συνέχεια, αντικαταστήστε το "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" με:

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Εξαλείψτε τα ενοχλητικά σφάλματα του Outlook

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

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

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