Mailversand aus RPG

[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

[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.