Wie drucke ich eine E-Mail mit Anhang in Microsoft Outlook per VBA-Befehl?

Um eine E-Mail mit Anhang in Microsoft Outlook per VBA auszudrucken, kannst du folgenden VBA-Code verwenden:

```vba
Sub PrintEmailWithAttachments()
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim tempFolder As String
Dim tempFilePath As String

' Set the mail item (hier musst du die entsprechende E-Mail auswählen)
Set objMail = Application.ActiveExplorer.Selection.Item(1)

' Temporäres Verzeichnis für Anhänge
tempFolder = Environ("TEMP") & "\OutlookAttachments\"
If Dir(tempFolder, vbDirectory) = "" Then
MkDir tempFolder
End If

' Anhänge speichern und drucken
For Each objAttachment In objMail.Attachments
tempFilePath = tempFolder & objAttachment.FileName
objAttachment.SaveAsFile tempFilePath
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_PrintTo " & tempFilePath & " " & Application.Printer, vbHide
Next objAttachment

' E-Mail drucken
objMail.PrintOut
End Sub
```

Dieser Code speichert die Anhänge der ausgewählten E-Mail in einem temporären Verzeichnis und druckt sie anschließend aus. Danach wird die E-Mail selbst gedruckt. Beachte, dass der Code davon ausgeht, dass die E-Mail im aktiven Explorer-Fenster ausgewählt ist.

Weitere Informationen zu VBA in Outlook findest du in der offiziellen Dokumentation von Microsoft: [Microsoft Outlook VBA](https://docs.microsoft.com/de-de/office/vba/api/overview/outlook).