Come escludere le immagini incorporate durante la stampa di un'e-mail di Outlook

A volte, potresti semplicemente voler stampare il testo di un'e-mail, escluse le immagini incorporate. Invece di rimuovere le immagini prima della stampa, puoi applicare il metodo introdotto in questo articolo. Può escludere automaticamente le immagini durante la stampa.

Come tutti sappiamo, la stampa di immagini comporta uno spreco di inchiostro. Pertanto, a volte, quando si stampa un'e-mail, si può pensare che le immagini inserite siano inutili. Pertanto, potresti voler escludere le immagini durante la stampa di un'e-mail. In questo caso, puoi utilizzare il seguente modo per ottenerlo con facilità.

Escludi immagini incorporate durante la stampa di un'e-mail

1. Prima di tutto, avvia l'applicazione Outlook.
2. Quindi, accedi all'editor VBA di Outlook in base all'articolo: "Come eseguire il codice VBA in Outlook".
3. Successivamente, è necessario abilitare la “Libreria oggetti di MS Word”, a cui puoi fare riferimento “Come aggiungere un riferimento a una libreria di oggetti in VBA".
4. Successivamente, inserisci il seguente codice VBA in un modulo inutilizzato.

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. Successivamente, chiudi l'attuale finestra "Microsoft Visual Basic for Applications".
6. Successivamente, aggiungi la nuova macro alla barra degli strumenti di accesso rapido.
7. Alla fine, puoi provare questa macro ora.

• Per iniziare, seleziona o apri l'email di origine.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, l'e-mail verrà stampata senza immagini incorporate, che assomiglieranno al seguente screenshot:

Proteggi i tuoi dati di Outlook in modo efficace

Al giorno d'oggi, i dati sono sempre insicuri in quanto ci sono troppi rischi potenziali, come guasti hardware, errori software, infezioni da virus e così via. Lo stesso vale per i dati di Outlook. Quindi, devi fare sforzi per salvaguardare i tuoi dati di Outlook. Ad esempio, dovresti eseguire regolarmente backup PST. Inoltre, devi imparare come usare Scansione per riparare il file di Outlook. Ultimo ma non meno importante, anche la preparazione di un potente strumento di riparazione esterna è una questione di necessità, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com