email mit java

[muadeep]

also mit dem Command "Java" erhalte ich folgendes

Java-Programm ausführen (JAVA)

Auswahl eingeben und Eingabetaste drücken.

Klassendatei oder JAR-Datei . .

Parameter . . . . . . . . . . . *NONE

+ für weitere Werte

Klassenpfad . . . . . . . . . . *ENVVAR

Zusätzliche Parameter

Sicherh.prüf.stufe Klassenpfad *WARN *WARN, *SECURE, *IGNORE
Weitere ...
F3=Verlassen F4=Bedienerf. F5=Aktualisieren F12=Abbrechen
F13=Verwendung der Anzeige F24=Weitere Tasten


Ich benutze ein Java Programm um mit SQL eine Excelabfrage zu erstellen!
Dieses müßte das Java von Jakarta (POI) benutzen!
Das funkt auf jeden Fall!

Kann dir dazu gerne den RPGLE-Code posten!

[BenderD]

Hallo,

das mit dem default sieht gut aus und der Mechanismus des JVM Starts aus RPG scheint ok zu sein.
Was passiert in deinem Programm mit dem eMail senden denn vorher noch?
in welchem Kontext läuft das Programm? interaktiv oder Batch oder in einem Serverdienst?

mfg

Dieter Bender

also mit dem Command "Java" erhalte ich folgendes

Java-Programm ausführen (JAVA)

Auswahl eingeben und Eingabetaste drücken.

Klassendatei oder JAR-Datei . .

Parameter . . . . . . . . . . . *NONE

+ für weitere Werte

Klassenpfad . . . . . . . . . . *ENVVAR

Zusätzliche Parameter

Sicherh.prüf.stufe Klassenpfad *WARN *WARN, *SECURE, *IGNORE
Weitere ...
F3=Verlassen F4=Bedienerf. F5=Aktualisieren F12=Abbrechen
F13=Verwendung der Anzeige F24=Weitere Tasten


Ich benutze ein Java Programm um mit SQL eine Excelabfrage zu erstellen!
Dieses müßte das Java von Jakarta (POI) benutzen!
Das funkt auf jeden Fall!

Kann dir dazu gerne den RPGLE-Code posten!

[muadeep]

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