8 3 6 ステップ6 構成をテストする

8.3.6 ステップ6. 構成をテストする

このステップを使用して、これまでのステップが正しく完了しているかを確認します。テストのメール・メッセージを送信する、別のIBM iまたはPCにアクセスする必要があります。

1.   OfficeVisionまたはSNDDSTコマンドを使用して、テスト受信者宛てにメール・メッセージを送信します(ステップ2の説明に従う)。

2.   電子メール組み込み関数を使用してLANSAファンクションからメール・メッセージを送信します。以下のサンプル関数を使用するか、独自の関数を作成してください。例をわかりやすくするため、エラー処理は省略していますが、通常は、実際のアプリケーションで戻りコードを確認します。

FUNCTION OPTIONS(*DIRECT);

********** COMMENT();

********** COMMENT(Working fields, lists and groups);

********** COMMENT();

DEFINE FIELD(#ORGL) TYPE(*CHAR) LENGTH(60) LABEL('From') DESC( 'Mail message originator');

DEFINE FIELD(#RCPL) TYPE(*CHAR) LENGTH(60) LABEL('To') DESC('Mail message recipient');

DEFINE FIELD(#SUBJECT) TYPE(*CHAR) LENGTH(60) LABEL('Subject') DESC('Mail message subject');

DEFINE FIELD(#RET_CODE) TYPE(*CHAR) LENGTH(2) DESC('BIF returncode');

GROUP_BY NAME(#PANELDATA) FIELDS(#ORGL #RCPL #SUBJECT);

********** COMMENT();

BEGIN_LOOP;

REQUEST FIELDS(#PANELDATA)

********** COMMENT(Start a mail message);

USE BUILTIN(MAIL_START) TO_GET(#RET_CODE)

********** COMMENT(Add the originator);

USE BUILTIN(MAIL_ADD_ORIGINATOR) WITH_ARGS(#ORGL) TO_GET (#RET_CODE);

********** COMMENT(Add the recipient);

USE BUILTIN(MAIL_ADD_RECIPIENT) WITH_ARGS (TO #RCPL) TO_GET(#RET_CODE); 

********** COMMENT(Set the mail message subject);

USE BUILTIN(MAIL_SET_SUBJECT) WITH_ARGS(#SUBJECT) TO_GET (#RET_CODE);

********** COMMENT(Send the mail message);

USE BUILTIN(MAIL_SEND) TO_GET(#RET_CODE);

END_LOOP;

RETURN;