Cum să excludeți imaginile încorporate atunci când imprimați un e-mail Outlook

Uneori, este posibil să doriți pur și simplu să tipăriți textul unui e-mail, fără a include imaginile încorporate. În loc să eliminați imaginile înainte de imprimare, puteți aplica metoda introdusă în acest articol. Poate exclude automat imaginile la imprimare.

După cum știm cu toții, imprimarea imaginilor este o risipă de cerneală. Prin urmare, uneori, atunci când imprimați un e-mail, puteți crede că imaginile introduse sunt inutile. Astfel, este posibil să doriți să excludeți imaginile atunci când imprimați un e-mail. În acest caz, puteți utiliza următorul mod pentru a o realiza fără efort.

Excludeți imaginile încorporate când imprimați un e-mail

1. În primul rând, lansați aplicația Outlook.
2. Apoi, accesați editorul Outlook VBA conform articolului – „Cum să rulați codul VBA în Outlook".
3. Ulterior, trebuie să activați „MS Word Object Library”, despre care puteți consulta „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
4. După aceea, introduceți următorul cod VBA într-un modul neutilizat.

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. Mai târziu, închideți fereastra curentă „Microsoft Visual Basic for Applications”.
6. După aceea, adăugați noua macrocomandă la Bara de instrumente Acces rapid.
7. În cele din urmă, puteți încerca această macrocomandă acum.

• Pentru început, selectați sau deschideți e-mailul sursă.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Imediat, e-mailul va fi tipărit fără imagini încorporate, care va arăta ca următoarea captură de ecran:

Protejați-vă datele Outlook în mod eficient

În zilele noastre, datele sunt întotdeauna nesigure, deoarece există prea multe riscuri potențiale, cum ar fi erori hardware, defecțiuni software, infecție cu virus și așa mai departe. Același lucru este valabil și pentru datele dvs. Outlook. Prin urmare, trebuie să depuneți eforturi pentru a vă proteja datele Outlook. De exemplu, ar trebui să faceți copii de rezervă PST regulate. În plus, trebuie să înveți cum să folosești Scanpst pentru a repara fișierul Outlook. Nu în ultimul rând, pregătirea unui instrument extern puternic de reparații este, de asemenea, o chestiune de necesitate, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com