Hur man snabbt exporterar en del av ett Outlook-e-postmeddelande som en PDF Fil

Om du vill exportera en del av ett Outlook-e-postmeddelande, istället för hela e-postmeddelandet, som en PDF filen kan du läsa den här artikeln. Här hjälper vi dig att uppnå det med en VBA-kod.

Från mina tidigare artiklar - “Hur man sparar en Outlook-e-post som en PDF Fil"Och"Hur man snabbt exporterar flera Outlook-e-postmeddelanden som en singel PDF Fil”, Kan du lära dig hur du exporterar hela e-postmeddelandet som PDF fil. Ändå, ibland, vad du vill är att exportera delen av ett e-postmeddelande som en PDF fil. Vid den tiden kan du använda följande VBA-kod för att förverkliga den. Om du helt inte vet hur du använder VBA kan du hänvisa till artikeln - “Hur du kör VBA-kod i din Outlook”Under tiden.

Exportera en del av ett e-postmeddelande som en PDF Fil

1. Till att börja med, starta ditt Outlook-program.
2. Gå sedan till Outlook VBA-redigeraren via tangenterna "Alt + F11".
3. Öppna sedan en oanvänd modul i det nya fönstret.
4. Kopiera sedan och klistra in följande VBA-kod i den här modulen.

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. Därefter bör du lägga till det nya makrot i snabbåtkomstverktygsfältet i meddelandefönstret.
6. Slutligen kan du ta ett skott:

• Först öppnar du ett e-postmeddelande.
• Välj sedan innehållet som du vill exportera.
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• Omedelbart körs makrot.
• När makrot är klart kan du gå till den fördefinierade lokala mappen där du kommer att se en ny PDF fil.
• Öppna den så ser du att den ser ut som följande skärmdump:

Effektiva åtgärder efter Outlook-skador

Trots att det finns många utmärkta funktioner kan Outlook fortfarande inte vara immun mot skador. Egentligen är det benäget för korruption på grund av olika faktorer, som virus, skadlig kod, programvarufel och maskinvaruproblem och så vidare. I det här scenariot är det viktigt att vidta åtgärder för att rädda skadade Outlook-data, inklusive start Scanpst för att reparera filen, kontrollera de senaste säkerhetskopiorna och ta hjälp av ett kraftfullt och pålitligt PST-fixeringsverktyg, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com