Τρόπος αυτόματης μετονομασίας ή κατάργησης των παλαιότερων μηνυμάτων ηλεκτρονικού ταχυδρομείου με τα ίδια θέματα με τα νέα εισερχόμενα άτομα

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

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

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

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

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

5. Στη συνέχεια, θα σας ζητηθεί να υπογράψετε ψηφιακά αυτόν τον κωδικό. Πατήστε "Εργαλεία"> "Ψηφιακή υπογραφή". Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, μπορείτε να επιλέξετε ένα υπάρχον πιστοποιητικό. Εάν δεν υπάρχει πιστοποιητικό readymade, τότε μπορείτε να χρησιμοποιήσετε το "Ψηφιακά πιστοποιητικά για έργα VBA" για να δημιουργήσετε ένα νέο.
6. Μετά από αυτό, μπορείτε να βγείτε από το τρέχον παράθυρο και να προχωρήσετε στην αλλαγή των ρυθμίσεων μακροεντολών, επιτρέποντας μόνο ψηφιακές υπογραφές μακροεντολών.
7. Τελικά, μπορείτε να επανεκκινήσετε το Outlook για να ενεργοποιήσετε τη νέα μακροεντολή. Από εδώ και στο εξής, όταν φτάνουν νέα μηνύματα ηλεκτρονικού ταχυδρομείου στα Εισερχόμενα, το Outlook θα ελέγχει αυτόματα όλα τα υπάρχοντα μηνύματα ηλεκτρονικού ταχυδρομείου.

• Εάν τα παλιά μηνύματα ηλεκτρονικού ταχυδρομείου έχουν το ίδιο θέμα με το νέο, τότε το Outlook θα προσθέσει αυτόματα το επίθημα "(Παλαιό)" στο θέμα του email.
• Και εάν τα παλαιότερα μηνύματα ηλεκτρονικού ταχυδρομείου έχουν αποθηκευτεί στα Εισερχόμενα για περισσότερο από 2 μήνες, τότε θα λάβετε ένα μήνυμα, που θα σας ρωτά εάν θέλετε να τα διαγράψετε, όπως η παρακάτω εικόνα. Μπορείτε να επιλέξετε "Ναι" ή "Όχι" με βάση τις δικές σας ανάγκες.

 Διαφθορά αρχείου του Outlook λόγω μεγάλου μεγέθους

Μερικοί άνθρωποι δεν έχουν τη συνήθεια να διαγράφουν παλιά στοιχεία τακτικά στο Outlook. Έτσι, το αρχείο του Outlook τους θα είναι σε μεγάλο μέγεθος, κάτι που δεν συνιστάται. Αυτό συμβαίνει επειδή ένα υπερμεγέθες αρχείο Outlook είναι πολύ πιο ευάλωτο από ένα αρχείο σε μικρό μέγεθος. Μόλις το αρχείο καταστραφεί, το ενσωματωμένο εργαλείο επιδιόρθωσης, Scanpst.exe, θα είναι αβοήθητο στις περισσότερες περιπτώσεις. Η μοναδική σας λύση μπορεί να είναι μια αξιοσημείωτη και αποδεδειγμένη λύση. κατεστραμμένο εργαλείο επιδιόρθωσης του Outlook PST, αρέσει DataNumen Outlook Repair.

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

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