Wie druckt man alle Anhänge in einer oder mehreren E-Mails in Outlook?
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
- Stapelweise alle Anhänge in einer E-Mail drucken
- Stapelweise alle Anhänge und Bilder in mehreren ausgewählten E-Mails drucken
- Stapelweise alle Anhänge in mehreren ausgewählten E-Mails drucken, außer Bilder im Text
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.
3. Klicken Sie auf die Schaltfläche Schnelldruck in der Gruppe Aktionen auf der Registerkarte Anhänge.
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 .
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.
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:
3. Aktivieren Sie im Druckdialogfeld die Option Anhänge drucken. Anhänge werden nur auf dem Standarddrucker gedruckt.
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.)
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.
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 Sub5. 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.
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 Function5. 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 das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
