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 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2021 - 2010 o Office 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 > Moduli 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 > Riferimenti abilitare Riferimenti – 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 for 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 una prova gratuita di 30 giorni di Kutools for Outlook adesso.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.