Outlook: Como imprimir um e-mail sem imagens

Geralmente, ao imprimir um e-mail no Outlook, as imagens são incluídas automaticamente. No entanto, por vezes, pode pretender imprimir apenas o texto, sem as imagens. Infelizmente, o Outlook não oferece uma funcionalidade integrada para esta finalidade. Este tutorial disponibiliza um código VBA que imprime imediatamente o e-mail sem imagens, utilizando o Word. Alternativamente, se o seu computador não tiver uma impressora disponível, o mesmo código VBA exporta primeiro o e-mail como um PDF sem imagens, permitindo-lhe imprimir o ficheiro PDF assim que a impressora estiver acessível.

VBA para imprimir e-mail sem imagens

---

VBA para imprimir e-mail sem imagens

1. Selecione um e-mail cujo texto pretenda imprimir e, em seguida, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo para criar um novo módulo em branco e, em seguida, copie e cole o código seguinte no módulo.

VBA: exportar e-mail sem imagens

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. Clique em Ferramentas > Referências para abrir a caixa de diálogo Referências – Projeto 1, assinale a caixa de verificação Microsoft Word 16,0 Object Library e clique em OK.

 

4-1. Mantenha o cursor dentro do código e prima a tecla F5 ou clique no botão Executar para executar o código; assim, o e-mail sem imagens será imediatamente impresso através do Word. Mas, se o seu computador não tiver impressora, siga o Passo 4.

4-2. Quando o seu computador não tiver uma impressora, após premir a tecla F5 ou clicar no botão Executar para executar o código, surge uma caixa de diálogo que lhe permite escolher uma pasta onde guardar os ficheiros PDF e atribuir um nome ao ficheiro PDF. Clique em Guardar.

 

Agora, o e-mail foi exportado como um PDF sem imagens. Abra o ficheiro PDF e clique com o botão direito para selecionar Imprimir e imprimir o e-mail.

Dica: Se pretender guardar em lote os e-mails selecionados como PDF (ou Word, CSV, Excel, TXT, ficheiro HTML), incluindo imagens, cabeçalhos, corpos e Ccs, a funcionalidade Guardar em Lote do Kutools para Outlook pode ajudá-lo — e tudo isso em apenas 3 passos.

1. Selecione os e-mails.

2. Clique em Kutools > Guardar em Lote.

3. Escolha uma localização e selecione o(s) tipo(s) de ficheiro pretendido(s). Clique em OK.