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
- Automatizza l'invio di e-mail con Auto CC / BCC, Avanzamento automatico secondo le regole; Inviare Risposta automatica (Fuori sede) senza richiedere un server Exchange...
- Ricevi promemoria come Avviso BCC quando rispondi a tutti mentre sei nell'elenco CCN e Ricorda quando mancano allegati per gli allegati dimenticati...
- Migliora l'efficienza della posta elettronica con Rispondi (a tutti) con gli allegati, Aggiungi automaticamente il saluto o la data e l'ora nella firma o nell'oggetto, Rispondi a più email...
- Semplifica l'invio di e-mail con Richiamare le e-mail, Strumenti per gli allegati (Comprimi tutto, Salva tutto automaticamente...), Rimuovi duplicatie Rapporto rapido...
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 subito una prova gratuita di 30 giorni di Kutools per Outlook.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? 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ù.