2 maneiras rápidas de inserir a captura de tela de uma planilha do Excel no corpo do e-mail do Outlook

Às vezes, em vez de copiar a planilha do Excel no corpo de um e-mail, você pode inserir a captura de tela da planilha. Assim, este artigo mostrará 2 métodos para obtê-lo.

Muitos usuários gostariam de exportar uma captura de tela de uma planilha específica do Excel e, em seguida, inserir a captura de tela no corpo da mensagem de um e-mail do Outlook. Somente na captura de tela, os valores das células não podem ser alterados. E a captura de tela pode ser visualizada mesmo se os destinatários não instalarem o MS Excel em seus computadores.

Isso pode ser realizado por 2 meios. O primeiro é pelo recurso embutido – “Inserir” > “Captura de tela”, que é elaborado no seguinte Método 1. E o segundo é usar um pouco de script, conforme mostrado no Método 2. Agora, continue lendo para obtê-los em detalhes.

Método 1: Inserir captura de tela da janela do Excel

1. Primeiro, abra a planilha do Excel que você deseja inserir no e-mail.
2. Em seguida, inicie o Outlook e crie um novo email.
3. Em seguida, na janela Mensagem, mude para a guia “Inserir”.
4. Em seguida, clique no botão “Captura de tela”.
5. Na lista “Janelas disponíveis”, selecione a captura de tela da planilha do Excel.
6. De uma vez, a captura de tela da planilha do Excel será inserida.
7. Agora, você pode cortar a captura de tela à vontade.

Método 2: Copie a captura de tela da planilha do Excel com VBA

1. No início, abra o arquivo do Excel.
2. Em seguida, pressione “Alt + F11” para acionar o editor Excel VBA.
3. Em seguida, adicione a referência à “Biblioteca de Objetos do MS Outlook” e à “Biblioteca de Objetos do MS Word” de acordo com “Como adicionar uma referência à biblioteca de objetos em VBA".
4. Depois disso, copie o seguinte código VBA em um projeto ou módulo.

Sub ExportInsert_ScreenshotOfSheet_Mail()
    Dim objSheet As Excel.Worksheet
    Dim objUsedRange As Excel.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.document
 
    'Change "Sheets(1)" to the specific worksheet number
    Set objSheet = ActiveWorkbook.Sheets(1)
    Set objUsedRange = objSheet.UsedRange
    'Copy the screenshot of the sheet
    objUsedRange.CopyPicture xlScreen, xlPicture

    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    'Paste the copied screenshot
    objMailDocument.Range(0, 0).Paste
End Sub

5. Mais tarde, pressione “F5” para executar esta macro.
6. Imediatamente, um novo e-mail será exibido.
7. Na pequena caixa de diálogo, clique no botão "Permitir".
8. Por fim, a captura de tela da planilha do Excel será inserida no corpo da mensagem.

Ao confrontar danos no arquivo do Outlook

Se você baixar acidentalmente algum anexo infectado por vírus, é muito provável que seu arquivo do Outlook seja atacado e, assim, fique comprometido. Em tal situação, primeiro você deve executar um software antivírus para matar os vírus. Posteriormente, você precisa investir em um utilitário de reparo robusto de terceiros, como DataNumen Outlook Repair, Que pode reparar PST arquivo sem suar a camisa.

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