Page History
[ 
|../../index.htm#lansa/mail_start.htm]
現在地:
...
9.140 MAIL_START
| Note |
|---|
注意 |
...
： 9.1 |
...
この関数を使用して電子メール・セッションを開始します。
呼び出し元ファンクションは、この開始されたセッションを使用して、1つの電子メール・メッセージを定義して送信することができます。
この組み込み関数を使用する前に「電子メール組み込み関数に関する注意」を参照してください。
引数
なし
戻り値
...
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | A | 任意 | 戻りコード OK : アクションが完了した ER : エラーが発生した | 2 | 2 |
...
技術上の注記
- MAIL_STARTは、既存のメール・メッセージ情報をすべて破棄して、新たなメール・セッションを開始します。
- 一度に1つの電子メール定義だけを進捗させることができます(つまり、同一ジョブで同時に2つの電子メール定義を定義して送信することはできません)。
- MAIL_SEND組み込み関数を使用してメッセージを送信しない限り、電子メール定義の詳細は消えてしまいます。
- エラーが発生した場合、電子メール定義の詳細はすべて破棄されてしまいます。処理を再開するには、MAIL_STARTを新たに呼び出す必要があります。
例
以下の例では、各種組み込み関数を使用して電子メール・メッセージの詳細をすべて定義した後にそれを送信しています。 注:
| Note |
|---|
注意： テストで以下の例を使用する場合は、MAIL_ADD_RECIPIENTおよびMAIL_ADD_ |
...
ORIGINATORの例で使用されている<-- name --> および <-- recipient@address -->を置き換える必要があります。
|
...
|
...
TYPE(*CHAR) |
...
LENGTH(2) |
...
LABEL(' |
...
Return Code') |
...
COND NAME(*OKAY) |
...
COND('#LEM_ |
...
RETC = |
...
OK') |
...
COND NAME(*NOTOKAY) |
...
COND('#LEM_ |
...
RETC *NE OK') |
...
COND NAME(*CLIENT) |
...
COND('* |
...
CPUTYPE *NE AS400') |
...
COND NAME(*HOST) |
...
COND('* |
...
CPUTYPE *EQ AS400') |
...
COMMENT(Start Mail message - Initialize) |
...
TO_GET(#LEM_RETC) |
...
COMMENT(If not IBM i, set MAPI arguments) |
...
COMMENT(Use the Windows Default Profile) |
...
WITH_ARGS('PROFILENAME' |
...
'Windows Messaging Settings') |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Assume user has no Password) |
...
WITH_ARGS('PASSWORD' |
...
*BLANK) |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Use existing MAPI mail session) |
...
COMMENT(from logged on Email client) |
...
WITH_ARGS('MAPI_NEW_SESSION' |
...
N) |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Display MAPI Logon dialog if required) |
...
WITH_ARGS('MAPI_LOGON_UI' |
...
Y) |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Do not display MAPI Password Dialog) |
...
COMMENT(mutually exclusive to MAPI_LOGON_UI)) |
...
|
...
WITH_ARGS('MAPI_PASSWORD_UI' |
...
N) |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Set Recipient using TO argument) |
...
COMMENT(may also set others for TO CC BCC) |
...
WITH_ARGS( |
...
TO '< |
...
-- name -->' |
...
'SMTP:< |
...
-- recipient@address -->') |
...
TO_GET(#LEM_RETC) |
...
COMMENT(To define attachment file remove comments) |
...
USE BUILTIN(MAIL_ADD_ATTACHMENT) |
...
WITH_ARGS('c:\config.sys' |
...
'MyConfig.txt') |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Set Recipient using TO argument) |
...
WITH_ARGS( |
...
TO 'SMTP:< |
...
-- recipient@address -->') |
...
TO_GET(#LEM_RETC) |
...
|
...
COMMENT(Define Message Originator if IBM i) |
...
COMMENT(MAPI on non-IBM i usually defaults) |
...
WITH_ARGS('SMTP:< |
...
-- recipient@address -->') |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Set receipt acknowledgement is required) |
...
WITH_ARGS(RECEIPT_ |
...
REQUESTED Y) TO_GET(#LEM_RETC) |
...
COMMENT(Set Subject text) |
...
WITH_ARGS(' |
...
Testing Email Built-In Functions') |
...
TO_GET(#LEM_RETC) |
...
COMMENT(Set message Text) |
...
WITH_ARGS('Hello,' |
...
Y) |
...
TO_GET(#LEM_RETC) |
...
|
...
TYPE(*CHAR) |
...
LENGTH(255) |
...
LABEL(' |
...
Big Text Line') |
...
INPUT_ATR(LC) |
...
|
...
TO(''' |
...
I am sending this message just to try out the LANSA Email Built-In Functions.''') |
...
|
...
WITH_ARGS( |
...
#BIGLINE Y) TO_GET(#LEM_RETC) |
...
|
...
WITH_ARGS(' |
...
Thank You' N) TO_GET(#LEM_RETC) |
...
COMMENT(Prompt to SEND the mail then send) |
...
TYPE(*CHAR) |
...
LENGTH(1) |
...
DESC(' |
...
Press ENTER to SEND or CANCEL') |
...
UP FIELDS(( |
...
#LTEXT2 * |
...
L4 * |
...
P4 * |
...
DESC *NC)) |
...
IDENTIFY(*LABEL) |
...
AT_LOC( |
...
7 20) WITH_SIZE( |
...
57 10) PANEL_TITL(' |
...
Confirm Mail Send...') |
...
EXIT_KEY(*NO) |
...
PROMPT_KEY(*NO) |
...
STD_HEAD(*YES) |
...
|
...
TO_GET(#LEM_RETC) |
...
|
...
|
...
Send SUCCESSFUL.') |
...
|
...