Como anexar uma planilha do Excel como um PDF Anexo no seu e-mail do Outlook

Se você deseja converter rapidamente uma planilha do Excel em uma PDF arquivo e, em seguida, anexe este PDF arquivo para um e-mail do Outlook para enviá-lo, você pode utilizar o método apresentado neste artigo. Ele está usando o VBA para realizar essa tarefa em segundos.

Para ser honesto, anexar uma pasta de trabalho inteira do Excel como um PDF anexo em um e-mail é muito fácil. Você pode primeiro salvar a pasta de trabalho como um PDF arquivo e, em seguida, crie um novo e-mail do Outlook e anexe o PDF arquivo para este e-mail. No entanto, no Excel, não existe uma função tão direta para converter uma única planilha em uma PDF arquivar e enviar por correio. Assim, se você deseja anexar rapidamente uma planilha do Excel como um PDF anexo em um e-mail, você pode utilizar os seguintes meios.

Anexe uma planilha do Excel como um PDF Anexo em seu e-mail

1. Em primeiro lugar, você precisa abrir a planilha do Excel de origem normalmente.
2. Em seguida, na janela do Excel, você deve pressionar os botões de tecla “Alt + F11”.
3. Posteriormente, você terá acesso à janela do editor Excel VBA com sucesso.
4. Depois disso, você deve abrir o projeto “ThisWorkbook”.
5. Em seguida, copie e cole o seguinte código VBA nesta janela do projeto.

Sub SendWorksheet_AsPDFAttachment_OutlookEmail()
    Dim objFileSystem As Object
    Dim strTempFile As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    'Specify the worksheet name
    Sheets("DataNumen Staff").Activate
    ActiveSheet.UsedRange.Select
    ThisWorkbook.Sheets(Array("DataNumen Staff")).Select
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFile = objFileSystem.GetSpecialFolder(2).Path & "\" & ActiveSheet.Name & " in " & ThisWorkbook.Name & ".pdf"
 
    'export the specific worksheet as PDF
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strTempFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
 
    'Attach the PDF file
    objMail.Attachments.Add strTempFile
    objMail.Display '==>display this email
 
    'Delete the temp PDF file
    objFileSystem.DeleteFile (strTempFile)
End Sub

6. Eventualmente, para acionar a nova macro, você pode clicar no ícone “Executar” na barra de ferramentas ou pressionar diretamente o botão “F5”.
7. Depois que a execução da macro terminar, um novo e-mail do Outlook será exibido imediatamente. Nela, você pode ver um PDF arquivo na linha “Anexado”, como na captura de tela a seguir:

Proteja o arquivo do Outlook de ser danificado

Como todos sabemos, o Outlook é propenso a corrupção, semelhante a documentos do Word e pastas de trabalho do Excel. Portanto, devemos entender como proteger o Outlook da corrupção. Devido ao fato de que os vírus se tornaram cada vez mais complexos e desenfreados, o Outlook é frequentemente corrompido devido a infecções por vírus e ataques de malware. Nessa situação, você deve instalar um software antivírus confiável e desativar o download automático de arquivos externos. Além disso, é melhor você se apossar de outro robusto Correção do Outlook ferramenta, como DataNumen Outlook Repair. É capaz de fornecer a você o most solução eficaz em caso de corrupção do Outlook.

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 corrigir sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com