Kaip neįtraukti įterptųjų vaizdų spausdinant „Outlook“ el

Kartais galite tiesiog atsispausdinti el. laiško tekstą, neįskaitant įterptųjų vaizdų. Užuot pašalinę vaizdus prieš spausdindami, galite taikyti šiame straipsnyje aprašytą metodą. Jis gali automatiškai neįtraukti vaizdų spausdinant.

Kaip visi žinome, spausdinant vaizdus eikvojama rašalu. Todėl kartais spausdindami el. laišką galite manyti, kad įterpti vaizdai yra nenaudingi. Taigi, spausdindami el. laišką, galite neįtraukti vaizdų. Tokiu atveju galite naudoti toliau nurodytus būdus, kad tai pasiektumėte be vargo.

Spausdinant el. laišką, neįtraukti įterptųjų vaizdų

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada pasiekite „Outlook VBA“ redaktorių pagal straipsnį – „Kaip paleisti VBA kodą „Outlook“.".
3. Vėliau turite įjungti „MS Word objektų biblioteką“, apie kurią galite pasiskaityti „Kaip pridėti objektų bibliotekos nuorodą VBA".
4. Po to į nenaudojamą modulį įdėkite šį VBA kodą.

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ėliau uždarykite dabartinį „Microsoft Visual Basic for Applications“ langą.
6. Po to pridėkite naują makrokomandą prie greitosios prieigos įrankių juostos.
7. Galų gale galite išbandyti šią makrokomandą dabar.

• Norėdami pradėti, pasirinkite arba atidarykite šaltinio el. laišką.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto el. laiškas bus išspausdintas be įterptų vaizdų, kurie atrodys taip, kaip ši ekrano kopija:

Efektyviai apsaugokite savo „Outlook“ duomenis

Šiais laikais duomenys visada yra nesaugūs, nes yra per daug galimų pavojų, pvz., aparatinės įrangos gedimų, programinės įrangos gedimų, virusų užkrėtimo ir pan. Tas pats pasakytina ir apie jūsų „Outlook“ duomenis. Taigi, jūs turite dėti pastangas, kad apsaugotumėte savo „Outlook“ duomenis. Pavyzdžiui, turėtumėte reguliariai kurti atsargines PST kopijas. Be to, jūs turite išmokti naudotis scanpst Norėdami pataisyti „Outlook“ failą. Paskutinis, bet ne mažiau svarbus dalykas – galingo išorinio remonto įrankio paruošimas taip pat yra būtinybės reikalas, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com