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

Scheda Office: abilita la modifica e la navigazione a schede in Microsoft Office, rendendo il lavoro un gioco da ragazzi

Leggi di più...Scarica ...

Kutools per Outlook: potenzia Outlook con oltre 100 funzionalità avanzate per un'efficienza superiore

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...

Potenzia il tuo Outlook 2021-2010 o Outlook 365 con queste funzionalità avanzate. Goditi una prova gratuita completa di 60 giorni e migliora la tua esperienza di posta elettronica!

Leggi di più...Scarica ...

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