Outlook: So drucken Sie eine E-Mail ohne Bilder

Beim normalen Drucken einer E-Mail in Outlook werden standardmäßig auch die enthaltenen Bilder mitgedruckt. Manchmal möchten Sie jedoch nur den reinen Text – ohne Bilder – ausdrucken. Leider bietet Outlook dafür keine integrierte Funktion. In diesem Tutorial erhalten Sie einen VBA-Code, der Ihre E-Mail sofort über Word druckt – komplett ohne Bilder. Sollte Ihr Computer über keinen Drucker verfügen, exportiert der VBA-Code die E-Mail stattdessen zunächst als PDF ohne Bilder, sodass Sie diese später problemlos drucken können, sobald ein Drucker zur Verfügung steht.

VBA zum Drucken einer E-Mail ohne Bilder

---

VBA zum Drucken einer E-Mail ohne Bilder

1. Wählen Sie eine E-Mail aus, deren Text Sie drucken möchten, und drücken Sie anschließend Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, um ein neues leeres Modul zu erstellen, und fügen Sie den folgenden Code in das Modul ein.

VBA: E-Mail ohne Bilder exportieren

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. Klicken Sie auf Extras > Verweise, um das Dialogfeld Verweise – Projekt 1 zu öffnen, und aktivieren Sie das Kontrollkästchen Microsoft Word 16,0 Object Library. Klicken Sie anschließend auf OK.

 

4-1. Platzieren Sie den Cursor innerhalb des Codes und drücken Sie F5 oder klicken Sie auf die Ausführen-Schaltfläche, um den Code auszuführen. Die E-Mail ohne Bilder wird dann sofort über Word gedruckt. Falls Ihr Computer jedoch keinen Drucker hat, befolgen Sie bitte Schritt 4.

4-2. Wenn Ihr Computer keinen Drucker hat, erscheint nach dem Drücken der F5-Taste oder dem Klicken auf die Ausführen-Schaltfläche ein Dialogfeld, in dem Sie einen Ordner zum Speichern der PDF-Dateien auswählen und diese benennen können. Klicken Sie auf Speichern.

 

Die E-Mail wurde nun als PDF ohne Bilder exportiert. Öffnen Sie die PDF-Datei und klicken Sie mit der rechten Maustaste, um Drucken auszuwählen und die E-Mail zu drucken.

Tipp: Möchten Sie mehrere ausgewählte E-Mails mit Bildern, Kopfzeilen, Nachrichtentexten, CCs usw. als PDF (oder Word-, CSV-, Excel-, TXT- bzw. HTML-Datei) speichern, hilft Ihnen die Massenspeichern-Funktion von Kutools für Outlook – und das in nur drei einfachen Schritten.

1. Wählen Sie Ihre E-Mails aus.

2. Klicken Sie auf Kutools > Massenspeichern.

3. Wählen Sie einen Speicherort, aktivieren Sie den oder die gewünschten Dateitypen, und klicken Sie auf „OK“.