Outlook: como imprimir e-mail sem imagens
Geralmente imprimindo um email no Outlook, as imagens também serão impressas. Mas às vezes, você só quer imprimir os textos sem as imagens, no entanto, no Outlook, não há um recurso interno que possa dar suporte a esse trabalho. Este tutorial fornece um código VBA que imprimirá o e-mail sem imagem por meio do Word imediatamente. Ou quando seu computador não tiver uma impressora, o código VBA exportará o e-mail como um PDF sem imagens primeiro e, em seguida, você poderá imprimir o PDF depois que a impressora estiver disponível.
VBA para imprimir e-mail sem imagens
- Automatize o envio de e-mails com Auto CC / BCC, Avanço automático por regras; enviar Resposta automatica (Fora do escritório) sem a necessidade de um servidor Exchange...
- Receba lembretes como Aviso BCC ao responder a todos enquanto você está na lista BCC, e Lembrar quando houver anexos ausentes para anexos esquecidos...
- Melhore a eficiência do e-mail com Responder (todos) com anexos, Adicionar automaticamente saudação ou data e hora à assinatura ou assunto, Responder vários e-mails...
- Simplifique o envio de e-mails com Recuperar e-mails, Ferramentas de Anexo (Compactar tudo, salvar tudo automaticamente...), Remover Duplicados e Relatório Rápido...
VBA para imprimir e-mail sem imagens
1. Selecione um e-mail para o qual deseja imprimir apenas o texto e pressione outro + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo para criar um novo módulo em branco, 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 Ferramentas > Referências Para habilitar Referências - Projeto 1 diálogo, marque Biblioteca de objetos do Microsoft Word 16.0 caixa de seleção. Clique OK.
4-1. Mantenha o cursor dentro do código e pressione F5 tecla ou clique Execute botão para executar o código, então o e-mail sem imagens será impresso imediatamente através do Word. Mas se o seu computador não tiver uma impressora, siga o Passo 4.
4-2. Quando o computador não tem impressora, depois de pressionar F5 tecla ou clicando Execute botão para executar o código, uma caixa de diálogo aparece para escolher uma pasta para colocar o arquivo PDF e nomear o arquivo PDF. Clique Salvar.
Agora o e-mail foi exportado como PDF sem imagens. Abra o arquivo PDF e clique com o botão direito para selecionar Impressão para imprimir o e-mail.
Dica: Se você deseja salvar e-mails selecionados em massa como PDF (ou arquivos Word, CSV, Excel, Txt, HTML) com imagens, cabeçalhos, corpos, Ccs, o Salvar em massa característica de Kutools for Outlook pode ajudá-lo, que só precisa de 3 passos.
1. Selecione e-mails.
2. Clique Kutools > Salvar em massa.
3. Escolha um local e verifique o(s) formato(s) de arquivo desejado, clique em Ok.
Obtenha uma avaliação gratuita de 30 dias do Kutools para Outlook agora.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.