Jak vyloučit vložené obrázky při tisku e-mailu z aplikace Outlook

Někdy můžete jednoduše chtít vytisknout text e-mailu, který neobsahuje vložené obrázky. Místo odstranění obrázků před tiskem můžete použít metodu uvedenou v tomto článku. Může automaticky vyloučit snímky při tisku.

Jak všichni víme, tisk obrázků je plýtvání inkoustem. Občas si proto při tisku emailu můžete myslet, že vložené obrázky jsou k ničemu. Při tisku e-mailu tedy možná budete chtít obrázky vyloučit. V tomto případě můžete použít následující způsob, jak toho dosáhnout bez námahy.

Při tisku e-mailu vyloučit vložené obrázky

1. Nejprve spusťte aplikaci Outlook.
2. Poté spusťte editor Outlook VBA podle článku – “Jak spustit kód VBA ve vašem Outlooku".
3. Následně je třeba povolit „Knihovnu objektů MS Word“, o které se můžete dozvědět více v části „Jak přidat odkaz na knihovnu objektů ve VBA".
4. Poté vložte následující kód VBA do nepoužívaného modulu.

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. Později zavřete aktuální okno „Microsoft Visual Basic for Applications“.
6. Poté přidejte nové makro na panel nástrojů Rychlý přístup.
7. Nakonec můžete toto makro vyzkoušet hned.

• Nejprve vyberte nebo otevřete zdrojový e-mail.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• E-mail bude okamžitě vytištěn bez vložených obrázků, což bude vypadat jako následující snímek obrazovky:

Chraňte své Outlook data efektivně

V dnešní době jsou data vždy nezabezpečená, protože existuje příliš mnoho potenciálních rizik, jako jsou hardwarové závady, softwarové chyby, virová infekce a tak dále. Totéž platí pro vaše data aplikace Outlook. Proto se musíte snažit chránit data aplikace Outlook. Například byste měli pravidelně zálohovat PST. Navíc se musíte naučit používat scanpst opravit soubor aplikace Outlook. V neposlední řadě je také nezbytností příprava výkonného externího nástroje pro opravu, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com