GordS
03-26-2011, 05:36 PM
I am using vvMail to send an e-mail to users of my application.
It worked no problem before I put the latest Valence 2.2 maintenance release. Here is my RPG code.
fApUserLe if e k Disk
** internal procedures...
d SendEmail pr
/define includeEMAIL
/copy qcpylesrc,vvDspec
** --------------------------------------------------------------
/free
SendEmail();
*inlr=TRUE;
/end-free
** --------------------------------------------------------------
** Subprocedures
** --------------------------------------------------------------
p SendEmail b
d SendEmail pi
/free
vvMail.port = '25';
vvMail.host = 'mail';
vvMail.from='support@ampmsoftware.com';
vvMail.subject=vvIn_Char('XSUBJECT');
vvMail.body =vvIn_Char('XBODY');
UmCustomer=vvIn_Char('XTO');
SetLL UmCustomer ApUserLe;
ReadE UmCustomer ApUserLe;
DoW Not %Eof(ApUserLe);
vvMail.to = UmEmailAdr;
if not vvMail_send(vvMail);
vvOut_toJSONpair('SUCCESS:0,FLD:XTO,MSG:'+%trim(vv Mail.error));
return;
endif;
// Process Next Record
ReadE UmCustomer ApUserLe;
EndDo;
// Looks good - send the email
//
vvOut_toJSONpair('SUCCESS:1');
/end-free
p e
Here is the job log I get when running this program.
Library list changed.
Current directory changed.
Environment variable added.
Environment variable added.
JVM properties were loaded from a properties file.
Java Virtual Machine is Classic.
JVM properties were loaded from a properties file.
Java exception received when calling Java method.
Function check. RNX0301 unmonitored by VVSRVPGM at statement 0000013100,
instruction X'0000'.
The call to SENDEMAIL ended in error (C G D F).
Why are we getting this error?
It worked no problem before I put the latest Valence 2.2 maintenance release. Here is my RPG code.
fApUserLe if e k Disk
** internal procedures...
d SendEmail pr
/define includeEMAIL
/copy qcpylesrc,vvDspec
** --------------------------------------------------------------
/free
SendEmail();
*inlr=TRUE;
/end-free
** --------------------------------------------------------------
** Subprocedures
** --------------------------------------------------------------
p SendEmail b
d SendEmail pi
/free
vvMail.port = '25';
vvMail.host = 'mail';
vvMail.from='support@ampmsoftware.com';
vvMail.subject=vvIn_Char('XSUBJECT');
vvMail.body =vvIn_Char('XBODY');
UmCustomer=vvIn_Char('XTO');
SetLL UmCustomer ApUserLe;
ReadE UmCustomer ApUserLe;
DoW Not %Eof(ApUserLe);
vvMail.to = UmEmailAdr;
if not vvMail_send(vvMail);
vvOut_toJSONpair('SUCCESS:0,FLD:XTO,MSG:'+%trim(vv Mail.error));
return;
endif;
// Process Next Record
ReadE UmCustomer ApUserLe;
EndDo;
// Looks good - send the email
//
vvOut_toJSONpair('SUCCESS:1');
/end-free
p e
Here is the job log I get when running this program.
Library list changed.
Current directory changed.
Environment variable added.
Environment variable added.
JVM properties were loaded from a properties file.
Java Virtual Machine is Classic.
JVM properties were loaded from a properties file.
Java exception received when calling Java method.
Function check. RNX0301 unmonitored by VVSRVPGM at statement 0000013100,
instruction X'0000'.
The call to SENDEMAIL ended in error (C G D F).
Why are we getting this error?