MsgBox 'Cannot Find PDFMaker add-in', vbOKOnly, '' If InStr(UCase((i).Description), 'PDFMAKER') > 0 Then This code will generate a basic PDF of the contents of the passed folder ID: Sub BasicPDF(sFolderID As String, sFilename As String)ĭim objPDFMaker As PDFMOUTLOOKLib.PDFMaker The class provides the methods CreatePDFFromEntryID and CreatePDF.ĬreatePDFFromEntryID take as parameters the entryID, a boolean indicating if the entry is a folder and an output path for the file. I am using the library PDFMOutlook 1.0 Type Library which gives a PDFMaker class. I am using the Adobe PDFMaker addin with Outlook 2013.
