Si të përjashtoni imazhet e ngulitura kur shtypni një email të Outlook

Ndonjëherë, thjesht mund të dëshironi të printoni tekstin e një emaili, duke mos përfshirë imazhet e ngulitura. Në vend që të hiqni imazhet përpara printimit, mund të aplikoni metodën e prezantuar në këtë artikull. Mund të përjashtojë automatikisht imazhet gjatë printimit.

Siç e dimë të gjithë, printimi i imazheve është humbje e bojës. Prandaj, ndonjëherë, kur printoni një email, mund të mendoni se imazhet e futura janë të padobishme. Kështu, mund të dëshironi të përjashtoni imazhet kur printoni një email. Në këtë rast, ju mund të përdorni mënyrën e mëposhtme për ta arritur atë me lehtësi.

Përjashtoni imazhet e ngulitura kur printoni një email

1. Fillimisht, hapni aplikacionin Outlook.
2. Pastaj, hyni në redaktorin VBA të Outlook sipas artikullit - "Si të ekzekutoni kodin VBA në Outlook tuaj".
3. Më pas, duhet të aktivizoni "Bibliotekën e Objekteve MS Word", për të cilën mund të referoheni te "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
4. Pas kësaj, vendosni kodin e mëposhtëm VBA në një modul të papërdorur.

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. Më vonë, mbyllni dritaren aktuale "Microsoft Visual Basic për aplikacione".
6. Më pas, shtoni makro të re në shiritin e veglave të aksesit të shpejtë.
7. Përfundimisht, mund ta provoni këtë makro tani.

• Për të filluar, zgjidhni ose hapni emailin burimor.
• Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë, emaili do të printohet pa imazhe të ngulitura, të cilat do të duken si pamja e mëposhtme e ekranit:

Mbroni në mënyrë efektive të dhënat tuaja të Outlook

Në ditët e sotme, të dhënat janë gjithmonë të pasigurta pasi ka shumë rreziqe të mundshme, si gabime në harduer, defekte softuerike, infektim me virus etj. E njëjta gjë vlen edhe për të dhënat tuaja të Outlook. Prandaj, duhet të bëni përpjekje për të mbrojtur të dhënat tuaja të Outlook. Për shembull, duhet të bëni kopje rezervë të rregullt të PST. Plus, ju duhet të mësoni se si të përdorni scanpst për të riparuar skedarin Outlook. E fundit, por jo më pak e rëndësishme, përgatitja e një mjeti të fuqishëm riparimi të jashtëm është gjithashtu një çështje e domosdoshme, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com