Note: The other languages of the website are Google-translated. Back to English

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

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 60 dias.

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

doc remover itens de calendário duplicados 1

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.

 doc remover itens de calendário duplicados 1

doc remover itens de calendário duplicados 1

4-1. Mantenha o cursor dentro do código e pressione F5 tecla ou clique Opere 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 Opere 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.

 doc remover itens de calendário duplicados 1

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.

doc remover itens de calendário duplicados 1

doc remover itens de calendário duplicados 1

Ponta: 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 para Outlook pode ajudá-lo, que só precisa de 3 passos.

1. Selecione e-mails.

2. Clique Kutools > Salvar em massa.

doc remover itens de calendário duplicados 1

3. Escolha um local e verifique o(s) formato(s) de arquivo desejado, clique em Ok.

doc remover itens de calendário duplicados 1

doc remover itens de calendário duplicados 1

Obtenha uma avaliação gratuita de 30 dias do Kutools for Outlook agora.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL