Το Microsoft Outlook μας παρέχει Γρήγορη εκτύπωση λειτουργία, η οποία μπορεί να σας βοηθήσει να εκτυπώσετε συνημμένα σε ένα μήνυμα email ένα προς ένα.

1. Επιλέξτε το μήνυμα email του οποίου τα συνημμένα θα εκτυπώσετε αργότερα.

2. Κάντε κλικ σε ένα συνημμένο σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου.

3. Κάντε κλικ στο Γρήγορη εκτύπωση στο κουμπί δράσεις ομάδα για το συνημμένα Tab.

Σημείωση: το Εργαλεία συνημμένου δεν θα ενεργοποιηθεί έως ότου κάνετε κλικ σε συνημμένα σε email.

4. Εμφανίζεται ένα παράθυρο διαλόγου ανοίγματος συνημμένου αλληλογραφίας και κάντε κλικ στο Ανοικτό κουμπί.

Λάβετε υπόψη ότι αυτό το βήμα θα ανοίξει το επιλεγμένο συνημμένο και θα εκτυπώσει αυτό το επιλεγμένο συνημμένο ταυτόχρονα.

Για να εκτυπώσετε άλλα συνημμένα σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου, επαναλάβετε τα βήματα 2 έως βήμα 4.

Γρήγορη αποθήκευση / εξαγωγή όλων των συνημμένων από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook

Κανονικά μπορούμε να αποθηκεύσουμε συνημμένα από ένα email με την ενεργοποίηση του Εργαλεία συνημμένου και την εφαρμογή του Αποθήκευση όλων των συνημμένων δυνατότητα στο Outlook. Τι γίνεται όμως με την αποθήκευση συνημμένων από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου ή από ολόκληρο το φάκελο αλληλογραφίας στο Outlook; Δοκιμάστε το Kutools για Outlook Αποθήκευση όλων (Συνημμένα) λειτουργία.

Εάν υπάρχουν πολλά συνημμένα σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, θα είναι χρονοβόρο να τα εκτυπώσετε ένα προς ένα. Και η ακόλουθη μέθοδος θα σας καθοδηγήσει στη μαζική εκτύπωση όλων των συνημμένων σε ένα επιλεγμένο μήνυμα email εύκολα.

1. Επιλέξτε το μήνυμα email του οποίου τα συνημμένα θα εκτυπώσετε αργότερα.

2. Στο Outlook 2010 ή νεότερες εκδόσεις, κάντε κλικ στο φιλέτο > > Επιλογές εκτύπωσης. Δείτε το παρακάτω στιγμιότυπο οθόνης:

3. Στο πλαίσιο διαλόγου Εκτύπωση, επιλέξτε το Εκτύπωση συνημμένων αρχείων. Τα συνημμένα θα εκτυπωθούν μόνο στον προεπιλεγμένο εκτυπωτή επιλογή του Επιλογές εκτύπωσης τμήμα.

4. Κάντε κλικ στο κουμπί.

5. Στο παράθυρο διαλόγου Άνοιγμα συνημμένου αλληλογραφίας, κάντε κλικ στο Ανοικτό κουμπί για να προχωρήσετε. (Note: Αυτό το παράθυρο διαλόγου θα εμφανιστεί ξεχωριστά για κάθε συνημμένο.)

Τώρα όλα τα συνημμένα σε αυτό το επιλεγμένο μήνυμα 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;

Για να εκτυπώσετε μόνο συνημμένα σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου αλλά τις εικόνες στο σώμα του μηνύματος στο 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;