Como excluir imagens incorporadas ao imprimir um e-mail do Outlook

Às vezes, você pode simplesmente querer imprimir o texto de um e-mail, sem incluir as imagens incorporadas. Em vez de remover as imagens antes de imprimir, você pode aplicar o método apresentado neste artigo. Ele pode excluir imagens automaticamente ao imprimir.

Como todos sabemos, imprimir imagens é um desperdício de tinta. Portanto, às vezes, ao imprimir um e-mail, você pode pensar que as imagens inseridas são inúteis. Assim, você pode querer excluir as imagens ao imprimir um e-mail. Nesse caso, você pode utilizar a seguinte maneira de alcançá-lo com facilidade e sem esforço.

Excluir imagens incorporadas ao imprimir um e-mail

1. Primeiro, inicie o aplicativo Outlook.
2. Em seguida, acesse o editor VBA do Outlook de acordo com o artigo – “Como executar o código VBA no seu Outlook".
3. Em seguida, você precisa habilitar a “Biblioteca de Objetos do MS Word”, sobre a qual você pode consultar “Como adicionar uma referência à biblioteca de objetos em VBA".
4. Depois disso, coloque o seguinte código VBA em um módulo não utilizado.

Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

5. Posteriormente, feche a janela atual “Microsoft Visual Basic for Applications”.
6. Depois, adicione a nova macro à Barra de Ferramentas de Acesso Rápido.
7. Eventualmente, você pode tentar esta macro agora.

• Para começar, selecione ou abra o e-mail de origem.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• De uma vez, o e-mail será impresso sem imagens incorporadas, que se parecerão com a seguinte captura de tela:

Proteja seus dados do Outlook com eficiência

Hoje em dia, os dados são sempre inseguros, pois existem muitos riscos potenciais, como falhas de hardware, falhas de software, infecção por vírus e assim por diante. O mesmo vale para seus dados do Outlook. Portanto, você deve fazer esforços para proteger seus dados do Outlook. Por exemplo, você deve fazer backups PST regulares. Além disso, você precisa aprender a usar ScanpstName para reparar o arquivo do Outlook. Por último, mas não menos importante, preparar uma poderosa ferramenta externa de reparo também é uma questão de necessidade, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com