Im nachfolgenden Beispiel wird gezeigt, wie man von der 5250-Oberfl äche aus oder einer solchen Anwendung direkt das E-Mail-Fenster vom PC öffnen kann. Je nach Bedarf können bestimmte Werte wie An, Cc, Bcc, Betreff und E-Mail-Text direkt mitgegeben werden. Unter An, Cc und Bcc können auch mehrere E-Mail-Adressen durch Semikolon getrennt hintereinander
angegeben werden.
Wichtig: Die Anzahl an Zeichen aller mitgegebenen Werte darf zusammen nicht länger als 123 Zeichen sein!
Ausführung als Befehl mit einigen Beispielwerten: Hier die CMD-Quelle vom Befehl: OPN_EMAIL
***************** Datenanfang ********************************** 0001.00 CMD PROMPT(‚e-mail variabel öff nen‘) 0002.00 0003.00 PARM KWD(TO) TYPE(*CHAR) LEN(40) MIN(1) PROMPT(‚An‘) 0004.00 PARM KWD(CC) TYPE(*CHAR) LEN(32) PROMPT(‚Cc‘) 0005.00 PARM KWD(BCC) TYPE(*CHAR) LEN(32) PROMPT(‚Bcc‘) 0006.00 PARM KWD(BETREFF) TYPE(*CHAR) LEN(40) PROMPT(‚Betreff ‘) 0007.00 PARM KWD(TEXT1) TYPE(*CHAR) LEN(32) PROMPT(‚e-mail-Text Zeile 1‘) 0008.00 PARM KWD(TEXT2) TYPE(*CHAR) LEN(32) PROMPT(‚e-mail-Text Zeile 2‘) 0009.00 PARM KWD(TEXT3) TYPE(*CHAR) LEN(32) PROMPT(‚e-mail-Text Zeile 3‘) 0010.00 0011.00 F10: PARM KWD(FROM) TYPE(*CHAR) LEN(32) + 0012.00 PMTCTL(*PMTRQS) PROMPT(‚Von‘) ******************Datenende ************************************
Parameterwerte zum Erstellen des Befehls:
Befehl erstellen (CRTCMD) Befehl . . . . . . . . . . . . . > OPN_EMAIL Name Bibliothek . . . . . . . . . . > MY_LIB Name, *CURLIB Befehlsverarbeitungsprogramm . . > OPN_EMAILP Name, *REXX Bibliothek . . . . . . . . . . > MY_LIB Name, *LIBL, *CURLIB
Hier die CLP-Quelle vom Befehlsverarbeitungsprogramm:
OPN_EMAILP
****************************Datenanfang**************************** 0001.00 PGM PARM(&TO &CC &BCC &SUBJECT &BODY1 &BODY2 + 0002.00 &BODY3 &FROM) 0003.00 0004.00 DCL VAR(&TO) TYPE(*CHAR) LEN(40) 0005.00 DCL VAR(&CC) TYPE(*CHAR) LEN(32) 0006.00 DCL VAR(&BCC) TYPE(*CHAR) LEN(32) 0007.00 DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(40) 0008.00 DCL VAR(&BODY1) TYPE(*CHAR) LEN(32) 0009.00 DCL VAR(&BODY2) TYPE(*CHAR) LEN(32) 0010.00 DCL VAR(&BODY3) TYPE(*CHAR) LEN(32) 0011.00 0012.00 DCL VAR(&FROM) TYPE(*CHAR) LEN(32) /* Nur + 0013.00 vorbereitet, aber noch nicht verwendet. */ 0014.00 0015.00 DCL VAR(&PCCMD) TYPE(*CHAR) LEN(256) 0016.00 MONMSG CPF0000 0017.00 0018.00 STRPCO 0019.00 MONMSG MSGID(IWS0000) 0020.00 0021.00 /* e-mail variabel öff nen */ 0022.00 0023.00 CHGVAR VAR(&PCCMD) VALUE(‚START „“ + 0024.00 „mailto:‘ *CAT &TO *TCAT ‚?‘ + 0025.00 *CAT ‚CC=‘ *CAT &CC *TCAT ‚&‘ + 0026.00 *CAT ‚BCC=‘ *CAT &BCC *TCAT ‚&‘ + 0027.00 *CAT ‚SUBJECT=‘ *CAT &SUBJECT *TCAT ‚&‘ + 0028.00 *CAT ‚BODY=‘ *CAT &BODY1 *TCAT ‚%0A‘ + 0029.00 *CAT &BODY2 *TCAT ‚%0A‘ + 0030.00 *CAT &BODY3 *TCAT ‚“‘) 0031.00 0032.00 /* Mit & können einzelne Befehle kombiniert werden. Max. Anzahl Zeichen 123 */ 0033.00 /* Hinweis: Mit %0A macht einen Zeilenumbruch */ 0034.00 0035.00 /* CHGVAR VAR(&PCCMD) VALUE(‚START „“ + */ 0036.00 /* „mailto: Augel@sss-software.de?+ */ 0037.00 /* CC=Augel@iNN.com&+ Beispiel mit */ 0038.00 /* BCC=AUGEL@GMAIL.COM&+ festen Werten */ 0039.00 /* SUBJECT=MA&+ */ 0040.00 /* BODY=1. ZEILE%0A%0A3. ZEILE‘) */ 0041.00 0042.00 STRPCCMD PCCMD(&PCCMD) PAUSE(*NO) 0043.00 MONMSG MSGID(CPF0001) EXEC(SNDPGMMSG + 0044.00 MSG(‚e-mail-Angaben überschreiten die + 0045.00 Maximal-Länge von 123 Zeichen.‘) + 0046.00 TOPGMQ(*EXT) MSGTYPE(*INFO)) 0047.00 0048.00 ENDPGM *****************************Datenende*****************************
Je nachdem, welches E-Mail-Programm verwendet wird (Outlook, Lotus Notes, Google …), kann es notwendig sein, die CHGVAR-Aufbereitung in Zeile 23 anzupassen.
Das Programm kann selbstverständlich auch mit Parametern direkt aufgerufen werden, zum Beispiel aus einem RPG-Programm heraus. Ein klassisches Beispiel wäre vom Kundenstamm-Verwaltungs-Programm per F-Taste dem Kunden direkt eine E-Mail zu senden mit Übergabe
seiner E-Mail-Adresse in den Parameter „AN“.
Das Ergebnis: Ein E-Mail-Fenster öffnet sich, das die vorgegebenen Werte beinhaltet: Nicht vergessen, Ihr Feedback ist wichtig! Senden Sie einfach eine E-Mail an: Augel@SSS-Software.de
Ähnliche Artikel:
