Kako izključiti vdelane slike pri tiskanju Outlookovega e-poštnega sporočila

Včasih boste morda želeli preprosto natisniti besedilo e-pošte, ne da bi vključevali vdelane slike. Namesto odstranjevanja slik pred tiskanjem lahko uporabite metodo, predstavljeno v tem članku. Pri tiskanju lahko samodejno izloči slike.

Kot vsi vemo, tiskanje slik zapravlja črnilo. Zato se vam ob tiskanju e-pošte včasih zdi, da so vstavljene slike neuporabne. Tako boste morda želeli slike izključiti pri tiskanju e-pošte. V tem primeru lahko na enostaven način to dosežete na naslednji način.

Med tiskanjem e-pošte izključite vdelane slike

1. Najprej zaženite aplikacijo Outlook.
2. Nato odprite urejevalnik Outlook VBA v skladu s člankom - “Kako zagnati kodo VBA v Outlooku".
3. Nato morate omogočiti »Knjižnico objektov MS Word«, o čemer si lahko preberete v »Kako dodati referenco knjižnice objektov v VBA".
4. Po tem v neuporabljeni modul vstavite naslednjo kodo VBA.

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. Kasneje zaprite trenutno okno »Microsoft Visual Basic for Applications«.
6. Nato dodajte nov makro v orodno vrstico za hitri dostop.
7. Sčasoma lahko poskusite ta makro zdaj.

• Za začetek izberite ali odprite izvorno e-pošto.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• E-poštno sporočilo se bo takoj natisnilo brez vdelanih slik, kar bo videti kot naslednji posnetek zaslona:

Učinkovito zaščitite svoje Outlook podatke

Danes so podatki vedno negotovi, saj obstaja preveč potencialnih tveganj, kot so napake strojne opreme, napake programske opreme, okužbe z virusi itd. Enako velja za vaše Outlookove podatke. Zato si morate prizadevati za zaščito svojih Outlookovih podatkov. Na primer, naredite redne varnostne kopije PST. Poleg tega se morate naučiti, kako uporabljati scanpst za popravilo datoteke Outlook. Nenazadnje je tudi priprava zmogljivega zunanjega orodja za popravilo stvar nujnosti DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjati mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com