Μετάβαση στο κύριο περιεχόμενο

Εξερευνήστε το νέο, δωρεάν έκδοση του Kutools για το Outlook σήμερα!

Πώς μπορείτε να λάβετε μια λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook;

Συγγραφέας: Siluvia Τελευταία τροποποίηση: 2024-08-02

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

Λάβετε λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη
Ξεκλειδώστε τα Kutools για το Outlook δωρεάν έκδοση τώρα και απολαύστε πάνω από 70 λειτουργίες με απεριόριστη πρόσβαση για πάντα
Ενισχύστε το Outlook 2024 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε 70+ ισχυρές λειτουργίες και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

Λάβετε λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook

1. Επιλέξτε το email με συνημμένα που θέλετε να λάβετε τις πληροφορίες αυτών.

2. Πάτα το άλλος + F11 για να ανοίξετε το πλήκτρο Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Στη συνέχεια, κάντε διπλό κλικ στο Project1 > Αντικείμενο Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το Project1 - ThisOutlookSession παράθυρο. Δείτε το στιγμιότυπο οθόνης:

το παράθυρο Project1 – ThisOutlookSession

4. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Project1 - ThisOutlookSession.

Κωδικός VBA: λήψη λίστας πληροφοριών συνημμένων

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

5. Τύπος F5 πληκτρολογήστε το πληκτρολόγιο για να εκτελέσετε τον κωδικό VBA.

6. Τώρα α Μακροεντολές εμφανίζεται το παράθυρο διαλόγου, κάντε κλικ στο τρέξιμο κουμπί.

ένα πλαίσιο διαλόγου Μακροεντολές

7. Αφού κάνετε κλικ στο τρέξιμο στο κουμπί Μακροεντολές πλαίσιο διαλόγου, θα δημιουργηθεί ένα νέο παράθυρο μηνύματος με όλες τις πληροφορίες συνημμένων επιλεγμένων email που αναφέρονται στο σώμα του email. Δείτε το στιγμιότυπο οθόνης:

δημιουργείται ένα νέο παράθυρο μηνύματος με όλες τις πληροφορίες συνημμένων των επιλεγμένων email που αναφέρονται στο σώμα του email

Σημείωση: Αυτός ο κωδικός VBA μπορεί να εφαρμοστεί στο Outlook 2007, 2010 και 2013

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Έκτακτες ειδήσεις: Το Kutools για το Outlook κυκλοφορεί δωρεάν έκδοση!

Ζήστε την ολοκαίνουργια ΔΩΡΕΑΝ έκδοση του Kutools για το Outlook με 70+ απίστευτες δυνατότητες, δικές σας για χρήση ΓΙΑ ΠΑΝΤΑ! Κάντε κλικ για λήψη τώρα!

🤖 Kutools AI : Χρησιμοποιεί προηγμένη τεχνολογία AI για να χειρίζεται τα email χωρίς κόπο, συμπεριλαμβανομένης της απάντησης, της σύνοψης, της βελτιστοποίησης, της επέκτασης, της μετάφρασης και της σύνταξης email.

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Αυτόματη απάντηση (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα Pro: Μαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Σας υπενθυμίζει όταν έρχονται σημαντικά μηνύματα ηλεκτρονικού ταχυδρομείου  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Χρησιμοποιήστε το Kutools στην προτιμώμενη γλώσσα σας – υποστηρίζει Αγγλικά, Ισπανικά, Γερμανικά, Γαλλικά, Κινέζικα και πάνω από 40 άλλες γλώσσες!

Ξεκλειδώστε άμεσα το Kutools για το Outlook με ένα μόνο κλικ. Μην περιμένετε, κάντε λήψη τώρα και ενισχύστε την αποτελεσματικότητά σας!

Kutools για δυνατότητες του Outlook1 Kutools για δυνατότητες του Outlook2