Outlook: Come stampare email senza immagini
Generalmente, quando si stampa un'email in Outlook, anche le immagini vengono stampate. Tuttavia, a volte si desidera stampare solo il testo senza le immagini. Purtroppo, Outlook non offre una funzionalità integrata per supportare questa operazione. Questo tutorial fornisce un codice VBA che stamperà l'email priva di immagini immediatamente tramite Word. Oppure, se il computer non dispone di una stampante, il codice VBA esporterà prima l'email come PDF senza immagini, e successivamente potrai stampare il PDF quando la stampante sarà disponibile.
VBA per stampare email senza immagini
VBA per stampare email senza immagini
1. Seleziona un'email che desideri stampare solo come testo, quindi premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo per creare un nuovo modulo vuoto, quindi copia e incolla il codice sottostante 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. Clicca su Strumenti > Riferimenti per abilitare la finestra di dialogo Riferimenti – Progetto 1, seleziona la casella di controllo Microsoft Word 16.0 Object Library. Clicca OK.
4-1. Mantieni il cursore all'interno del codice e premi il tasto F5 o clicca sul pulsante Esegui per eseguire il codice; l'email senza immagini verrà stampata immediatamente tramite Word. Tuttavia, 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 il tasto F5 o cliccato sul pulsante Esegui per eseguire il codice, apparirà una finestra di dialogo per scegliere una cartella in cui salvare il file PDF e assegnare un nome al file PDF. Clicca Salva.
Ora l'email è stata esportata come PDF senza immagini. Apri il file PDF, fai clic con il tasto destro e seleziona Stampa per stampare l'email.
Suggerimento: Se desideri salvare in blocco più email selezionate come PDF (o Word, CSV, Excel, Txt, file HTML) con immagini, intestazioni, corpi, Ccn, la funzione Bulk Save di Kutools per Outlook può aiutarti, richiedendo solo 3 passaggi.
1. Seleziona le email.
2. Clicca su Kutools > Bulk Save.
3. Scegli una posizione e seleziona il formato di file desiderato, poi clicca Ok.
Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS
Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
Questa funzione supporta:
- Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
- Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
- Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
- Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
- Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
- Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.
Questa funzione supporta:
- Risposte intelligenti alle email
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Riassunto delle email
- Traduzione multilingue
Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
