So exportieren Sie schnell einen Teil einer Outlook-E-Mail als PDF Reichen Sie das

Wenn Sie einen Teil einer Outlook-E-Mail anstelle der gesamten E-Mail als exportieren möchten PDF Datei können Sie diesen Artikel lesen. Hier führen wir Sie, um dies mit einem VBA-Code zu erreichen.

Aus meinen vorherigen Artikeln - “So speichern Sie eine Outlook-E-Mail als PDF Reichen Sie das" und "So exportieren Sie schnell mehrere Outlook-E-Mails als einzelne PDF Reichen Sie das”Könnten Sie lernen, wie Sie die gesamte E-Mail als exportieren können PDF Datei. Manchmal möchten Sie jedoch den Teil einer E-Mail als exportieren PDF Datei. Zu diesem Zeitpunkt können Sie den folgenden VBA-Code verwenden, um ihn zu realisieren. Wenn Sie überhaupt nicht wissen, wie man VBA verwendet, lesen Sie den Artikel - „So führen Sie VBA-Code in Outlook aus" inzwischen.

Exportieren Sie einen Teil einer E-Mail als PDF Reichen Sie das

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Greifen Sie dann über die Tastenkombinationen „Alt + F11“ auf den Outlook VBA-Editor zu.
3. Öffnen Sie als Nächstes in diesem neuen Fenster ein nicht verwendetes Modul.
4. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in dieses Modul ein.

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. Danach sollten Sie das neue Makro zur Symbolleiste für den Schnellzugriff des Nachrichtenfensters hinzufügen.
6. Schließlich können Sie eine Aufnahme machen:

• Öffnen Sie zunächst eine E-Mail.
• Wählen Sie dann den Inhalt aus, den Sie exportieren möchten.
• Klicken Sie anschließend in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
• Das Makro wird sofort ausgeführt.
• Wenn das Makro fertig ist, können Sie zum vordefinierten lokalen Ordner wechseln, in dem ein neuer Ordner angezeigt wird PDF Datei.
• Öffnen Sie es und Sie werden sehen, dass es wie der folgende Screenshot aussieht:

Wirksame Maßnahmen nach Outlook-Schäden

Trotz zahlreicher hervorragender Funktionen kann Outlook immer noch nicht vor Schäden gefeit sein. Tatsächlich ist es aufgrund verschiedener Faktoren wie Viren, Malware, Softwarefehlern und Hardwareproblemen usw. anfällig für Korruption. In diesem Szenario müssen unbedingt Maßnahmen ergriffen werden, um die beschädigten Outlook-Daten zu retten, einschließlich des Startens scanpst Um die Datei zu reparieren, überprüfen Sie die aktuellsten Backups und verwenden Sie ein leistungsstarkes und zuverlässiges PST-Reparaturtool, wie zum Beispiel DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX