Cómo exportar rápidamente parte de un correo electrónico de Outlook como PDF Archivo

Si desea exportar parte de un correo electrónico de Outlook, en lugar de todo el correo electrónico, como un PDF archivo, puede leer este artículo. Aquí te guiaremos para lograrlo con un código VBA.

De mis artículos anteriores – “Cómo guardar un correo electrónico de Outlook como PDF Archivo" y "Cómo exportar rápidamente varios correos electrónicos de Outlook como uno solo PDF Archivo”, podría aprender formas de exportar el correo electrónico completo como PDF expediente. Sin embargo, en ocasiones, lo que desea es exportar la parte de un correo electrónico como un PDF archivo. En ese momento, puede usar el siguiente código VBA para realizarlo. Si no sabe cómo usar VBA, puede consultar el artículo: "Cómo ejecutar código VBA en su Outlook" mientras tanto.

Exportar parte de un correo electrónico como PDF Archivo

1. Para empezar, abre tu programa Outlook.
2. Luego, acceda al editor de Outlook VBA a través de los atajos de teclado "Alt + F11".
3. A continuación, en esta nueva ventana, abra un módulo no utilizado.
4. Posteriormente, copie y pegue el siguiente código VBA en este 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. Después de eso, debe agregar la nueva macro a la barra de herramientas de acceso rápido de la ventana del mensaje.
6. Finalmente, puedes tomar una foto:

• Primero, abra un correo electrónico.
• Luego, seleccione los contenidos que desea exportar.
• A continuación, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• De inmediato, la macro se ejecutará.
• Cuando finalice la macro, puede dirigirse a la carpeta local predefinida, donde verá una nueva PDF .
• Ábrelo y verás que se parece a la siguiente captura de pantalla:

Medidas efectivas después del daño de Outlook

A pesar de presumir de numerosas funciones excelentes, Outlook todavía no puede ser inmune a los daños. En realidad, es propenso a la corrupción debido a varios factores, como virus, malware, fallas de software y problemas de hardware, etc. En este escenario, es esencial tomar medidas para rescatar los datos de Outlook dañados, incluido el lanzamiento escaneo para reparar el archivo, comprobando las copias de seguridad más recientes y utilizando una herramienta de reparación de PST potente y fiable, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com