Πώς να εκτυπώσετε όλα τα συνημμένα σε ένα / πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook;
Όπως γνωρίζετε, θα εκτυπώνει το περιεχόμενο email, όπως κεφαλίδα, σώμα όταν κάνετε κλικ στο Αρχεία > στο Microsoft Outlook, αλλά όχι να εκτυπώσετε τα συνημμένα. Εδώ θα σας δείξουμε πώς να εκτυπώνετε άνετα όλα τα συνημμένα σε ένα επιλεγμένο email στο Microsoft Outlook.
- Εκτυπώστε όλα τα συνημμένα σε ένα μήνυμα email ένα προς ένα
- Μαζική εκτύπωση όλων των συνημμένων σε ένα μήνυμα email
- Μαζική εκτύπωση όλων των συνημμένων και των εικόνων σε πολλαπλά επιλεγμένα email
- Μαζική εκτύπωση όλων των συνημμένων σε πολλά επιλεγμένα email εκτός από τις εικόνες στο σώμα
Εκτυπώστε όλα τα συνημμένα σε ένα μήνυμα email ένα προς ένα
Το Microsoft Outlook μας παρέχει Γρήγορη εκτύπωση λειτουργία, η οποία μπορεί να σας βοηθήσει να εκτυπώσετε συνημμένα σε ένα μήνυμα email ένα προς ένα.
1. Επιλέξτε το μήνυμα email του οποίου τα συνημμένα θα εκτυπώσετε αργότερα.
2. Κάντε κλικ σε ένα συνημμένο σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου.
3. Κάντε κλικ στο Γρήγορη εκτύπωση στο κουμπί Δράσεις ομάδα για το συνημμένα Tab.
Σημείωση: το Εργαλεία συνημμένου δεν θα ενεργοποιηθεί έως ότου κάνετε κλικ σε συνημμένα σε email.
4. Εμφανίζεται ένα παράθυρο διαλόγου ανοίγματος συνημμένου αλληλογραφίας και κάντε κλικ στο Ανοικτό κουμπί.
Λάβετε υπόψη ότι αυτό το βήμα θα ανοίξει το επιλεγμένο συνημμένο και θα εκτυπώσει αυτό το επιλεγμένο συνημμένο ταυτόχρονα.
Για να εκτυπώσετε άλλα συνημμένα σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου, επαναλάβετε τα βήματα 2 έως βήμα 4.
Γρήγορη αποθήκευση / εξαγωγή όλων των συνημμένων από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook
Κανονικά μπορούμε να αποθηκεύσουμε συνημμένα από ένα email με την ενεργοποίηση του Εργαλεία συνημμένου και την εφαρμογή του Αποθήκευση όλων των συνημμένων δυνατότητα στο Outlook. Τι γίνεται όμως με την αποθήκευση συνημμένων από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου ή από ολόκληρο το φάκελο αλληλογραφίας στο Outlook; Δοκιμάστε το Kutools για Outlook Αποθήκευση όλων (Συνημμένα) λειτουργία.
Μαζική εκτύπωση όλων των συνημμένων σε ένα μήνυμα email
Εάν υπάρχουν πολλά συνημμένα σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, θα είναι χρονοβόρο να τα εκτυπώσετε ένα προς ένα. Και η ακόλουθη μέθοδος θα σας καθοδηγήσει στη μαζική εκτύπωση όλων των συνημμένων σε ένα επιλεγμένο μήνυμα email εύκολα.
1. Επιλέξτε το μήνυμα email του οποίου τα συνημμένα θα εκτυπώσετε αργότερα.
2. Στο Outlook 2010 ή νεότερες εκδόσεις, κάντε κλικ στο Αρχεία > > Επιλογές εκτύπωσης. Δείτε το παρακάτω στιγμιότυπο οθόνης:
3. Στο πλαίσιο διαλόγου Εκτύπωση, επιλέξτε το Εκτύπωση συνημμένων αρχείων. Τα συνημμένα θα εκτυπωθούν μόνο στον προεπιλεγμένο εκτυπωτή επιλογή του Επιλογές εκτύπωσης τμήμα.
4. Κάντε κλικ στο κουμπί.
5. Στο παράθυρο διαλόγου Άνοιγμα συνημμένου αλληλογραφίας, κάντε κλικ στο Ανοικτό κουμπί για να προχωρήσετε. (Note: Αυτό το παράθυρο διαλόγου θα εμφανιστεί ξεχωριστά για κάθε συνημμένο.)
Τώρα όλα τα συνημμένα σε αυτό το επιλεγμένο μήνυμα email θα εκτυπωθούν ταυτόχρονα.
Μαζική εκτύπωση όλων των συνημμένων και των εικόνων σε πολλαπλά επιλεγμένα email
Για να εκτυπώσετε όλα τα συνημμένα σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου, καθώς και όλες τις εικόνες στο σώμα του μηνύματος στο Outlook, ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε έναν κώδικα VBA.
1. Στη λίστα αλληλογραφίας, κρατήστε πατημένο Ctrl or αλλαγή πλήκτρα για να επιλέξετε πολλά email των οποίων τα συνημμένα θα εκτυπώσετε.
2. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
3. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Εργαλεία > αναφορές. Και μετά ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft επιλογή όπως φαίνεται παρακάτω. Μόλις τελειώσετε, κάντε κλικ OK.
4. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο λειτουργικής μονάδας.
VBA: Εκτυπώστε όλα τα συνημμένα σε πολλά email του Outlook
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/03
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
5. Τύπος F5 ή κάντε κλικ στο τρέξιμο κουμπί για να εκτελέσετε αυτόν τον κώδικα VBA. Τώρα θα δείτε ότι όλα τα συνημμένα στα επιλεγμένα email και οι εικόνες στο σώμα του μηνύματος εκτυπώνονται.
Σημείωση:
- Κάθε εικόνα θα εμφανίσει ένα αναδυόμενο παράθυρο διαλόγου για να σας ζητήσει την επιβεβαίωση της εκτύπωσης. Ενώ άλλοι τύποι αρχείων θα εκτυπωθούν απευθείας.
- Εάν υπάρχουν εικόνες σε μια υπογραφή email, θα εμφανιστούν επίσης αναδυόμενα παράθυρα διαλόγου.
- Αν πάρεις Οι μακροεντολές σε αυτό το έργο είναι απενεργοποιημένες σφάλμα, ελέγξτε αυτό το σεμινάριο: Πώς να ενεργοποιήσετε και να απενεργοποιήσετε τις μακροεντολές στο Outlook;
Μαζική εκτύπωση όλων των συνημμένων σε πολλά επιλεγμένα email εκτός από τις εικόνες στο σώμα
Για να εκτυπώσετε μόνο συνημμένα σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου αλλά τις εικόνες στο σώμα του μηνύματος στο Outlook, ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε έναν κώδικα VBA.
1. Στη λίστα αλληλογραφίας, κρατήστε πατημένο Ctrl or αλλαγή πλήκτρα για να επιλέξετε πολλά email των οποίων τα συνημμένα θα εκτυπώσετε.
2. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
3. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Εργαλεία > αναφορές. Και μετά ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft επιλογή όπως φαίνεται παρακάτω. Μόλις τελειώσετε, κάντε κλικ OK.
4. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο λειτουργικής μονάδας.
VBA: Εκτυπώστε όλα τα συνημμένα σε πολλά email του Outlook
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/05
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Debug.Print xFilePath
End If
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
5. Τύπος F5 ή κάντε κλικ στο τρέξιμο κουμπί για να εκτελέσετε αυτόν τον κώδικα VBA. Τώρα θα δείτε ότι όλα τα συνημμένα στα επιλεγμένα email εκτυπώνονται.
Σημείωση:
- Κάθε συνημμένη εικόνα θα εμφανίσει ένα αναδυόμενο παράθυρο διαλόγου για να σας ζητήσει την επιβεβαίωση της εκτύπωσης. Ενώ άλλοι τύποι αρχείων θα εκτυπωθούν απευθείας.
- Οι εικόνες στο σώμα του μηνύματος δεν θα εκτυπωθούν.
- Αν πάρεις Οι μακροεντολές σε αυτό το έργο είναι απενεργοποιημένες σφάλμα, ελέγξτε αυτό το σεμινάριο: Πώς να ενεργοποιήσετε και να απενεργοποιήσετε τις μακροεντολές στο Outlook;
Επίδειξη: εκτυπώστε ένα ή όλα τα συνημμένα σε ένα email του Outlook
Άκρο: Σέ αυτό τό βίντεο, Kutools καρτέλα προστίθεται από Kutools για το Outlook. Εάν τη χρειάζεστε, κάντε κλικ εδώ να έχετε δωρεάν δοκιμή 60 ημερών χωρίς περιορισμό!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.