iSeries,AS/400,i5,IBM,HRMiSeries,AS/400,i5,IBM,HRM
ｉＳｅｒｉｅｓ（ｉ５）、ＡＳ／４００からのメール送信
環境設定
1. ドメイン作成（ＡＳ／４００）
CHGTCPDMN HOSTNAME(システム名) DMNNAME(ドメイン名) DMNSCHLIST(*DFT) HOSTSCHPTY(*LOCAL) INTNETADR(DNSサーバーＩＰ)
システム名：ＤＳＰＮＥＴＡで表示されるシステム名
ドメイン名：任意（＠＠＠．ＣＯＭ）
2. ホストテーブル追加
CFGTCP→№１０
インターネットアドレス：ＡＳ４００ ＩＰアドレス
ホスト名：上記ホスト名
3. 経路指定の*DFTROUTE はインターネット網出口を指定して下さい
ＣＦＧＴＣＰ→№２
4. SMTPサーバー再起動
ENDTCPSVR
SERVER(*SMTP)
STRTCPSVR SERVER(*SMTP)
上記設定でメール送信が出来ます。
下記の設定は、個々のユーザーからの送受信設定です。
1. ADDDIRE USRID(*ANY QSMRMTAD) USRD('SMTP ユーザー ') SYSNAME(TCPIP)
2. ADDDIRE USRID(QSMTPDMY QSMTPSYS) USRD('SMTPQ ユーザー ') SYSNAME(TCPIP)
3. ADDDIRE USRID(SMTPDIRE SMTPDIRE) USRD('SMTP ゲートウェイ ユーザー ')
SYSNAME(TCPIP) PREFADR(NETUSRID *IBM ATCONTXT)
4. 送信する為には各ユーザー(送信ユーザー)を登録しなれけばなりません。
サインオン・ユーザー、ジョブ・ユーザー
4.1. ADDDIRE USRID(ユーザー システム名) USRD(ユーザー) USER(ユーザー) NETUSRID('ユーザー システム名')
ADDDIRE USRID(QPGMR HRMSYS) USRD(QPGMR) USER(QPGMR) NETUSRID('QPGMR HRMSYS')
4.2. 送信元メールID設定方法
4.2.1. WRKDIRE と入力し実行する。
4.2.2. 登録したユーザーのオプション欄に2を入力し実行する。
4.2.3. F19(SMTP 用の名前変更)を押す
4.2.4. SMTPユーザーIDとSMTPドメイン名を設定すれば送信元が設定されます。
5. CHGDSTA SMTPRTE(SMTPDIRE SMTPDIRE)
6. CHGSMTPA MAILROUTER(構内からの出口ルーター) FIREWALL(*YES) ALWRLY(*ALL)
ＡＳ／４００から直接インターネット網に出れる場合は設定が必要有りません
7. SMTPサーバー再起動
ENDTCPSVR
SERVER(*SMTP)
STRTCPSVR SERVER(*SMTP)
コマンドを使っての送信方法
メッセージ
SNDDST TYPE(*LMSG) TOINTNET((ＳＥ－ＳＵＰＰＯＲＴ@ＨＲＭ．ＣＯ．ＪＰ)) DSTD(' ヤッホー ')
LONGMSG(' 本日は晴天なり ')
(実際は日本語では送信出来ません。件名、文章とも英数字で送信してみて下さい ）
スプール
① CRTFLR FLR(AAAAA)
② CRTPF FILE(QTEMP/BBBB) IGCDTA(*YES)
③ CPYSPLF FILE(SPLF) TOFILE(QTEMP/ＢＢＢＢ) SPLNBR(*LAST)
④ CPYTOPCD FROMFILE(QTEMP/BBBB) TOFLR(AAAAA) FROMMBR(BBBB)
⑤ SNDDST TYPE(*DOC) TOINTNET((HRM@FIXA.JP)) DSTD(MAIL) DOC(BBBB)
FLR(AAAAA)
プログラムでの送信方法
送受信先アドレス、本文フォルダー、ファイル名は大文字で作成して下さい
コンパイル方法
CRTRPGMOD MODULE(QTEMP/RSENDMAIL) SRCFILE(HRMLIB/QRPGLESRC)
CRTPGM PGM(QTEMP/RSENDMAIL) BNDSRVPGM(QTCP/QTMMSNDM)
「記号 'QtmmSendMail' の定義が見つからない。」というＪＯＢＬＯＧが
出ている場合はソースファイルのＣＣＳＩＤを確認して下さい。
CCSID=5035,65535等に変換し行って下さい。
送信方法
① 本文を作成する。
必ずヘッダー ＋ １行空白 ＋ 本文で作成して下さい。
ヘッダーがない場合は送信されません。
この中に有るFrom,Toが実際に相手がわで表示される宛先、送信先です。よって日本語宛
先や送信先を設定する事が出来ます。実際に送信する宛先は上記サンプルプログラム内の
アドレスとなります。
② 上記作成した本文をＳＴＭＦへＳＪＩＳ変換する。
CPYTOSTMF FROMMBR('/QSYS.LIB/HRMLIB.LIB/QDOC.FILE/MSG.MBR')
TOSTMF('/MAIL/MSG.TXT') STMFCODPAG(932)
例．是はソースファイルHRMLIB/QDOC(MSG)を/MAIL/MSG.TXTへＳＪＩＳ変換しています。
③ /MAIL/MSG．TXTの*PUBLIC権限を＊ＮＯＮＥから＊ＲＷＸに変更して下さい。
（送信が終わるとこのメッセージを消す為）
a. WRKLNK OBJ('ＭＡＩＬ/ＭＳＧ.TXT')
b. オプション"９"を入力し実行キーを押す
c. *PUBLICのオプション欄へ”２”を入力し実行キーを押し権限を＊ＲＷＸへ変更する。
障害例
送信されない場合
① ＳＭＴＰサーバーが動いてるか？
QSYSWRK下に四つのジョブが動いてるかチェックする。
QTSMTPBRCL
QTSMTPBRSR
QTSMTPCLTD
QTSMTPSRVD
開始方法
ＳＴＲＴＣＰＳＶＲ ＳＥＲＶＥＲ（＊ＳＭＴＰ）
② QMSFジョブが動いてるか？
QSYSWRKの配下にQMSFジョブがあるかチェックする。
開始方法
ＳＴＲＭＳＦ
③ QSYSWRKのＱＭＳＦのジョブログを確認して下さい。
a. 「ＴＣＰ５１０１：ストリームファイルがオープン出来ない」
メッセージの権限が＊ＷＲＸになってない場合や存在しない場合
b. 「TCP9676：SMTP 配布は送信されていません。データを分析することができません」
ＣＰＹＴＯＳＭＴＦが失敗しているのかも？
ストリームファイルを確認して下さい
④ 本文のヘッダーを再度確認して下さい。
⑤ 相手がスパムメール対策として送信者アドレスが存在しない場合に受付ない場合があります。
配信エラーPOP設定
・ WRKDIREて送信ユーザーを変更
メール･サービス・レベルを2に設定
優先アドレスを3に設定
・ 結果参照
WRKLNK /QTCPTMM/MAIL/ユーザー内に返信されます。
添付ファイルが無いのに添付ファイルマークが出てしまう。
本文のヘッダーが間違ってる場合にこのような現象になる時があります。
セミコロンやコロンも確認して下さい。
文字化けが起きてしまう。
本文がＳＪＩＳ対応出来ない場合に起きる
本文のみをＪＩＳ変換し送付すればＯＫ（確認済）
対策(本文作成方法）
1.
ヘッダー部のみ
CPYTOSTMF FROMMBR('/QSYS.LIB/HRMLIB.LIB/QDOC.FILE/HEAD.MBR')
TOSTMF('/MAIL/MSG.TXT') STMFCODPAG(932)
2. FTPで自マシーンへ接続（AS/400）
BINARYで上記/MAIL/MSG.TXTをファイル(QTEMP/BBB)にGET
3. 本文をＪＩＳ変換（ＡＳ／４００）
CVTDBCS FROMFILE(QTEMP/CCC) TOFILE(QTEMP/AAA) CVTDIST(*FROMIBM) DBCS(*JIS)
4. 2のファイルに追加
CPYF
FROMFILE(QTEMP/AAA) TOFILE(QTEMP/BBB) MBROPT(*ADD)
5. FTPで自マシーンへ接続（AS/400）
BINARYで上記/MAIL/MSG.TXTファイルへQTEMP/BBBをＰＵＴする。
エスケープシーケンスの入れ方は、次のようなルールが有ります。
・ 文章の最初はASCIIで始まると仮定されています。
・ 行の終わりはASCI又はJISローマ字に戻して下さい。
・ 文章の最後はASCIIに戻して下さい。
ＳＭＴＰジョブが永遠稼動している。
QTSMTPCLTP,QTSMTPSRVP
宛先間違いなどやスパムメール等でこのような現象が起きます。
対処方法
１． ENDTCPSVR SERVER(*SMTP)
２． ENDMSF OPTION(*IMMED)
３． CRTDTAARA DTAARA(QUSRSYS/QTMSCLEAN) TYPE(*CHAR) LEN(1) TEXT('C')
４． STRTCPSVR SERVER(*SMTP)
５． STRMSF MSGOPT(*CLEAR) NBRMSFJOB(1)
送信ログを確認したい
CHGSMTPA JOURNAL (*YES)
確認方法
DSPJRN JRN(QUSRSYS/QZMF)