Ingesloten afbeeldingen uitsluiten bij het afdrukken van een Outlook-e-mail

Soms wilt u misschien gewoon de tekst van een e-mail afdrukken, zonder de ingesloten afbeeldingen. In plaats van de afbeeldingen te verwijderen voordat u ze afdrukt, kunt u de methode toepassen die in dit artikel is geïntroduceerd. Het kan automatisch afbeeldingen uitsluiten tijdens het afdrukken.

Zoals we allemaal weten, is het afdrukken van afbeeldingen inktverspilling. Daarom kunt u bij het afdrukken van een e-mail soms denken dat de ingevoegde afbeeldingen nutteloos zijn. Het is dus mogelijk dat u de afbeeldingen wilt uitsluiten bij het afdrukken van een e-mail. In dit geval kunt u de volgende manier gebruiken om dit moeiteloos te bereiken.

Sluit ingesloten afbeeldingen uit bij het afdrukken van een e-mail

1. Start eerst de Outlook-applicatie.
2. Open vervolgens de Outlook VBA-editor volgens het artikel - "Hoe u VBA-code in uw Outlook uitvoert'.
3. Vervolgens moet u de 'MS Word-objectbibliotheek' inschakelen. Raadpleeg hiervoor de volgende link:Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
4. Plaats daarna de volgende VBA-code in een ongebruikte module.

Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

5. Sluit later het huidige venster "Microsoft Visual Basic for Applications".
6. Voeg daarna de nieuwe macro toe aan de werkbalk Snelle toegang.
7. Uiteindelijk kunt u deze macro nu proberen.

• Selecteer of open om te beginnen de bron-e-mail.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• De e-mail wordt meteen afgedrukt zonder ingesloten afbeeldingen, die eruitzien als de volgende schermafbeelding:

Bescherm uw Outlook-gegevens effectief

Tegenwoordig zijn gegevens altijd onveilig omdat er te veel potentiële risico's zijn, zoals hardwareproblemen, softwarefouten, virusinfecties enzovoort. Hetzelfde geldt voor uw Outlook-gegevens. Daarom moet u inspanningen leveren om uw Outlook-gegevens te beschermen. U moet bijvoorbeeld regelmatig PST-back-ups maken. Bovendien moet u leren hoe u scanpst om Outlook-bestand te repareren. Last but not least, het voorbereiden van een krachtige externe reparatietool is ook een kwestie van, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com