KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie druckt man alle Anhänge einer oder mehrerer E-Mails in Outlook?

AutorKelly Änderungsdatum

Wie Ihnen bekannt ist, wird beim Klicken auf Datei > Drucken in Microsoft Outlook nur der Inhalt der E-Mail – etwa Kopfzeile und Nachrichtentext – gedruckt, nicht jedoch die Anhänge. Im Folgenden zeigen wir Ihnen, wie Sie alle Anhänge einer ausgewählten E-Mail in Microsoft Outlook problemlos drucken können.

Drucken Sie alle Anhänge einer E-Mail-Nachricht nacheinander

Microsoft Outlook bietet die Funktion Schnelldruck, mit der Sie Anhänge einer E-Mail-Nachricht nacheinander drucken können.

1. Wählen Sie die E-Mail-Nachricht aus, deren Anhänge Sie später drucken möchten.

2. Klicken Sie in dieser E-Mail auf einen Anhang.

Schritte zum nacheinander Drucken aller Anhänge einer E-Mail-Nachricht

3. Klicken Sie in der Gruppe Aktionen auf der Registerkarte Anhänge auf die Schaltfläche Schnelldruck.

Schritte zum nacheinander Drucken aller Anhänge einer E-Mail-Nachricht
Hinweis: Die Anhangswerkzeugewird erst aktiviert, wenn Sie auf Anhänge in E-Mails klicken.

4. Es erscheint ein Dialogfeld zum Öffnen von E-Mail-Anhängen – bitte klicken Sie auf die Schaltfläche Öffnen.

Schritte zum nacheinander Drucken aller Anhänge einer E-Mail-Nachricht

Bitte beachten Sie: Dieser Schritt öffnet den ausgewählten Anhang und druckt ihn gleichzeitig.

Um weitere Anhänge dieser E-Mail zu drucken, wiederholen Sie bitte die Schritte 2 bis 4.

Speichern/Exportieren Sie schnell alle Anhänge aus mehreren E-Mails in Outlook

Normalerweise können wir Anhänge aus einer einzelnen E-Mail speichern, indem wir die Anhangswerkzeuge aktivieren und in Outlook die Funktion Alle Anhänge speichern nutzen. Doch was, wenn Sie Anhänge aus mehreren E-Mails oder sogar aus dem gesamten Postfach in Outlook sichern möchten? Dann probieren Sie doch einfach die Funktion Alle speichern (Anhänge) von Kutools für Outlook aus!

Nutzen Sie jetzt die kostenlose Version von Kutools für Outlook, die 100+-Funktionen umfasst, und 70+-Funktionen sind lebenslang kostenlos!

Anhänge aus mehreren E-Mails speichern kto9

Drucken Sie alle Anhänge einer E-Mail-Nachricht im Batch

Wenn eine E-Mail-Nachricht viele Anhänge enthält, ist das manuelle Drucken zeitaufwändig. Mit der folgenden Methode drucken Sie mithilfe des Stapeldrucks alle Anhänge einer ausgewählten E-Mail-Nachricht ganz bequem.

1. Wählen Sie die E-Mail-Nachricht aus, deren Anhänge Sie später drucken möchten.

2. Klicken Sie in Outlook 2010 oder höheren Versionen auf Datei > Drucken > Druckoptionen. Siehe folgender Screenshot:

Schritte zum Stapeldruck aller Anhänge einer E-Mail-Nachricht

3. Aktivieren Sie im Druckdialogfeld die Option Drucken Anhang. Anhänge werden nur auf dem Standarddrucker gedruckt im Abschnitt Druckoptionen.

Schritte zum Stapeldruck aller Anhänge einer E-Mail-Nachricht

4. Klicken Sie auf die Schaltfläche Drucken.

5. Klicken Sie im erscheinenden Dialogfeld „E-Mail-Anhang öffnen“ auf die Schaltfläche Öffnen, um fortzufahren. ()Hinweis: Dieses Dialogfeld erscheint für jeden Anhang einzeln.)

Schritte zum Stapeldruck aller Anhänge einer E-Mail-Nachricht

Jetzt werden alle Anhänge der ausgewählten E-Mail-Nachricht auf einen Schlag gedruckt.

Drucken Sie alle Anhänge und Bilder in mehreren ausgewählten E-Mails im Batch

Um alle Anhänge mehrerer E-Mails sowie sämtliche Bilder im Nachrichtentext in Outlook zu drucken, verwenden Sie bitte den folgenden VBA-Code.

1. Halten Sie in der E-Mail-Liste die Strg- oder Umschalttaste gedrückt, um mehrere E-Mails mit den gewünschten Anhängen für den Druck auszuwählen.

2. Drücken Sie gleichzeitig Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

3. Klicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf Extras > Verweise. Aktivieren Sie anschließend die Option Microsoft Scripting Runtime, wie unten dargestellt, und klicken Sie danach auf OK.

Schritte zum Stapeldruck aller Anhänge und Bilder in mehreren ausgewählten E-Mails

4. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code anschließend in das neue Modulfenster ein.

VBA: Drucken Sie alle Anhänge mehrerer Outlook-E-Mails

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. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um diesen VBA-Code auszuführen. Anschließend werden alle Anhänge der ausgewählten E-Mails sowie die Bilder im Nachrichtentext gedruckt.

Hinweis:

  • Jedes Bild öffnet ein Popup-Dialogfeld, um Ihre Druckbestätigung anzufordern – andere Dateitypen hingegen werden direkt gedruckt.
  • Befinden sich Bilder in einer E-Mail-Signatur, lösen diese ebenfalls Popup-Dialogfelder aus.
  • Wenn die Fehlermeldung Die Makros in diesem Projekt sind deaktiviertangezeigt wird, lesen Sie bitte dieses Tutorial:So aktivieren und deaktivieren Sie Makros in Outlook?

Drucken Sie alle Anhänge in mehreren ausgewählten E-Mails im Batch – ausgenommen Bilder im Nachrichtentext

Um ausschließlich die Anhänge mehrerer E-Mails – nicht jedoch die Bilder im Nachrichtentext – in Outlook zu drucken, verwenden Sie bitte den folgenden VBA-Code.

1. Halten Sie im E-Mail-Liste die Taste Strgoder Umschalttastegedrückt, um mehrere E-Mails auszuwählen, deren Anhänge Sie drucken möchten.

2. Drücken Sie gleichzeitig Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Extras>Verweise. Aktivieren Sie dann die Option Microsoft Scripting Runtimewie unten dargestellt. Klicken Sie nach Abschluss auf OK.

Die Schritte zum Stapeldruck aller Anhänge in mehreren ausgewählten E-Mails mit Ausnahme der Bilder im Nachrichtentext

4. Klicken Sie auf Einfügen>Modul, und fügen Sie anschließend den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Drucken Sie alle Anhänge mehrerer Outlook-E-Mails

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. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um diesen VBA-Code auszuführen. Anschließend werden alle Anhänge der ausgewählten E-Mails gedruckt.

Hinweis:

  • Jedes angehängte Bild öffnet ein Popup-Dialogfeld, um Ihre Druckbestätigung anzufordern – andere Dateitypen hingegen werden direkt gedruckt.
  • Bilder im Nachrichtentext werden nicht mitgedruckt.
  • Wenn die Fehlermeldung Die Makros in diesem Projekt sind deaktiviertangezeigt wird, lesen Sie bitte dieses Tutorial:So aktivieren und deaktivieren Sie Makros in Outlook?

Demo: Drucken Sie einen oder alle Anhänge einer Outlook-E-Mail

 

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1kutools for outlook features2

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

  • ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
  • 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
  • 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint