Como exportar rapidamente parte de um e-mail do Outlook como um PDF Envie o

Se você deseja exportar parte de um e-mail do Outlook, em vez do e-mail inteiro, como um PDF arquivo, você pode ler este artigo. Aqui vamos guiá-lo para alcançá-lo com um código VBA.

Dos meus artigos anteriores – “Como salvar um e-mail do Outlook como um PDF Envie oeComo exportar rapidamente vários e-mails do Outlook como um único PDF Envie o”, você pode aprender maneiras de exportar o e-mail inteiro como PDF arquivo. No entanto, às vezes, o que você quer é exportar a parte de um e-mail como um PDF arquivo. Nesse ponto, você pode usar o seguinte código VBA para realizá-lo. Se você não sabe como usar o VBA, pode consultar o artigo – “Como executar o código VBA no seu Outlook" enquanto isso.

Exportar parte de um e-mail como um PDF Envie o

1. Para começar, abra o programa Outlook.
2. Em seguida, acesse o editor VBA do Outlook por meio dos atalhos de tecla “Alt + F11”.
3. Em seguida, nesta nova janela, abra um módulo não utilizado.
4. Posteriormente, copie e cole o seguinte código VBA neste módulo.

Sub ExportSelectionAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strPDF As String
 
    'Get the currently opened email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objMail Is Nothing Then
       'Copy the current selection
       Set objMailDocument = objMail.GetInspector.WordEditor
       Set objDocSelection = objMailDocument.Application.Selection
       objDocSelection.Copy
 
       'Paste the selection into a new Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
       objWordApp.Selection.EndKey wdStory
       objWordApp.Selection.PasteAndFormat wdPasteDefault
 
       'Export the document as a PDF file
       'Change the path as per your needs
       strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objTempDocument.Close False
       objWordApp.Quit
    End If
End Sub

5. Depois disso, você deve adicionar a nova macro à barra de ferramentas de acesso rápido da janela de mensagem.
6. Finalmente, você pode tirar uma foto:

• Primeiro, abra um e-mail.
• Em seguida, selecione o conteúdo que deseja exportar.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, a macro será executada.
• Quando a macro terminar, você pode ir para a pasta local predefinida, onde verá uma nova PDF arquivo.
• Abra-o e você verá que se parece com a seguinte captura de tela:

Medidas efetivas após danos ao Outlook

Apesar de ostentar inúmeras funções excelentes, o Outlook ainda não pode estar imune a danos. Na verdade, é propenso a corrupção devido a vários fatores, como vírus, malware, falhas de software e problemas de hardware e assim por diante. Nesse cenário, é essencial tomar medidas para resgatar os dados danificados do Outlook, incluindo o lançamento ScanpstName Para reparar o arquivo, verifique os backups mais recentes e utilize uma ferramenta de reparo de PST poderosa e confiável, 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 consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com