Thank you for your help - one addition
On 8/16/2010 11:28 AM, Dennis McGrath wrote:
drop cursor c1
drop cursor c2
DECLARE c1 CURSOR FOR SELECT DISTINCT CUSTIDEN FROM VWEMAILCUST where EMAIL
IS NOT NULL AND EMAIL NOT CONTAIN 'EMAIL'
*open c1*
* FETCH c1 INTO vCUSTIDENFMIND v1*
* *
* WHILE sqlcode<>100 THEN
*
**
*--defineVCUSTIDENFM here*
* drop cursor c2*
DECLARE c2 CURSOR FOR SELECT EMAIL FROM VWEMAILCUST where CUSTIDEN =
.VCUSTIDENFM
OPEN c1
OPEN c2 reset
clear var vemailname
set v vemailname text
set v vcount integer = 0
FETCH c2 INTO vemailIND v2
WHILE sqlcode<>100 THEN
if vcount = 0 then
set v vemailname = .vemail
else
set v vemailname = (.vemailname + ',' + .vemail)
endif
set v vcount = (.vcount + 1)
FETCH c2 INTO vemailIND v2
ENDWHILE
label emailsetup
set v vSUBJECT = (FirstName& MiddleName& LastName& FullNameX&
'CUSTOMER CONFIRMATION' ) from A1Customer where custiden = .vcustidenFM
set v vfullnamexem = (CTXT(.VCUSTIDENFM))
set v vdirectory text = ('c:\pdf_files\')
set v vfileext text = ('.pdf')
set v vfullnamexpdf = (.vdirectory + .vfullnamexem + .vfileext)
--('c:\pdf_files\' + .vfullnamexem + '.pdf')
SET V VBODY TEXT = EmailMsgTxt FROM A3EmailMgs WHERE EmailMgsIden = 3
WRITE .VCUSTIDENFM .vemailname .vfullnamexpdf .VSUBJECT
clear var vemailname
set v vemailname text
set v vcount integer = 0
FETCH c1 INTO vCUSTIDENFMIND v1
ENDWHILE
--
*J. Blaustein*
*J Blaustein Associates, Inc.*
* 12 Herrick Drive*
* Lawrence, NY 11559*
*516-371-3445 FAX 516-345-8009*
