Εάν θέλετε να εκτυπώσετε μαζικά όλα τα συνημμένα σε πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο. Χρησιμοποιεί ένα κομμάτι κώδικα VBA για να το πετύχει γρήγορα.
Όπως μπορείτε να δείτε, όταν επιλέγετε ένα συνημμένο, υπάρχει μια άμεση δυνατότητα "Γρήγορη εκτύπωση" διαθέσιμη στην κορδέλα "Συνημμένα". Ωστόσο, όταν επιλέγετε πάνω από ένα συνημμένο, το κουμπί "Γρήγορη εκτύπωση" θα απενεργοποιηθεί, για να μην αναφέρουμε την εκτύπωση όλων των συνημμένων σε πολλά επιλεγμένα email. Επομένως, υπό την προϋπόθεση ότι θέλετε να εκτυπώσετε ομαδικά όλα τα συνημμένα σε πολλά μηνύματα με μία κίνηση, θα πρέπει να αναζητήσετε άλλους τρόπους, όπως εργαλεία τρίτων ή VBA. Εστιάζοντας σε αυτή την ανάγκη, εδώ θα σας εκθέσουμε ένα κομμάτι κώδικα VBA, το οποίο μπορεί να σας βοηθήσει να τον αποκτήσετε απλά με ένα κλικ.
Μαζική εκτύπωση όλων των συνημμένων σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου
- Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, στο κύριο παράθυρο, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή VBA.
- Στο επόμενο παράθυρο "Microsoft Visual Basic for Applications", ανοίξτε μια κενή μονάδα.
- Στη συνέχεια, αντιγράψτε τους ακόλουθους κωδικούς VBA σε μια τέτοια ενότητα.
Sub BatchPrintAllAttachmentsinMultipleEmails()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objTempFolder As Object
Dim objTempFolderItem As Object
Dim strFilePath As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
'Create a new temp folder
MkDir (strTempFolder)
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objItem In objSelection
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objAttachments = objMail.attachments
'Save all the attachments in the temp folder
For Each objAttachment In objAttachments
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
'Print all the files in the temp folder
Set objShell = CreateObject("Shell.Application")
Set objTempFolder = objShell.NameSpace(0)
Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
objTempFolderItem.InvokeVerbEx ("print")
Next objAttachment
End If
Next
End Sub
- Στη συνέχεια, μπορείτε να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Μετά από αυτό, θα πρέπει να ορίσετε το επίπεδο ασφάλειας μακροεντολών του Outlook σε χαμηλό.
- Τελικά μπορείτε να δοκιμάσετε.
- Αρχικά, στη λίστα αλληλογραφίας, επιλέξτε πολλά email των οποίων τα συνημμένα θέλετε να εκτυπώσετε.
- Στη συνέχεια, κάντε κλικ στο νέο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Στη συνέχεια, όλα τα συνημμένα στα επιλεγμένα email θα εκτυπωθούν.
Προσοχή στους ιούς που κρύβονται σε μακροεντολές
Εάν έχετε ρυθμίσει το επίπεδο ασφάλειας μακροεντολών του Outlook σε χαμηλό, θα πρέπει να καταβάλετε πολλές προσπάθειες για να αποκλείσετε πιθανούς ιούς σε κακόβουλες μακροεντολές. Είναι επειδή οι ιοί μπορούν να καταστρέψουν τα δεδομένα του Outlook με μία κίνηση. Μόλις τα δεδομένα του Outlook είναι κατεστραμμένα, θα κάνετε ό,τι καλύτερο μπορείτε ανακτήστε το Outlook δεδομένα με κάθε τρόπο, όπως η επανάληψη σε ένα ισχυρό εργαλείο όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com