Outlook: Hoe een e-mail zonder afbeeldingen afdrukken
Normaal gesproken wordt bij het afdrukken van een e-mail in Outlook ook de afbeeldingen mee afgedrukt. Maar soms wilt u alleen de tekst afdrukken zonder de afbeeldingen. Helaas heeft Outlook geen ingebouwde functie die dit ondersteunt. Deze handleiding biedt een VBA-code waarmee u direct een e-mail zonder afbeeldingen kunt afdrukken via Word. Of als uw computer geen printer heeft, zal de VBA-code de e-mail eerst exporteren als een PDF zonder afbeeldingen, zodat u de PDF later kunt afdrukken wanneer de printer beschikbaar is.
VBA om e-mail zonder afbeeldingen af te drukken
VBA om e-mail zonder afbeeldingen af te drukken
1. Selecteer een e-mail die u alleen als tekst wilt afdrukken en druk vervolgens op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module om een nieuwe lege module 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 Tools > References om het dialoogvenster References – Project 1 te openen, 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 Run om de code uit te voeren. De e-mail zonder afbeeldingen wordt onmiddellijk afgedrukt via Word. Als uw computer echter geen printer heeft, volg dan Stap 4.
4-2. Wanneer uw computer geen printer heeft, nadat u op F5 hebt gedrukt of op de knop Run hebt geklikt om de code uit te voeren, verschijnt er een dialoogvenster waarin u een map kunt kiezen om het PDF-bestand op te slaan en de naam van het PDF-bestand in te voeren. Klik op Opslaan.
Nu is de e-mail geëxporteerd als een PDF zonder afbeeldingen. Open het PDF-bestand, klik met de rechtermuisknop en selecteer Afdrukken om de e-mail af te drukken.
Tip: Als u meerdere geselecteerde e-mails bulksgewijs wilt opslaan als PDF (of Word, CSV, Excel, Txt, HTML-bestanden) met afbeeldingen, headers, lichamen, Ccs, kan de Bulk Save-functie van Kutools voor Outlook u helpen, wat slechts 3 stappen vereist.
1. Selecteer e-mails.
2. Klik op Kutools > Bulk Save.
3. Kies een locatie en vink de gewenste bestandsindeling(en) aan, klik op Ok.
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint