Dennis
I'm using R:Mail to send Students E-Mail with customized E-Mail body and also
sending a customized Attachments Award Letter and Confirmation Letter.
I create the Body and and also Print reports (to pdf) in a Declare Cursor.
See the code below
Buddy
***************Start Code here**********************
*(AwrdPDFs.REP To print and email Award letters to individuals)
*(Called from awrdmenu.cmd)
CLS
CLE ALL VAR EXCEPT vssn, active,vloanyear,vbotton,vRptName,VWhr,VDoAck,VEMail,VChgWhr
SEL Email INTO VEMail INDIC IVEMail FROM StudData WHE Assn = .VSSN
SET VAR VDefaultPri = (CVAL('WindowsPrinter'))
PRNSETUP 'Acrobat PDFWriter'
OUT PRI
IF VChgWhr = 'N' THEN
PRI &vRptName WHE assn = .vssn AND (lorgawrd-totcancl <> 0) +
AND LoanYear = .VLoanYear
ELSE
PRI &vRptName WHE assn = .vssn AND LoanYear = .VLoanYear
ENDIF
OUT TERM
DEL C:\MyPDFs\Award.PDF
COPY C:\MyPDFs\MyFile.PDF C:\MyPDFs\Award.PDF
IF VDoAck <> 'N' THEN
OUT PRI
PRI Acknowledgement WHE ASSN = .VSSN
OUT TERM
DEL C:\MyPDFs\Acknow.PDF
COPY C:\MyPDFs\MyFile.PDF C:\MyPDFs\Acknow.PDF
ENDIF
PRNSETUP .VDefaultPri
SET MESS OFF
SET ERR MESS OFF
SET CAPTION ' '
SET VAR vreturn TEXT = (CHAR(013))
SET EOFCHAR OFF
CLS
PAUSE 3 USING 'Acquiring E-Mail address' CAPTION 'MESSAGE' AT 17,22
SEL EMail INTO VEMail INDIC IVEMail FROM STUDATA WHE ASSN = .VSSN
IF VEMail IS NULL THEN
PAUSE 2 USI 'This individual does not have an email address...' AT 10
GOTO Done
ENDIF
SET VAR VPara1Part1 = ('Attached, please find your 2002-2003 Financial Aid Notice.
Please read the notice completely, responding as indicated on the notice.')
SET VAR VPara1Part2 = (' A return email response is not acceptable. A faxed
response is acceptable.')
SET VAR VPara1 = (.VPara1Part1 + .VPara1Part2)
SET VAR VPara2Part1 = +
('The Medical Alumni Loan being offered as part of your aid package is a
University of Pittsburgh School of Medicine private loan. The interest rate is 5%; no
interest accrues until')
SET VAR VPara2Part2 = +
(' repayment begins one year after graduation from medical school. The repayment
period is ten years.')
SET VAR vreturn TEXT = (CHAR(013))
SET VAR Vbody = (.VPara1 + .vreturn + .VPara2Part1 + .VPara2Part2 + .vreturn)
SET VAR vmailto TEXT = ('To:'+ .VEMail)
SET VAR vfrom TEXT = ('From: "Admissions Office" <[EMAIL PROTECTED]>')
SET VAR vsubj TEXT = ('Subject:Award Letters / Acknowledgement')
SET VAR vcc TEXT = ('CC:')
SET VAR vbcc TEXT = ('BCC:')
SET VAR vatline TEXT = ('X-Attachments:C:\MyPDFs\Award.PDF,C:\MyPDFs\Acknow.PDF')
DELETE c:\temp\award.mal
OUTPUT c:\temp\award.mal
WRITE .vmailto
WRITE .vfrom
WRITE .vsubj
WRITE .vcc
WRITE .vbcc
WRITE .vatline
WRITE .vreturn
WRITE .vbody
WRITE .vreturn
WRITE 'If you have any questions, do not hesitate to contact our office.'
WRITE .vreturn
WRITE 'Office of Admissions and Financial Aid'
WRITE 'University of Pittsburgh School of Medicine'
WRITE '518 Scaife Hall'
WRITE 'Pittsburgh, PA 15261'
WRITE .vreturn
WRITE 'Phone: 412-648-9891'
WRITE 'Fax: 412-648-8768'
WRITE .vreturn
OUTPUT SCREEN
SET EOFCHAR ON
SET VAR vrmail = (UDF('@RMail.DLL','c:\temp\Award.MAL'))
CLS
SET VAR vresult = (UDF('@RMSG.DLL','4160|OPERATION SUCCESSFUL|The Messages Have Been
Delivered!'))
LABEL done
SET EOFCHAR ON
RETURN
**************End Code Here*********************
-----Original Message-----
From: Dennis Fleming [mailto:[EMAIL PROTECTED]
Sent: Monday, March 24, 2003 10:15 AM
To: RBASE-L Mailing List
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
