| Subject | Re: Emailing Reports |
| From | Samuel <sam@paw-inc.com> |
| Date | Thu, 20 Nov 2014 16:02:43 -0500 |
| Newsgroups | dbase.getting-started |
I use outlook and work great function PUSHBUTTON3_onClick() PUBLIC xFILENAME IF form.bidd_3atamodule.bid_description1.rowset.fields["FWO_PDF"].value =" " msgbox("Missing PDF file make one and tray again thank you ","Missing pdf file",48 ) form.ENTRYFIELDFWO_PDF1.setFocus() RETURN ENDIF IF form.BIDD_3ataModule.bid_description1.rowset.fields["fwo_email_to"].value >" " // #define xFILENAME //TRIM(form.BIDD_3ataModule.bid_description1.fields["FWO_PDF"].value) xFILENAME = TRIM(form.bidd_3atamodule.bid_description1.rowset.fields["FWO_PDF"].value) o = new OleAutoClient("outlook.Application") x = o.createitem(0) // mail item x.to := TRIM(form.bidd_3atamodule.bid_description1.rowset.fields["fwo_email_to"].value) x.Cc := trim(form.bidd_3atamodule.bid_description1.rowset.fields["cc_fwo_email_to"].value) x.subject := TRIM(XPROPOSAL_NO)+" FIELD WORK ORDER # " +LTRIM(STR(xxelev_no)) x.body := "Please review the attached FIELD WORK ORDER. Return the Sign copy to (mcordero@paw-inc.com) at your earliest convenience." +; chr(13)+"If any questions. please let me know. No hard copy will be mailed unless requested. "+chr(10)+ "Thank you for your quick response,"; +chr(10)+chr(10); +trim(XZFULLNAME) +chr(10); +trim(ZXCOMPNAME) +chr(10); +trim(ZXADDRESS)+" "+trim(ZXCITY) +chr(10); +trim(ZXLICENCES) x.attachments.add( xFILENAME ) try x.display() catch ( Exception e ) endtry else msgbox("Missing Email address enter one and tray again thank you ","Missing Email address",48 ) FORM.ENTRYFIELDFWO_PDF1.setFocus() ENDIF return ***************************************************** Stan Dan Wrote: > Hi all, > > I did a payroll app using dbase plus. Now there is an order for me to make each payslip be sent through email to each workers. > > Please how do I go about this. Your assistance is urgently needed. > > Stan | |