|
That's the funny part, the return code says that the it completed normally, but it doesn't get to it's recipient. Thanks, Mark Mark D. Walter Senior Programmer/Analyst CCX, Inc. mwalter@xxxxxxxxxx http://www.ccxinc.com RPower@xxxxxxxxxx Sent by: rpg400-l-bounces@ To midrange.com RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc 05/25/2005 12:24 PM Subject Re: Using Javamail w/RPG Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> I'm successfully using the JavaMail program. I've created wrappers for it, mind you not ILE code, but good RPGIV. It uses a codes table if a code is sent to it, otherwise it accepts the from email address and to email address. Here's the code, I'll dig up the properties file and send it in another email. What error code are you getting? It doesn't matter about the AS/400 DIRE's. They aren't used by the Javamail program. ? ?***************************************************************** ??*? Program: SENDEMAIL ? ?*? Date : FEB 07, 2003 ???***************************************************************** ??? h dftname(sendemail) Datedit(*YMD) Option(*SrcStmt : *NoDebugIO) ?femailcdpf if e k disk fqsysprt o f 132 printer oflind(*inof) d from S 50 d fromadr S 50 d to S 50 d replyTo S 50 d subject S 50 d errcde S 3 d filename S 100 d text S 9999 d rtnCode S 3 d rtnText S 50 d firstpas S 1 d sysnam S 8 d dashes S 132 d tabn s 2 0 dim(12) ctdata perrcd(1) EXPANDED DATE TAB d taba s 9 dim(12) alt(tabn) d date ds d odate 18 d omnth 9 overlay(odate) d ofil1 1 overlay(odate:10) d oday 2 0 overlay(odate:11) d ocoma 2 inz(', ') d overlay(odate:13) d oyear 4 0 overlay(odate:15) d odd s 2 0 d omm s 2 0 d oyy s 4 0 ??* Program requires a mailing code and a from address, from address only used ??* if different than from address in mailing codes file. c *entry plist c parm emailcd c parm fromadr c parm filename c parm subject c parm errcde ?* Set first pass flag c eval firstpas = '1' c call 'GETSYS' c parm sysnam ?* Start the environment variables c call 'STRMAIL' ?* Using passed email code get the parms for sending the email. c emailcd chain emailcdpf 99 c 99 exsr nocode c *in99 doweq '0' c if fromadr <> ' ' and fromadr <> emfrom c eval from = fromadr c else c eval from = emfrom c endif ?* Default replyto to always be the from address. c eval replyTo = from c eval text = emtext c eval to = emaddr ?* Call javamail program to send email c call 'JAVAMAIL' c parm from c parm to c parm replyTo c parm subject c parm text c parm filename c parm rtnCode c parm rtnText ?* Check for error message on return c eval errcde = rtnCode c rtnCode ifne '000' c firstpas ifeq '1' c except head c eval firstpas = '0' c endif c *inof ifeq '1' c except head c eval *inof = '0' c endif c except deterr c endif c emailcd reade emailcdpf 99 c enddo ?* Stop the environment variables c call 'CLSMAIL' c Eval *InLr = *On ?*----------------------------------------------------------------- ?* This routine will generate an expanded date from the ?* fields oyy, omm, and odd which are the year, month and day ?* fields of the desired date. ?* The expanded date will be placed in the field 'ODATE' ?* by this subroutine. c oxdate begsr c omm lookup tabn taba 10 c movel taba omnth c eval oday = odd c eval oyear = oyy c endsr *----------------------------------------------------------------- ?* Initialization subroutine, run first time pgm called c *inzsr begsr Y2K c eval oyy = *year c eval omm = umonth c eval odd = uday c exsr oxdate c move *all'-' dashes c endsr ?*----------------------------------------------------------------- ?* Code not found on file for email code sent, give error message c nocode begsr c firstpas ifeq '1' c except head c eval firstpas = '0' c endif c *inof ifeq '1' c except head c eval *inof = '0' c endif c except detcde c Eval Errcde = 'NCD' c endsr ?*----------------------------------------------------------------- oqsysprt ef head 03 03 o page z 130 o odate 118 o 80 'Email exception report lis+ o t ' o 18 '/SENDEMAIL' o sysnam 8 o ef head 01 o 14 'Email Address/' o 67 'Exception Message' o ef head 01 o 13 'Filename ' o ef head 01 o dashes 132 o ef deterr 01 o to 50 o rtnText 100 o ef deterr 01 o filename 100 o ef detcde 01 o 14 'Email code: ' o emailcd 18 o 36 ' not found please ' o 53 'check codes file!' ** 01 JANUARY 02 FEBRUARY 03 MARCH 04 APRIL 05 MAY 06 JUNE 07 JULY 08 AUGUST 09SEPTEMBER 10 OCTOBER 11 NOVEMBER 12 DECEMBER Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 Tel: 709-576-8132 Email: rpower@xxxxxxxxxx Website: http://www.stjohns.ca/ ___________________________________________________________________________ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill MWalter@xxxxxxxxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx 25/05/2005 04:02 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc Subject Using Javamail w/RPG I'm having a problem using the Javamail program w/RPG. I used Mr. Zhang's example, and wrapped the calls into a service program. The return code is saying that the Send Mail Completed Normally, but the mail is not delivered. I'm wonder about the Javamail.properties file. What should that file look like? Also, SMTP attributes. I'm trying to send email from my iSeries user id, 'mark at hanoverwire.com' to my personal email address. I have 'mark at hanoverwire.com' listed in WRKNAMSMTP. It works with SNDDST. Not sure what's happening here. Is anyone successfully using this? Thanks, Mark Mark D. Walter Senior Programmer/Analyst CCX, Inc. mwalter@xxxxxxxxxx http://www.ccxinc.com -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
