Outlook: e-mail afdrukken zonder afbeeldingen

Auteur: zon Laatst gewijzigd: 2022-04-29

Over het algemeen wordt een e-mail in Outlook afgedrukt, de afbeeldingen worden ook afgedrukt. Maar soms wilt u de teksten gewoon afdrukken zonder de afbeeldingen, maar in Outlook is er geen ingebouwde functie die deze taak kan ondersteunen. Deze zelfstudie biedt een VBA-code die de afbeeldingsvrije e-mail onmiddellijk via Word afdrukt. Of als uw computer geen printer heeft, exporteert de VBA-code de e-mail eerst als een PDF zonder afbeeldingen, en vervolgens kunt u de PDF afdrukken nadat de printer beschikbaar is.

VBA om e-mail af te drukken zonder afbeeldingen

Office-tabblad - Schakel bewerken en bladeren met tabbladen in Microsoft Office in, waardoor werken een fluitje van een cent wordt

Lees verder...Download ...

Kutools voor Outlook - Geef Outlook een boost met meer dan 100 geavanceerde functies voor superieure efficiëntie

Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...

Geef uw Outlook 2021 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van een uitgebreide gratis proefperiode van 60 dagen en verbeter uw e-mailervaring!

Lees verder...Download ...

VBA om e-mail af te drukken zonder afbeeldingen

1. Selecteer een e-mail waarvan u alleen de tekst wilt afdrukken en druk vervolgens op anders + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken 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