> >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 > >See if erasing one "TO" helps: