Τρόπος εμφάνισης του αριθμού συνημμένων στη λίστα email με το Outlook VBA

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

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

Εμφάνιση πλήθους συνημμένων στη λίστα email

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

Sub AutoCountAttachments(objMail As Outlook.MailItem)
    Dim objAttachments As Outlook.Attachments
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
 
    Set objAttachments = objMail.Attachments
 
    strPropertyName = "Attachment Count"
    Set objProperties = objMail.UserProperties
 
    'Check if there is already a column in this name
    Set objProperty = objProperties.Find(strPropertyName, True)
    If objProperty Is Nothing Then
       'If not, add this column
       Set objProperty = objProperties.Add(strPropertyName, olText, True)
    End If
 
    'Set the column value equal to the count of attachments
    objProperty.value = objAttachments.Count
    objMail.Save
End Sub

5. Μετά από αυτό, μπορείτε να βγείτε από το τρέχον παράθυρο "Microsoft Visual Basic for Applications".
6. Αργότερα θα πρέπει να δημιουργήσετε έναν νέο κανόνα για την εκτέλεση αυτού του σεναρίου σε κάθε εισερχόμενο email.

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

7. Μετά από αυτό, θα πρέπει να προσθέσετε τη στήλη "Attachment Count" που δημιουργήθηκε από τον κώδικα VBA. Απλώς ακολουθήστε τα παρακάτω βήματα:

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

8. Τελικά, μπορείτε να δείτε μια στήλη "Αριθμός συνημμένων" στη λίστα email, η οποία εμφανίζει τον αριθμό συνημμένων για κάθε email, όπως φαίνεται στην παρακάτω εικόνα:

Αποφύγετε την απογοήτευση της απώλειας δεδομένων PST

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

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

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