Sådan ekskluderes indlejrede billeder, når du udskriver en Outlook-e-mail

Nogle gange vil du måske bare udskrive teksten i en e-mail, ikke inklusive de integrerede billeder. I stedet for at fjerne billederne inden udskrivning kan du anvende metoden introduceret i denne artikel. Det kan automatisk ekskludere billeder under udskrivning.

Som vi alle ved, er udskrivning af billeder blækspild. Derfor kan du til tider, når du udskriver en e-mail, synes, at de indsatte billeder er ubrugelige. Således vil du muligvis ekskludere billederne, når du udskriver en e-mail. I dette tilfælde kan du bruge den følgende måde til at opnå det uden besvær.

Ekskluder indlejrede billeder, når du udskriver en e-mail

1. Start først Outlook-applikationen.
2. Gå derefter til Outlook VBA-editor i henhold til artiklen - “Sådan køres VBA-kode i din Outlook".
3. Derefter skal du aktivere "MS Word Object Library", som du kan læse mere om under "Sådan tilføjer du en objektbiblioteksreference i VBA".
4. Derefter skal du sætte følgende VBA-kode i et ubrugt 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. Senere skal du lukke det aktuelle “Microsoft Visual Basic for Applications” -vindue.
6. Derefter skal du tilføje den nye makro til værktøjslinjen Hurtig adgang.
7. Til sidst kan du prøve denne makro nu.

• Til at begynde med skal du vælge eller åbne kilde-e-mailen.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Straks udskrives e-mailen uden indlejrede billeder, som ser ud som følgende skærmbillede:

Beskyt dine Outlook-data effektivt

I dag er data altid usikre, idet der er for mange potentielle risici, som hardwarefejl, softwarefejl, virusinfektion og så videre. Det samme gælder for dine Outlook-data. Derfor er du nødt til at gøre en indsats for at beskytte dine Outlook-data. For eksempel skal du lave regelmæssige PST-sikkerhedskopier. Plus, du skal lære at bruge scanpst at reparere Outlook-fil. Sidst men ikke mindst er forberedelse af et kraftigt eksternt reparationsværktøj også et spørgsmål om nødvendighed DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com