Thanks Sami/Buddy, Maybe we can work in some RBase/RMail tips/techniques into the special conference sessions (?)
Dennis ***** At 10:05 AM 3/24/2003 -0600, you wrote: >Dennis - > >Here is a block of code that I use within a DECLARE CURSOR routine to send >multiple emails out, each with an attachement. >Sami >----------------------------------------------------------------- >Sami Aaron >Software Management Specialists >19312 W 63rd Terr >Shawnee KS 66218 >mailto:[EMAIL PROTECTED] >913-915-1971 > >SET V vrmailexists INTEGER = NULL >SET V vrmailexists = (CHKFILE('RMAIL.DLL')) >IF vrmailexists = 0 THEN > DIALOG 'R:Mail not installed. Create Adobe PDF files anyway?' vresp vkey + > NO CAPTION 'Send Not Completed Reports' ICON QUESTION AT CENTER CENTER > IF vresp = 'no' OR vkey = '[ecsc]' THEN > CLEAR VAR vresp,vkey,vrmail > RETURN > ENDIF >ENDIF > > >--Attach the PDF file to an email >IF vrmailexists = 1 THEN > SET V vmailto TEXT = ('To:' & .vappemail) > SET V vfrom TEXT = NULL > SELECT ('From: "' + Nme + '" <' + OwnrEmail + '>') INTO vfrom v1 FROM Ownr > SET V vsubj TEXT= ('Subject: Assignments Not Completed' & (CTXT(.#DATE))) > SET V vatline TEXT = ('X-Attachments:' & .vFile) > SET V vsalut = ('Dear' & (ICAP2(.vafname)) + ':') > > SELECT IHID,IHEmail,IHFirstName,IHLastName + > INTO vihid v1,vihemail v1,vihfirstname v1,vihlastname v1 + > FROM InHouseRep WHERE IHID = (SELECT IHID FROM Appraise + > WHERE Appr# = .vappr#) > SET V vbody = + > ('Attached is your list of Asignments that are Not Completed.') > SET V vbody = + > (.vbody & 'Please contact' & .vihfirstname & .vihlastname & 'at' & + > 'mailto:' + .vihemail) > SET V vbody = (.vbody & 'at the' & .xnme & + > 'office if you have any questions.') > > DELETE c:\email.mal > OUTPUT c:\email.mal > WRITE .vmailto > WRITE .vfrom > WRITE .vsubj > WRITE 'CC:' > WRITE 'BCC:' > WRITE .vatline > WRITE .vreturn > WRITE .vsalut > WRITE .vreturn > WRITE .vbody > OUTPUT SCREEN > > SET VAR vrmail = (UDF('@RMail.DLL','C:\email.mal')) > SWITCH (.vrmail) > CASE 'S' > SET V vMess = 'Message was Sent successfully!' > PAUSE 3 USING .vMess CAPTION .vappname > BREAK > CASE 'N' > SET V vMess = 'Message was Undeliverable!' > PAUSE 2 USING .vMess CAPTION .vappname AT CENTER CENTER > BREAK > CASE 'A' > SET V vMess = 'Delivery was Aborted!' > PAUSE 2 USING .vMess CAPTION .vappname AT CENTER CENTER > BREAK > DEFAULT > BREAK > ENDSW > >INSERT + >INTO EmailSent (DateSent,SentTo,AttachmentName,MailResult,MenuChoice) + >VALUES (.#DATE,.vappemail,.vFile,.vMess,'Send Not Completed Reports') >ENDIF > > > > >----- Original Message ----- >From: "Dennis Fleming" <[EMAIL PROTECTED]> >To: "RBASE-L Mailing List" <[EMAIL PROTECTED]> >Sent: Monday, March 24, 2003 9:15 AM >Subject: [RBASE-L] - RMailers? > > >> We want to send a report either in the body of the e-mail message, or as >an >> attachement, for PO's requiring approval. Anyone using RMail who can >> provide some developer feedback. >> >> TIA, >> >> Dennis >> ***** >> Dennis Fleming >> IISCO >> http://www.TheBestCMMS.com >> Phone: 570 775-7593 >> Fax: 570 775-9797 >> >> >> >> > > > Dennis Fleming IISCO http://www.TheBestCMMS.com Phone: 570 775-7593 Fax: 570 775-9797
