CASE nBarNum=7 &&Email l_coldpath=SYS(5)+SYS(2003) SET PATH TO c:\qdms2004 LOCAL lnResult, oPDF p_recnum=STR(RECNO("cofc")) l_attachment='c:\windows\temp\qdms\cert.pdf' l_stdtext="Attached is Certificate of Compliance No. "; +THISFORM.Qdmsbasepgf1.Page1.txtCertnum.VALUE +" for "; +ALLTRIM(THISFORM.Qdmsbasepgf1.Page1.txtMatl.VALUE); +" as you requested."+CHR(13)+" "+CHR(13); +"If you have any further questions, please contact XXXXXXX" oPDF = NEWOBJECT ("eReportsPDF", "eReports.dll", "eReports.dll") oPDF.UNLOCK("xxxxxxx xxxxxx - XXXXXXX XXXXXX XXXXX XXXXX") oPDF.EmbedFonts = 0 oPDF.JPGQUality=5 oPDF.ReportFile = "qcf75.frx" oPDF.OutPutFile = "C:\Windows\Temp\qdms\Cert.Pdf" oPDF.ReportExpr = "RECORD "+p_recnum lnResult = oPDF.ReportConvert() SET PATH TO TO l_coldpath *If the PDF was created, prepare the email in Notes IF lnResult=0