Outlook: come stampare un'email senza immagini

In genere, quando si stampa un'email in Outlook, le immagini vengono incluse automaticamente. Tuttavia, a volte potrebbe essere preferibile stampare solo il testo, escludendo le immagini. Purtroppo, Outlook non offre una funzione integrata per farlo. Questa guida presenta un codice VBA che stampa immediatamente l'email priva di immagini tramite Word. In alternativa, se il computer non è collegato a una stampante, lo stesso codice VBA esporterà innanzitutto l'email come PDF senza immagini, consentendoti di stamparlo non appena la stampante sarà disponibile.

VBA per stampare un'email senza immagini

---

VBA per stampare un'email senza immagini

1. Seleziona un'email di cui desideri stampare solo il testo, quindi premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Fare clic su Inserisci > Modulo per creare un nuovo modulo vuoto, quindi copiare e incollare il codice seguente nel modulo.

VBA: esportare un'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. Fare clic su Strumenti > Riferimenti per aprire la finestra di dialogo Riferimenti – Progetto 1, quindi selezionare la casella di controllo Libreria oggetti Microsoft Word 16,0. Fare clic su OK.

 

4-1. Posiziona il cursore all'interno del codice e premi F5 oppure fai clic sul pulsante Esegui per eseguire il codice; l'email priva di immagini verrà immediatamente stampata tramite Word. Tuttavia, se il computer non è dotato di una stampante, segui il Passaggio 4.

4-2. Quando il computer non dispone di una stampante, dopo aver premuto F5 o aver fatto clic sul pulsante Esegui per eseguire il codice, verrà visualizzata una finestra di dialogo per scegliere la cartella in cui salvare il file PDF e assegnargli un nome. Fare clic su Salva.

 

Ora l'email è stata esportata come PDF senza immagini. Apri il file PDF, fai clic con il pulsante destro del mouse e seleziona Stampa per stampare l'email.

Suggerimento: se desideri salvare in blocco le email selezionate come PDF (o Word, CSV, Excel, TXT, file HTML), complete di immagini, intestazioni, corpo del messaggio e campi Cc, la funzionalità Salvataggio multiplo di Kutools per Outlook ti semplifica il lavoro: bastano solo 3 semplici passaggi.

1. Seleziona le email.

2. Fare clic su Kutools > Salvataggio multiplo.

3. Scegliere una posizione e selezionare il formato desiderato per il tipo di file, quindi fare clic su OK.