× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.