Outlook: So drucken Sie E-Mails ohne Bilder

Beim Drucken einer E-Mail in Outlook werden im Allgemeinen auch die Bilder gedruckt. Aber manchmal möchten Sie nur die Texte ohne die Bilder drucken, aber in Outlook gibt es keine integrierte Funktion, die diesen Job unterstützen kann. Dieses Tutorial enthält einen VBA-Code, der die bildfreie E-Mail sofort über Word druckt. Oder wenn Ihr Computer keinen Drucker hat, exportiert der VBA-Code die E-Mail zuerst als PDF ohne Bilder, und dann können Sie das PDF drucken, sobald der Drucker verfügbar ist.

VBA zum Drucken von E-Mails ohne Bilder

Office-Registerkarte – Ermöglichen Sie das Bearbeiten und Durchsuchen mit Registerkarten in Microsoft Office und machen Sie die Arbeit zum Kinderspiel

Lesen Sie mehr...Download ...

Kutools für Outlook – Steigern Sie Outlook mit über 100 erweiterten Funktionen für überragende Effizienz

Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...

Verbessern Sie Ihr Outlook 2021 – 2010 oder Outlook 365 mit diesen erweiterten Funktionen. Genießen Sie eine umfassende 60-tägige kostenlose Testversion und verbessern Sie Ihr E-Mail-Erlebnis!

Lesen Sie mehr...Download ...

VBA zum Drucken von E-Mails ohne Bilder

1. Wählen Sie eine E-Mail aus, bei der Sie nur den Text drucken möchten, und drücken Sie dann Andere + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul Um ein neues leeres Modul zu erstellen, kopieren Sie den folgenden Code und fügen Sie ihn 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