Wie druckt man nur den Anhang bzw. die Anhänge aus einer oder mehreren ausgewählten E-Mails in Outlook?

In Outlook können Sie E-Mails drucken – aber haben Sie schon einmal ausschließlich die Anhänge einer einzelnen oder mehrerer ausgewählter E-Mails gedruckt? In diesem Artikel zeige ich Ihnen praktische Tricks, um genau das zu erreichen.

Nur Anhang/Anhänge aus einer E-Mail mit Schnelldruck drucken

Nur Anhang/Anhänge aus ausgewählten E-Mails mit VBA drucken

---

Nur Anhang/Anhänge aus einer E-Mail mit Schnelldruck drucken

Um ausschließlich die Anhänge – ohne den E-Mail-Text – zu drucken, nutzen Sie einfach die Funktion „Schnelldruck“.

1. Klicken Sie im Nachrichtenfenster mit der rechten Maustaste auf den gewünschten Anhang und wählen Sie im Kontextmenü „Schnelldruck“.

2. Klicken Sie anschließend auf „Speichern“ > „Speichern“, um die Anhangdatei an einem gewünschten Speicherort abzulegen.

3. Navigieren Sie nun zu dem Speicherort, an dem sich die Anhangdatei befindet, öffnen Sie sie und drucken Sie sie wie gewohnt.

---

Nur Anhang/Anhänge aus ausgewählten E-Mails mit VBA drucken

Möchten Sie die Anhänge mehrerer ausgewählter E-Mails drucken, können Sie hierfür einen VBA-Code verwenden.

1. Wählen Sie die E-Mails aus, deren Anhänge Sie drucken möchten, und drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Doppelklicken Sie im Bereich „Projekt1“ auf „ThisOutlookSession“ und fügen Sie den folgenden Code in das Skript ein.

VBA: Anhänge aus ausgewählten E-Mails drucken

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. Klicken Sie anschließend auf „Extras“ > „Verweise“ und aktivieren Sie im Dialogfeld „Verweise“ das Kontrollkästchen „Microsoft Scripting Runtime“.
  

4. Klicken Sie auf „OK“ und drücken Sie anschließend die Taste „F5“, um alle Anhänge der ausgewählten E-Mails gleichzeitig zu drucken.

Hinweis: Handelt es sich bei dem Anhang um ein Bild, öffnet sich zunächst das Dialogfeld „Bilder drucken“. Klicken Sie dort auf „Drucken“, um zum Dialogfeld „Gedruckte Ausgabe speichern unter“ zu gelangen.