Outlook: Como imprimir e-mail sem imagens
Geralmente, ao imprimir um e-mail no Outlook, as imagens também serão impressas. No entanto, às vezes você pode querer imprimir apenas os textos sem as imagens. Infelizmente, o Outlook não possui uma função nativa que suporte essa tarefa. Este tutorial fornece um código VBA que imprimirá o e-mail sem imagens imediatamente através do Word. Ou, quando seu computador não tiver uma impressora, o código VBA exportará o e-mail como um PDF sem imagens primeiro, e então você poderá imprimir o PDF assim que a impressora estiver disponível.
VBA para imprimir e-mail sem imagens
VBA para imprimir e-mail sem imagens
1. Selecione um e-mail que deseja imprimir somente o texto, depois pressione as teclas Alt + F11 para ativar a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para criar um novo módulo em branco, depois copie e cole o código abaixo 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, marque a caixa de seleção Microsoft Word 16.0 Object Library. Clique em OK.
4-1. Mantenha o cursor dentro do código e pressione a tecla F5 ou clique no botão Executar para executar o código; o e-mail sem imagens será impresso imediatamente pelo Word. Mas se o seu computador não tiver uma impressora, siga a Etapa 4.
4-2. Quando o seu computador não tiver uma impressora, após pressionar a tecla F5 ou clicar no botão Executar para rodar o código, uma caixa de diálogo aparecerá para escolher uma pasta onde salvar o arquivo PDF e nomear o arquivo PDF. Clique em Salvar.
Agora o e-mail foi exportado como um PDF sem imagens. Abra o arquivo PDF, clique com o botão direito e selecione Imprimir para imprimir o e-mail.
Dica: Se você quiser salvar em massa e-mails selecionados como PDF (ou Word, CSV, Excel, Txt, arquivos HTML) com imagens, cabeçalhos, corpos, Ccs, o recurso Bulk Save do Kutools for Outlook pode ajudá-lo, necessitando apenas de 3 passos.
1. Selecione os e-mails.
2. Clique em Kutools > Bulk Save.
3. Escolha um local e marque o(s) formato(s) de arquivo que deseja, clique em Ok.
Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS
Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
Este recurso suporta:
- Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
- Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
- Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
- Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
- Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.
Este recurso suporta:
- Respostas inteligentes de e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
