Ben
Here is the code I used in 6.5. In the middle of moving and can't find
the one's I have in 7.x
Buddy
*************Code Starts Here**********************
CLS
SET MESS OFF
SET ERR MESS OFF
CLEAR ALL VAR
SET VAR VWho TEXT = (CVAL('NAME'))
SET VAR VWhen DATE = (.#DATE)
SET VAR VWhat TEXT = ('COMPLSOM.EML')
LABEL GETDATE
--There must be a carriage return after the E-Mail Header
SET VAR VCR = (CHAR(013))
SET VAR VQUOTE = (CHAR(039))
SET VAR VQUOTES = (CHAR(034))
SET VAR VEMail TEXT
SET VAR VFrom TEXT
SET VAR vmailto TEXT
SET VAR vfrom TEXT
SET VAR vsubj TEXT
SET VAR vcc TEXT
SET VAR vbcc TEXT
SET VAR vatline TEXT
SET VAR vspace = (CHAR(032))
SET VAR vlogentry TEXT
SET VAR vstatus TEXT
SET VAR VErrorLogFile TEXT = ((CVAL('NAME')) + '.err')
DEL &VErrorLogFile
OUT &VErrorLogFile
WRI ' '
WRI ' '
WRI 'Complete for SOM Aid Email Log'
WRI ' '
WRI ' '
OUT TERM
CLS FROM 6
PAUSE 3 USI 'Looking for Records that are Complete for SOM Aid' AT
CENTER CENTER
DROP VIEW CompleteSOM
CREATE VIEW CompleteSOM (ASSN,GFNAME,GMNAME,GLNAME, +
OAIDDONE,OSCHLYR,IACEMAIL,EMAIL ) +
AS SELECT +
T1.ASSN,T1.GFNAME,T1.GMNAME,T1.GLNAME, +
T2.OAIDDONE,T2.OSCHLYR,T2.IACEMAIL, T1.EMAIL +
FROM STUDATA T1, MASTER T2 WHERE +
(T2.OAIDDONE IS NOT NULL AND IACEMAIL IS NULL AND T1.ASSN =
T2.ASSN)
SET VAR FULLNAME TEXT, VMSG TEXT,+
VMSG1 TEXT, XEMAIL TEXT, VSALUTE TEXT, +
VMSG2 TEXT, VMSG3 TEXT, VMSG4 TEXT, VCMSG TEXT
SEL COUNT(*) INTO VROWS INDIC IROWS FROM CompleteSOM WHE OSCHLYR
IN (1,2,3,4,10) +
AND EMAIL IS NOT NULL
IF VROWS = 0 THEN
CLS FROM 6
PAUSE 2 USI 'no complete for SOM aid emails to send' AT CENTER
CENTER
GOTO DONE
ENDIF
SEL COMPsomMS1,COMPsomMS2,COMPsomMS3,COMPsomMS4 INTO +
ParaMS1 INDIC IParaMS1, +
ParaMS2 INDIC IParaMS2, +
ParaMS3 INDIC IParaMS3, +
ParaMS4 INDIC IParaMS4 +
FROM MAINMENU WHE COUNT = 1
SEL AcademicYear INTO VaDATE INDIC IADATE FROM CURRYEAR WHE COUNT =
1
DROP CURSOR C#1
DECL C#1 CURSOR FOR SEL ASSN, GFNAME, GLNAME, EMAIL +
FROM COMPLETEsom WHE OSCHLYR IN (1,2,3,4,10)
OPE C#1
FETCH C#1 INTO +
VASSN INDIC IASSN, +
VGFNAME INDIC IGFNAME, +
VGLNAME INDIC IGLNAME, +
VEMAIL INDIC IEMAIL
WHILE SQLCODE <> 100 THEN
DELETE C:\TEMP\COMPLsom.MAL
SET EOFCHAR OFF
IF VEmail IS NULL THEN
CLS FROM 6
SET V VMSG TEXT = ( (.VGFNAME & .VGLNAME) & 'has no email
address. Notify by mail')
PAUSE 2 USI .VMSG
GOTO GETNEXT
ENDIF
SET VAR vmailto TEXT = ('To:'+ .VEMail)
SET VAR vfrom TEXT = ('From: "Office of Admissions and Financial Aid"
<[EMAIL PROTECTED]>')
SET VAR vsubj TEXT = ('Subject: Complete Application for School of
Medicine Aid')
SET VAR vcc TEXT = ('CC:')
SET VAR vbcc TEXT = ('BCC:[EMAIL PROTECTED]')
-- PRINT someReport that creates the pdf file
--Use the same file name for all - only data in file changes you
SET VAR vatline TEXT =
('X-Attachments:C:\MyPDFs\Award.PDF,C:\MyPDFs\Acknow.PDF')
OUT C:\TEMP\COMPLsom.MAL
WRI .Vmailto
WRI .VFrom
WRI .vsubj
WRI .vcc
WRI .vbcc
WRI .vatline
WRI .VCR
SET VAR FULLNAME = (.VGFNAME & .VGLNAME)
SET VAR VSALUTE TEXT = ('Dear' & .FULLNAME + ':')
WRI .VSALUTE
SET VAR VMSG = +
('This is just to let you know that your application for' &
.VADATE & 'School of Medicine Need-Based Financial Aid is now
complete.')
SET VAR VMSG1 = +
('You may expect to hear from us on the following schedule:')
SET VAR VCMSG = (.VMSG & .VMSG1)
WRI ' '
WRI .VCMSG
WRI ' '
WRI 'Incoming MS1'
WRI .ParaMS1
WRI ' '
WRI 'Incoming MS2'
WRI .ParaMS2
WRI ' '
WRI 'Incoming MS3'
WRI .ParaMS3
WRI ' '
WRI 'Incoming MS4'
WRI .ParaMS4
SET VAR VMSG = +
('The Office of Admissions and Financial Aid staff is available to
answer any additional questions you have concerning financial aid.')
SET VAR VMSG1 = +
('If we can be of assistance to you, please contact our office.')
SET VAR VCMSG = (.VMSG & .VMSG1)
WRI ' '
WRI .VCMSG
WRI ' '
WRI ' '
WRI 'University of Pittsburgh School of Medicine'
OUT TERM
--send email to applicant
SET EOFCHAR ON
SET VAR vrmail = (UDF('@RMail.DLL', 'C:\TEMP\COMPLsom.MAL'))
SWITCH (.vrmail)
CASE 'S'
SET VAR vstatus TEXT = ('Sent' & (CTXT(.#DATE)) + .vspace + .vspace
+ .vspace + .vspace + .vspace + .vspace + .vspace + .vspace + .vspace +
.vspace + .vspace + .vspace + .vspace)
BREAK
CASE 'N'
SET VAR vstatus TEXT = ('**Not Sent' & (CTXT(.#DATE)) + .vspace +
.vspace + .vspace + .vspace + .vspace + .vspace + .vspace)
BREAK
CASE 'A'
SET VAR vstatus TEXT = ('**Aborted by User' & (CTXT(.#DATE)))
BREAK
DEFAULT
BREAK
ENDSW
SET VAR vlogentry = (.vstatus + ' ' + .FULLNAME+ ' ' + .vEmail
+ (CHAR(013)))
OUTPUT &VErrorLogFile APPEND
WRITE .vlogentry
OUTPUT SCREEN
UPD MASTER SET IAcEmail = .#DATE WHE ASSN = .VASSN
LABEL GETNEXT
FETCH C#1 INTO +
VASSN INDIC IASSN, +
VGFNAME INDIC IGFNAME, +
VGLNAME INDIC IGLNAME, +
VEMAIL INDIC IEMAIL
ENDWHILE
DROP CURSOR C#1
CLS FROM 6
PAUSE 2 USI 'Printing Email Log' AT CENTER CENTER
OUT PRI
TYPE &VErrorLogFile
OUT TERM
LABEL DONE
CLEAR ALL VAR
******Code Ends Here
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Ben Fogt
Sent: Thursday, February 10, 2005 12:18 PM
To: RBG7-L Mailing List
Subject: [RBG7-L] - RE: R:Mail Attachments
It seems that the other process I wrote that was working last week
failed last night in the same way. Does anyone have much experience
with R:Mail attachments?
Ben
