Zum Hauptinhalt springen

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

Author: Kelly Last Modified: 2025-05-28

Wie Sie wissen, wird beim Klicken auf Datei > Drucken in Microsoft Outlook nur der E-Mail-Inhalt wie Kopfzeile und Text gedruckt, aber nicht die Anhänge. Hier zeigen wir Ihnen, wie Sie alle Anhänge in einer ausgewählten E-Mail in Microsoft Outlook problemlos drucken können.


Alle Anhänge in einer E-Mail nacheinander drucken

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

1. Wählen Sie die E-Mail aus, deren Anhänge Sie später drucken werden.

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

steps of printing all attachments in one email message one by one

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

steps of printing all attachments in one email message one by one
Hinweis: Die Anhangswerkzeuge werden erst aktiviert, wenn Sie auf Anhänge in E-Mails klicken.

4. Ein Dialogfeld Öffnen des E-Mail-Anhangs erscheint, und bitte klicken Sie auf die Schaltfläche Öffnen .

steps of printing all attachments in one email message one by one

Bitte beachten Sie, dass dieser Schritt den ausgewählten Anhang öffnet und diesen gleichzeitig druckt.

Um andere Anhänge in dieser E-Mail zu drucken, wiederholen Sie bitte Schritt 2 bis Schritt 4.

Schnelles Speichern/Exportieren aller Anhänge aus mehreren E-Mails in Outlook

Normalerweise können wir Anhänge aus einer E-Mail speichern, indem wir die Anhangswerkzeuge aktivieren und die Funktion Alle Anlagen speichern in Outlook verwenden. Aber was ist, wenn Sie Anhänge aus mehreren E-Mails oder aus dem gesamten Posteingang in Outlook speichern möchten? Probieren Sie die Funktion Alle (Anlagen) speichern von Kutools für Outlook aus.

save attachments in multiple emails kto9

Stapelweise alle Anhänge in einer E-Mail drucken

Wenn es viele Anhänge in einer E-Mail gibt, kann es zeitaufwendig sein, diese einzeln zu drucken. Und die folgende Methode führt Sie durch das Stapeldrucken aller Anhänge in einer ausgewählten E-Mail.

1. Wählen Sie die E-Mail aus, deren Anhänge Sie später drucken werden.

2. Klicken Sie in Outlook 2010 oder neueren Versionen bitte auf Datei > Drucken > Druckoptionen. Siehe folgenden Screenshot:

steps of batch printing all attachments in one email message

3. Aktivieren Sie im Druckdialogfeld die Option Anhänge drucken. Anhänge werden nur auf dem Standarddrucker gedruckt.

steps of batch printing all attachments in one email message

4. Klicken Sie auf die Schaltfläche Drucken.

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

steps of batch printing all attachments in one email message

Jetzt werden alle Anhänge in dieser ausgewählten E-Mail auf einmal gedruckt.


Stapelweise alle Anhänge und Bilder in mehreren ausgewählten E-Mails drucken

Um alle Anhänge in mehreren E-Mails sowie alle Bilder im Nachrichtentext in Outlook zu drucken, befolgen Sie bitte die folgenden Schritte, um einen VBA-Code anzuwenden.

1. Halten Sie in der E-Mail-Liste die Strg- oder Umschalttaste gedrückt, um mehrere E-Mails auszuwählen, deren Anhänge Sie drucken möchten.

2. Drücken Sie gleichzeitig die Tasten 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 Runtime, wie unten gezeigt. Wenn Sie fertig sind, klicken Sie auf OK.

steps of batch printing all attachments and pictures in multiple selected emails

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

VBA: Alle Anhänge in mehreren Outlook-E-Mails drucken

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. Nun sehen Sie, dass alle Anhänge in den ausgewählten E-Mails und die Bilder im Nachrichtentext gedruckt werden.

Hinweis:

  • Jedes Bild bringt ein Popup-Dialogfeld zur Bestätigung des Drucks hervor. Andere Dateitypen werden direkt gedruckt.
  • Wenn sich Bilder in einer E-Mail-Signatur befinden, erscheinen ebenfalls Popup-Dialogfelder.
  • Wenn Sie die Fehlermeldung Die Makros in diesem Projekt sind deaktiviert erhalten, überprüfen Sie bitte dieses Tutorial: Wie aktiviert und deaktiviert man Makros in Outlook?

Stapelweise alle Anhänge in mehreren ausgewählten E-Mails drucken, außer Bilder im Text

Um nur Anhänge in mehreren E-Mails zu drucken, aber nicht die Bilder im Nachrichtentext in Outlook, befolgen Sie bitte die folgenden Schritte, um einen VBA-Code anzuwenden.

1. Halten Sie in der E-Mail-Liste die Strg- oder Umschalttaste gedrückt, um mehrere E-Mails auszuwählen, deren Anhänge Sie drucken möchten.

2. Drücken Sie gleichzeitig die Tasten 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 Runtime, wie unten gezeigt. Wenn Sie fertig sind, klicken Sie auf OK.

the steps of batch printing all attachments in multiple selected emails except pictures in the body

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

VBA: Alle Anhänge in mehreren Outlook-E-Mails drucken

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. Nun sehen Sie, dass alle Anhänge in den ausgewählten E-Mails gedruckt werden.

Hinweis:

  • Jedes angehängte Bild bringt ein Popup-Dialogfeld zur Bestätigung des Drucks hervor. Andere Dateitypen werden direkt gedruckt.
  • Bilder im Nachrichtentext werden nicht gedruckt.
  • Wenn Sie die Fehlermeldung Die Makros in diesem Projekt sind deaktiviert erhalten, überprüfen Sie bitte dieses Tutorial: Wie aktiviert und deaktiviert man Makros in Outlook?

Demo: Einen oder alle Anhänge in einer Outlook-E-Mail drucken

 

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

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

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...

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

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2