Habe mal versucht in der QSHELL die "JavaMail.java" mit javac umzuwandeln so daß mir die *.class - Datei erstellt wird!
(javac JavaMail.java)

Bekomme dann folgende Fehlermeldungen!
JavaMail.java:7: package javax.mail does not exist
import javax.mail.*;

JavaMail.java:8: package javax.mail.internet does not exist
import javax.mail.internet.*;
^
JavaMail.java:54: cannot resolve symbol
symbol : class Session
location: class JavaMail
Session session = Session.getDefaultInstance(systemProperty, null);
^
JavaMail.java:54: cannot resolve symbol
symbol : variable Session
location: class JavaMail
Session session = Session.getDefaultInstance(systemProperty, null);
:
:
JavaMail.java:88: cannot resolve symbol
symbol : class MessagingException
location: class JavaMail
realException = ((MessagingException)realException).getNextExcepti on();
^
JavaMail.java:92: cannot resolve symbol
symbol : class MessagingException
location: package mail
if (realException instanceof javax.mail.MessagingException)
^
18 errors

hab dann mal nach der "javax.mail" suchen lassen, die ist gar nicht auf meiner AS/400!
genaus wie die "javax.mail.internet"

könnte es veileicht daran liegen?
Fals ja, wo bekomme ich die her und wie muß ich sie installieren!

Im RPGL habe ich folgendes:
H DftActGrp(*NO) ActGrp(*CALLER)
************************************************** ************************
* JavaMail: RPG call Java method to send email *
* *
* 22.03.2004 *
************************************************** ************************
D Class1 C 'JavaMail'
D Class2 C 'JavaMailwithAttachment'

/Copy QRPGLESRC,JAVAMAILPR

D from S 50
D to S 50
D replyTo S 50
D subject S 50
D text S 9999
D filename S 100
D charRtnCode S 3
D rtnCode S 5I 0
D rtnText S 100

D sFrom S O Class(*JAVA:'java.lang.String')
D sTo S O Class(*JAVA:'java.lang.String')
D sReplyTo S O Class(*JAVA:'java.lang.String')
D sSubject S O Class(*JAVA:'java.lang.String')
D sText S O Class(*JAVA:'java.lang.String')
D sFilename S O Class(*JAVA:'java.lang.String')

**
**
C *entry PList
C Parm from
C Parm to
C Parm replyTo
C Parm subject
C Parm text
C Parm filename
C Parm charRtnCode
C Parm rtnText

* Create String objects from the alphanumeric constants
c If from <> ' ' and to <> ' '
C Eval sFrom = newString(%trim(from))
C Eval sTo = newString(%trim(to))

C If replyTo = ' '
C Eval sReplyTo = newString(' ')
C Else
C Eval sReplyTo = newString(%trim(replyTo))
C EndIf

C If subject = ' '
C Eval sSubject = newString(' ')
C Else
C Eval sSubject = newString(%trim(subject))
C EndIf

C If text = ' '
C Eval sText = newString(' ')
C Else
C Eval sText = newString(%trim(text))
C EndIf

C If filename = ' '
C Eval rtnCode = sendMail1(sFrom:sTo:sReplyTo:
C sSubject:sText)
C Else
C Eval sFilename = newString(%trim(filename))
C Eval rtnCode = sendMail2(sFrom:sTo:sReplyTo:
C sSubject:sText:sFilename)
C EndIf

C Else
C Eval rtnCode = 105
C EndIf

C ExSr $setRtnCode

C Eval *InLR = *On
************************************************** **************
* $SetRtnCode: Set return code *
************************************************** **************
C $SetRtnCode BegSr

C Select
C When rtnCode = 0
C Eval rtnText = 'Send mail completed.'
C When rtnCode = 100
C Eval rtnText = 'Email property file not found.'
C When rtnCode = 101
C Eval rtnText = 'javax.mail.MessagingException'
C When rtnCode = 102
C Eval rtnText = 'java.net.ConnectException'
C When rtnCode = 103
C Eval rtnText = 'java.net.UnknownHostException'
C When rtnCode = 104
C Eval rtnText = 'Attachment file not found!'
c When rtnCode = 105
c Eval rtnText = 'Email address not found!'
C When rtnCode = 999
C Eval rtnText = 'Run time error.'

C EndSl

C Move rtnCode charRtnCode

C EndSr