Kā izslēgt iegultos attēlus, drukājot Outlook e-pastu

Dažreiz jūs varat vienkārši izdrukāt e-pasta tekstu, neietverot iegultos attēlus. Tā vietā, lai pirms drukāšanas noņemtu attēlus, varat izmantot šajā rakstā aprakstīto metodi. Drukājot, tas var automātiski izslēgt attēlus.

Kā mēs visi zinām, attēlu drukāšana tērē tinti. Tāpēc dažreiz, drukājot e-pastu, jūs varat domāt, ka ievietotie attēli ir bezjēdzīgi. Tādējādi, iespējams, vēlēsities izslēgt attēlus, drukājot e-pastu. Šajā gadījumā jūs varētu izmantot šādu veidu, kā to bez piepūles sasniegt.

Izslēdziet iegultos attēlus, drukājot e-pastu

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam piekļūstiet Outlook VBA redaktoram saskaņā ar rakstu - “Kā palaist VBA kodu programmā Outlook".
3. Pēc tam jums jāiespējo “MS Word Object Library ”, par kuru jūs varat atsaukties uzKā pievienot objektu Library Atsauce VBA".
4. Pēc tam ievietojiet šādu VBA kodu neizmantotā 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. Vēlāk aizveriet pašreizējo logu “Microsoft Visual Basic for Applications”.
6. Pēc tam pievienojiet jauno makro ātrās piekļuves rīkjoslai.
7. Galu galā jūs varat izmēģināt šo makro tūlīt.

• Uz start, atlasiet vai atveriet avota e-pastu.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
• Vienlaikus e-pasts tiks izdrukāts bez iegultiem attēliem, kas izskatīsies kā šāds ekrānuzņēmums:

Efektīvi aizsargājiet savus Outlook datus

Mūsdienās dati vienmēr ir nedroši, jo ir pārāk daudz potenciālo risku, piemēram, aparatūras kļūmes, programmatūras kļūdas, vīrusu infekcija un tā tālāk. Tas pats attiecas uz jūsu Outlook datiem. Tādējādi jums ir jāpieliek pūles, lai aizsargātu savus Outlook datus. Piemēram, jums regulāri jāveic PST dublējumi. Turklāt jums jāiemācās to izmantot Scanpst lai labotu Outlook failu. Pēdējais, bet ne mazāk svarīgais, jaudīga ārējā remonta rīka sagatavošana ir arī nepieciešamība, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar