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
- Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; 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 di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
- Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
- Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
- Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.
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.

