Outlook: hoe een e-mail zonder afbeeldingen af te drukken

Bij het standaard afdrukken van een e-mail in Outlook worden afbeeldingen doorgaans automatisch meegeprint. Maar soms wilt u alleen de tekst afdrukken, zonder afbeeldingen. Helaas biedt Outlook daarvoor geen ingebouwde optie. Deze handleiding bevat een VBA-code waarmee u de e-mail direct via Word kunt afdrukken – zonder afbeeldingen. Als uw computer geen printer heeft, exporteert de VBA-code de e-mail eerst als een PDF zonder afbeeldingen, zodat u deze later kunt afdrukken zodra een printer beschikbaar is.

VBA om een e-mail zonder afbeeldingen af te drukken

---

VBA om een e-mail zonder afbeeldingen af te drukken

1. Selecteer een e-mail waarvan u alleen de tekst wilt afdrukken en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module om een nieuwe lege module aan te maken. Kopieer en plak vervolgens de onderstaande code in de module.

VBA: e-mail exporteren zonder afbeeldingen

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. Klik op Extra > Verwijzingen om het dialoogvenster Verwijzingen – Project 1 te openen en vink het selectievakje Microsoft Word 16,0 Object Library aan. Klik op OK.

 

4-1. Plaats de cursor binnen de code en druk op F5 of klik op de knop Uitvoeren om de code uit te voeren. De e-mail zonder afbeeldingen wordt dan direct via Word afgedrukt. Heeft uw computer geen printer, volg dan stap 4.

4-2. Als uw computer geen printer heeft, verschijnt er na het indrukken van F5 of na het klikken op de knop Uitvoeren een dialoogvenster waarin u een map kiest om de PDF-bestanden in op te slaan en een naam geeft aan de PDF-bestanden. Klik op Opslaan.

 

De e-mail is nu geëxporteerd als een PDF zonder afbeeldingen. Open het PDF-bestand en klik met de rechtermuisknop om Afdrukken te selecteren en de e-mail af te drukken.

Tip: Wilt u meerdere geselecteerde e-mails in één keer opslaan als PDF (of Word, CSV, Excel, TXT of HTML-bestand), compleet met afbeeldingen, headers, berichtteksten en cc’s? Dan helpt de Bulkopslag-functie van Kutools voor Outlook u daarbij – in slechts drie stappen.

1. Selecteer e-mails.

2. Klik op Kutools > Bulkopslag.

3. Kies een locatie, vink het gewenste bestandstype (of de bestandstypen) aan en klik op OK.