VBA Code: Send email header to pdf using wrdApp.ActiveDocument.ExportAsFixedFormat

[inddon]

Hello There,

I am using a VBA code to export contents of email to a pdf file as below:

 'Save as pdf
        wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            strCurrentFile, ExportFormat:= _
            wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

With the above code, it send the entire email. I want only the below email header in the pdf file:
From:
To:
Date:
Subject:


Could you please guide in how to modify the above code. Appreciate your help

Thanks
Don

[inddon]

Hello There,

Came across the solution, where I just wanted to have the email header. Sharing the code is as below:

        'Remove the lines. Start from the 5th line to the end . This means keep only the first 4 lines
        wrdDoc.Range(wrdDoc.Paragraphs(5).Range.Start, wrdDoc.Range.End).Cut

'Save as pdf
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _ 
strCurrentFile, ExportFormat:= _ 
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ 
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ 
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
BitmapMissingFonts:=True, UseISO19005_1:=False

Regards,
Don