Mailversand aus RPG

[doc82]

Wir arbeiten auf unserer AS400 mit RPG, und nun ist es erforderlich, dass ich aus einem RPG-Programm heraus ein Email verschicken muß.

Was muß man da nun alles machen? Wie heißt der Befehl, den man verwenden muß? bzw. wie muß man den aufruf ins RPG Programm einbauen??

mfg

Doc82

[malzusrex]

Wir arbeiten auf unserer AS400 mit RPG, und nun ist es erforderlich, dass ich aus einem RPG-Programm heraus ein Email verschicken muß.

Was muß man da nun alles machen? Wie heißt der Befehl, den man verwenden muß? bzw. wie muß man den aufruf ins RPG Programm einbauen??

mfg

Doc82

hi doc82

du hast doch schon hier
antworten auf deine frage bekommen ?!?!?

gruß ronald

[doc82]

da ich mich leider mit dem RPG noch nicht so richtig auskenne, habe ich gehofft, dass man mir vielleicht ein Text-Beispiel(was ich ins rpg Programm reinschreiben soll) zur verfügung stellen kann.

[KM]

Schau Dir doch mal folgende Seite an. Da ist eine Möglichkeit Mails mittels Java aus einem RPG-Programm zu verschicken genau beschrieben. Ich nutze ausschließlich dieses Tool und es funktioniert wunderbar. (Du benötigst dafür natürlich einen Mail-Server.)

http://www.ignite400.org/news/news2002070401.htm

Gruß,
KM

[doc82]

Danke für die Möglichkeit mit dem Java, aber wäre es auch möglich eine Mail ohne einem zusätzlichen Programm, direkt aus dem rpg Programm zu versenden. Stellt AS400 ein Programm zur Verfügung, das aus dem RPG Programm heraus aufgerufen werden kann, die ein Mail versendet?? wenn ja, wie heißt es und wie kann man es ins RPG Programm einbauen??

[KM]

Ich kenne ansonsten eigentlich nur noch die Möglichkeit mit SNDDST bzw. dem API QtmmSendMail. Allerdings musst Du hierfür deutlich mehr konfigurieren als bei der Java-Variante. Was spricht denn gegen die Java-Lösung ?

Gruß,
KM

[kuempi von stein]

Schau Dir doch mal folgende Seite an. Da ist eine Möglichkeit Mails mittels Java aus einem RPG-Programm zu verschicken genau beschrieben. Ich nutze ausschließlich dieses Tool und es funktioniert wunderbar. (Du benötigst dafür natürlich einen Mail-Server.)

http://www.ignite400.org/news/news2002070401.htm

Gruß,
KM

hello KM,

ich möchte diese Geschichte nochmal aufgreifen...
Meine Frage zielt darauf ab, wie es mit der Möglichkeit aussieht, diese produzierten mails
zusätzlich noch zu verschlüsseln... (PGP,SMIME und was weiss ich wie die heissen..)

Kannst Du da auch noch was zu sagen?

Gruss

kuempi

[KM]

Sorry, aber da kann ich Dir leider nicht weiterhelfen. Bis jetzt musste ich noch keine Mails verschlüsseln. Ich denke aber das geht nur über PGP bzw. S/MIME. Also auf der iSeries sehe ich da bis jetzt keine Möglichkeit dafür.

Gruß,
KM

[doc82]

danke

Ich kenne ansonsten eigentlich nur noch die Möglichkeit mit SNDDST bzw. dem API QtmmSendMail. Allerdings musst Du hierfür deutlich mehr konfigurieren als bei der Java-Variante. Was spricht denn gegen die Java-Lösung ?

Gruß,
KM

der grund, wieso ich gegen die Java-Lösung bin, ist weil unser Systemadministrator auf die Maschine das Java nicht installieren will.

Hättest du vielleicht eine Beispiel für SNDDST bzw QtmmSendMail??

[KM]

Für die Konfiguration der iSeries als SMTP Server schau Dir mal folgenden Link an:

http://search400.techtarget.com/tip/...818531,00.html

Dann solltest Du mit SNDDST Mails versenden können.

Gruß,
KM

[rolf]

Ich will mal nicht so sein.
Wenn die Konfiguration ok ist (prüfen mit manuellem Versand mittels SNDDST), kannst du im RPGLE wie folgt ein mail senden.

D*--------------------------------------
D* Prototype for Command-Execution
D*--------------------------------------
D Cmd PR ExtPgm('QCMDEXC')
D command 6000A const
D len 15P 5 const
D CmdCmd s 6000A
D CmdLen s 15P 5 inz(%len(CmdCmd))

/Free
// Create Command to send message
CmdCmd = 'SNDDST TYPE(*LMSG) TOINTNET((''' +
%Trim(EmailAdresse) +
''')) DSTD(''' +
%trim(Subject) +
''') LONGMSG(''' +
%trim(LMsg) +
''') USRID(' +
%trim(AbsenderID) + ' ' +
%trim(AbsenderAdr) +
')' ;
CallP Cmd(CmdCmd : CmdLen);
/End-Free

AbsenderID und -Adr sind die Kennung aus WRKDIRE.
Man könnte hierfür auch den Standardwert (*current) benutzen. Dann einfach diesen Parameter weglassen.
Achte darauf, dass die als Parameter benutzten Variablen keine Hochkommas beinhalten, sonst gibts Probleme.