Outlook: come stampare e-mail senza immagini

Generalmente stampando un'e-mail in Outlook, verranno stampate anche le immagini. Ma a volte, vuoi solo stampare i testi senza le immagini, tuttavia, in Outlook, non esiste alcuna funzionalità integrata in grado di supportare questo lavoro. Questo tutorial fornisce un codice VBA che stamperà immediatamente l'e-mail senza immagini tramite Word. Oppure, quando il tuo computer non dispone di una stampante, il codice VBA esporterà prima l'e-mail come PDF senza immagini, quindi potrai stampare il PDF quando la stampante sarà disponibile.

VBA per stampare e-mail senza immagini

VBA per stampare e-mail senza immagini

1. Selezionare un'e-mail di cui si desidera stampare solo il testo, quindi premere altro + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulo per creare un nuovo modulo vuoto, quindi copia e incolla il codice seguente nel modulo.

VBA: esporta email senza immagini

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. Clic Strumenti > Referenze abilitare Referenze – Progetto 1 finestra di dialogo, spuntare Libreria di oggetti di Microsoft Word 16.0 casella di controllo. Clic OK.

4-1. Mantieni il cursore all'interno del codice e premi F5 tasto o fare clic Correre pulsante per eseguire il codice, quindi l'e-mail senza immagini verrà stampata immediatamente tramite Word. Ma se il tuo computer non ha una stampante, segui il passaggio 4.

4-2. Quando il tuo computer non ha una stampante, dopo aver premuto F5 tasto o cliccando Correre per eseguire il codice, viene visualizzata una finestra di dialogo per la scelta di una cartella in cui posizionare il file PDF e il nome del file PDF. Clic Risparmi.

Ora l'e-mail è stata esportata come PDF senza immagini. Apri il file PDF e fai clic con il pulsante destro del mouse per selezionare Stampa per stampare l'email.

Consiglio: se desideri salvare in blocco le email selezionate come PDF (o file Word, CSV, Excel, Txt, HTML) con immagini, intestazioni, corpi, Ccs, il Risparmio collettivo caratteristica di Kutools per Outlook può aiutarti, che richiedono solo 3 passaggi.

1. Seleziona le email.

2. Clic Kutools > Risparmio collettivo.

3. Scegli una posizione e controlla i formati di file desiderati, fai clic su OK.

Ottieni subito una prova gratuita di 30 giorni di Kutools per Outlook.

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

• Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
• Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
• Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
• Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
• E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.

Leggi di più... Scarica ora...