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
>
>
>
>
