Så här utesluter du inbäddade bilder när du skriver ut ett Outlook-e-postmeddelande

Ibland kanske du helt enkelt vill skriva ut texten i ett e-postmeddelande, inte inklusive de inbäddade bilderna. Istället för att ta bort bilderna före utskrift kan du använda metoden som introduceras i den här artikeln. Det kan automatiskt exkludera bilder vid utskrift.

Som vi alla vet är utskrift av bilder slöseri med bläck. Därför kan du ibland, när du skriver ut ett e-postmeddelande, tycka att de infogade bilderna är oanvändbara. Därför kanske du vill utesluta bilderna när du skriver ut ett e-postmeddelande. I det här fallet kan du använda följande sätt för att uppnå det utan ansträngning.

Uteslut inbäddade bilder när du skriver ut ett e-postmeddelande

1. Starta först Outlook-applikationen.
2. Gå sedan till Outlook VBA-redigeraren enligt artikeln - "Hur du kör VBA-kod i din Outlook".
3. Därefter måste du aktivera "MS Word Object Library", som du kan läsa mer om under "Hur man lägger till en objektbiblioteksreferens i VBA".
4. Efter det lägger du in följande VBA-kod i en oanvänd modul.

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. Stäng senare det aktuella "Microsoft Visual Basic for Applications"-fönstret.
6. Lägg sedan till det nya makrot i verktygsfältet Snabbåtkomst.
7. Så småningom kan du prova detta makro nu.

• Till att börja med, välj eller öppna käll-e-postadressen.
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• E-postmeddelandet kommer genast att skrivas ut utan inbäddade bilder, vilket kommer att se ut som följande skärmdump:

Skydda dina Outlook-data effektivt

Nuförtiden är data alltid osäker eftersom det finns för många potentiella risker, som hårdvarufel, programvarufel, virusinfektion och så vidare. Detsamma gäller för dina Outlook-data. Därför måste du anstränga dig för att skydda dina Outlook-data. Till exempel bör du göra regelbundna PST-säkerhetskopior. Dessutom måste du lära dig hur du använder Scanpst för att reparera Outlook-filen. Sist men inte minst, att förbereda ett kraftfullt externt reparationsverktyg är också en nödvändighet, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återställa mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com