Μερικές φορές, θα χρειαστεί να εξαγάγετε και να εκτυπώσετε τις λίστες συνημμένων πολλών μηνυμάτων ηλεκτρονικού ταχυδρομείου. Σε αυτό το άρθρο, θα σας μάθουμε 2 τρόπους για να το αποκτήσετε.
Εάν λαμβάνετε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου με πολλά συνημμένα για τις αναφορές σας, ίσως θελήσετε να εκτυπώσετε αυτά τα ονόματα συνημμένων. Σε αυτήν την περίπτωση, πώς μπορείτε να το αποκτήσετε χύμα; Στη συνέχεια, θα σας διδάξουμε 2 τρόπους για να εκτυπώσετε γρήγορα τις λίστες συνημμένων μόνο πολλών μηνυμάτων ηλεκτρονικού ταχυδρομείου του Outlook.
Μέθοδος 1: Εκτύπωση και αντιγραφή λίστας συνημμένων σε μορφή εμπλουτισμένου κειμένου
- Στην αρχή, ανοίξτε ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook.
- Στη συνέχεια, στο παράθυρο Μήνυμα, κάντε κλικ στο «Ενέργειες» και επιλέξτε «Επεξεργασία μηνύματος».
- Στη συνέχεια, μεταβείτε στην καρτέλα "Μορφοποίηση κειμένου", στην οποία επιλέξτε τη μορφή "Εμπλουτισμένο κείμενο".
- Με τη μία, μπορείτε να δείτε ότι τα συνημμένα email μετακινούνται στο σώμα.
- Μετά από αυτό, κάντε κλικ στο κουμπί "Απάντηση" στην ομάδα "Απάντηση" στην καρτέλα "Μήνυμα".
- Στο επόμενο μήνυμα, η λίστα συνημμένων βρίσκεται ήδη στο σώμα, όπως το παρακάτω στιγμιότυπο οθόνης.
- Τώρα μπορείτε να αντιγράψετε τη λίστα συνημμένων σε νέο email.
- Αργότερα, χρησιμοποιήστε αυτήν τη μέθοδο για να αντιγράψετε τις λίστες συνημμένων άλλων email στη νέα αλληλογραφία.
- Τέλος, μπορείτε να εκτυπώσετε αυτό το νέο μήνυμα ως συνήθως.
Μέθοδος 2: Εκτύπωση λιστών συνημμένων μέσω του Outlook VBA
- Για αρχή, πατήστε "Alt + F11" για να ανοίξετε τον επεξεργαστή VBA του Outlook.
- Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA σε μια λειτουργική μονάδα.
Sub PrintAttachmentListsOfManyEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objTempMail As Outlook.MailItem
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Input the attachment lists into a temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
For i = 1 To objSelection.Count
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Attachments.Count > 0 Then
objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
For n = 1 To objMail.Attachments.Count
Set objAttachment = objMail.Attachments(n)
objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
Next
End If
End If
Next
'Print the temp mail
objTempMail.PrintOut
End If
End Sub
- Στη συνέχεια, προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ανατρέχοντας στο άρθρο – «Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Τελικά, δοκιμάστε αυτήν τη μακροεντολή.
- Αρχικά, επιλέξτε πολλά email.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αμέσως, οι λίστες συνημμένων αυτών των email πρέπει να έχουν εκτυπωθεί.
Καταφύγετε σε ένα κορυφαίο εργαλείο επιδιόρθωσης του Outlook
Όταν αντιμετωπίζετε ζημιά στο αρχείο του Outlook, πρέπει να είναι καλύτερο ότι έχετε ένα πρόσφατο αντίγραφο ασφαλείας δεδομένων του Outlook στα χέρια σας. Μπορεί να σας επιτρέψει να απαλλαγείτε από περίπλοκη επιδιόρθωση αρχείων του Outlook. Ωστόσο, μερικές φορές το αντίγραφο ασφαλείας μπορεί να αποτύχει να αποκατασταθεί. Σε εκείνο το σημείο, θα χρειαστεί να καταφύγετε σε ένα πιο έξυπνο και επαγγελματικό εργαλείο επιδιόρθωσης, όπως π.χ DataNumen Outlook Repair. Μπορεί να επισκευάσει κατεστραμμένο PST μεσα σε λιγα λεπτα.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com