Πώς μπορείτε να λάβετε μια λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook;
Για τα ληφθέντα email που επισυνάπτονται με συνημμένα, μερικές φορές ίσως χρειαστεί να γνωρίζετε τις λεπτομερείς πληροφορίες των συνημμένων, όπως το εμφανιζόμενο όνομα, το όνομα αρχείου και ούτω καθεξής. Στην πραγματικότητα, ο κώδικας VBA μπορεί να σας βοηθήσει να λάβετε εύκολα τη λίστα των πληροφοριών των συνημμένων στο τρέχον επιλεγμένο email στο Outlook. Ανατρέξτε στον παρακάτω οδηγό για περισσότερες λεπτομέρειες.
Λάβετε λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook
- Αυτοματοποιήστε την αποστολή email με Αυτόματο CC / BCC, Αυτόματη προώθηση με κανόνες? στείλετε Αυτόματη απάντηση (Εκτός γραφείου) χωρίς να απαιτείται διακομιστής ανταλλαγής...
- Λάβετε υπενθυμίσεις όπως Προειδοποίηση BCC όταν απαντάτε σε όλους όσο βρίσκεστε στη λίστα BCC και Υπενθύμιση όταν λείπουν συνημμένα για ξεχασμένα συνημμένα...
- Βελτιώστε την αποτελεσματικότητα του email με Απάντηση (Όλα) Με Συνημμένα, Αυτόματη προσθήκη χαιρετισμού ή ημερομηνίας και ώρας στην υπογραφή ή στο θέμα, Απάντηση σε πολλά email...
- Βελτιώστε την αποστολή email με Ανάκληση email, Εργαλεία συνημμένου (Συμπίεση όλων, Αυτόματη αποθήκευση όλων...), Κατάργηση διπλότυπων, να Γρήγορη αναφορά...
Λάβετε λίστα πληροφοριών συνημμένων σε επιλεγμένη αλληλογραφία στο Outlook
1. Επιλέξτε το email με συνημμένα που θέλετε να λάβετε τις πληροφορίες αυτών.
2. Πάτα το άλλος + F11 για να ανοίξετε το πλήκτρο Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Στη συνέχεια, κάντε διπλό κλικ στο Project1 > Αντικείμενο Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το 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. Δείτε το στιγμιότυπο οθόνης:
Note: Αυτός ο κωδικός VBA μπορεί να εφαρμοστεί στο Outlook 2007, 2010 και 2013
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.