400上产生报表后是否能发EMAIL

abcas400

不知道？在AS400上所产生的报表能不能发送到Email的邮箱里呢？请指教。

谢谢！

xuguopeng

能 我见过 晚上我找找资料去 可能要配置SMTP等等的东西

qingzhou

guopeng不用找了，我手头上有关于这方面的实施例子。

1。先参考这个帖子的配置方法配置你的本地AS/400系统：

《【分享】如何实现直接从AS/400发送信息到指定的邮箱.》
http://www.chinaunix.net/jh/10/372109.html

2。然后请参照如下实施例子：

【转帖】如何將報表(Spooled File) 使用 e-mail 傳輸至使用者？(工具：ESPLF)  

由於 E-mail 的普及，所以常會有 AS/400 報表下載至 PC 並利用 outlook 傳輸，甚為麻煩，所以我將之整合至 AS/400 中，直接利用 AS/400 的 SMTP 功能即可直接傳送報表。SMTP設定方式請參考指令 ESPLF 的原始檔說明。

此程式預設是轉換 繁體中文 "*BG5"，若是簡體中文，請將 ESPLFC 中 指令 CPYTOPCD 參數 TRNIGC 值改為 "*SCGS"，即可轉換簡體。

File  : QCLSRC

Member: ESPLFC

Type  : CLP

Usage : CRTCLPGM ESPLFC

OS Version: V4R1(含)以後

1. 
   
2. /**================================================================**/
   
3. 
   
4. /* ESPLF ** EMAIL SPOOL FILE                                        */
   
5. 
   
6. 
   
7. /* Compile: CRTCLPGM PGM(QGPL/ESPLFC)                               */
   
8. 
   
9. /**================================================================**/
   
10. 
    
11.              PGM        PARM(&FILE &EMAIL &QJOB &SPLNBRD)
    
12. 
    
13. 
    
14.              DCL        VAR(&QJOB) TYPE(*CHAR) LEN(26) /* job name */
    
15. 
    
16.              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10) /* spool file +
    
17. 
    
18.                           name */
    
19. 
    
20.              DCL        VAR(&SPLNBRD) TYPE(*DEC) LEN(5 0) /* spool +
    
21. 
    
22.                           file number */
    
23. 
    
24.              DCL        VAR(&EMAIL) TYPE(*CHAR) LEN(40) /* to email +
    
25. 
    
26.                           address */
    
27. 
    
28. 
    
29.              DCL        VAR(&JOB)  TYPE(*CHAR) LEN(10)
    
30. 
    
31.              DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
    
32. 
    
33.              DCL        VAR(&NBR)  TYPE(*CHAR) LEN(6)
    
34. 
    
35. 
    
36.              DCL        VAR(&SPLNBR) TYPE(*CHAR) LEN(6) /* spool +
    
37. 
    
38.                           file number */
    
39. 
    
40. 
    
41.              DCL        VAR(&FNAME)  TYPE(*CHAR) LEN(12)
    
42. 
    
43. 
    
44.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))
    
45. 
    
46. 
    
47. /**================================================================**/
    
48. 
    
49. /* Translate JOB special values                                     */
    
50. 
    
51. /**================================================================**/
    
52. 
    
53. 
    
54.              IF         COND(&QJOB = '*') THEN(RTVJOBA JOB(&JOB) +
    
55. 
    
56.                           USER(&USER) NBR(&NBR))
    
57. 
    
58.              ELSE       CMD(DO)
    
59. 
    
60.                CHGVAR     VAR(&JOB)  value(%SST(&QJOB 1 10))
    
61. 
    
62.                CHGVAR     VAR(&USER) value(%SST(&QJOB 11 10))
    
63. 
    
64.                CHGVAR     VAR(&NBR)  value(%SST(&QJOB 21 6))
    
65. 
    
66.              ENDDO
    
67. 
    
68. 
    
69. /**================================================================**/
    
70. 
    
71. /* Translate SPLNBR special values                                  */
    
72. 
    
73. /**================================================================**/
    
74. 
    
75. 
    
76.              IF         COND(&SPLNBRD = -1) THEN(CHGVAR VAR(&SPLNBR) +
    
77. 
    
78.                           value('*ONLY'))
    
79. 
    
80.              ELSE       CMD(IF COND(&SPLNBRD = -2) THEN(CHGVAR +
    
81. 
    
82.                           VAR(&SPLNBR) value('*LAST')))
    
83. 
    
84.              ELSE       CMD(CHGVAR VAR(&SPLNBR) value(&SPLNBRD))
    
85. 
    
86. 
    
87. /**================================================================**/
    
88. 
    
89. /* E-mail                                                           */
    
90. 
    
91. /**================================================================**/
    
92. 
    
93. 
    
94.              CHKOBJ     OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)
    
95. 
    
96.              MONMSG     MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
    
97. 
    
98.                           RCDLEN(198) IGCDTA(*YES) SIZE(*NOMAX))
    
99. 
    
100. 
     
101.              CPYSPLF    FILE(&FILE) TOFILE(QTEMP/ESPLF) +
     
102. 
     
103.                           JOB(&NBR/&USER/&JOB) SPLNBR(&SPLNBR) +
     
104. 
     
105.                           MBROPT(*REPLACE)
     
106. 
     
107.              CHGVAR   VAR(&FNAME) value(%SST(&FILE 1 8) *TCAT '.TXT')
     
108. 
     
109.              CPYTOPCD   FROMFILE(QTEMP/ESPLF) TOFLR('temp') +
     
110. 
     
111.                           TODOC(&FNAME) REPLACE(*YES) +
     
112. 
     
113.                           TRNTBL(*NONE) TRNIGC(*BG5)
     
114. 
     
115.              SNDDST     TYPE(*DOC) TOINTNET((&EMAIL)) DSTD(&FILE) +
     
116. 
     
117.                         LONGMSG(&FILE) DOC(&FNAME) FLR('temp') +
     
118. 
     
119.                         SUBJECT(&FILE *BCAT 'TESTED' )
     
120. 
     
121.              DLTDLO     DLO(&FNAME) FLR('temp')
     
122. 
     
123. 
     
124.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Spooled +
     
125. 
     
126.                           file' |>; &FILE |>; 'sent to' |>; &EMAIL)
     
127. 
     
128. 
     
129.              RETURN
     
130. 
     
131. 
     
132. /**================================================================**/
     
133. 
     
134. /* Global exception handler                                         */
     
135. 
     
136. /**================================================================**/
     
137. 
     
138. 
     
139. ERROR:      CALL       PGM(QMHRSNEM) PARM('    ' X'00000000')
     
140. 
     
141.              MONMSG     MSGID(CPF0000)
     
142. 
     
143. 
     
144.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
     
145. 
     
146.                           MSGDTA('Error(s) occured, see previously +
     
147. 
     
148.                           listed messages') MSGTYPE(*ESCAPE)
     
149. 
     
150.              ENDPGM

复制代码

File  : QCMDSRC

Member: ESPLF

Type  : CMD

Usage : CRTCMD CMD(ESPLFC) PGM(ESPLFC)

OS Version: V4R1(含)以後

1. /* sample: ESPLF FILE(QPJOBLOG) EMAIL(support@yahoo.com) */
   
2. 
   
3. 
   
4. /* V4R1 or later is required.   */
   
5. 
   
6. /*You must create a temporary folder using the command CRTFLR FLR(TEMP) */
   
7. 
   
8. 
   
9. /* 1.Using CFGTCP, Option 10=Work with TCP/IP host table entries,   */
   
10. 
    
11. /*  verify your mail server name is in the table (add if necessary). */
    
12. 
    
13. /*  ADD TWN6CPD  145.172.2.11  MAIL SERVER                           */
    
14. 
    
15. /*  ADD WTWNAS01 145.172.1.1   LOCAL AS/400 HOST                     */
    
16. 
    
17. 
    
18. /* 2. Ping mail server                                               */
    
19. 
    
20. /* 3. CHGSMTPA, verify AUTOSTART(*YES) and MAILROUTER(mail-svr-name) */
    
21. 
    
22. /* 4. ADDDIRE USRID(INTERNET SMTPRTE)   +                          */
    
23. 
    
24. /*       USRD('Internet SMTP gateway') SYSNAME(INTERNET)   +       */
    
25. 
    
26. /*       PREFADR(NETUSRID *IBM ATCONTXT)                           */
    
27. 
    
28. 
    
29. /*    CHGDSTA SMTPRTE(INTERNET SMTPRTE)                            */
    
30. 
    
31. 
    
32. /* 5. STRTCPSVR *SMTP                                              */
    
33. 
    
34. /*    If you changed the mail server address, you need restart SMTP*/
    
35. 
    
36. 
    
37. /* 6. Test : SNDDST TYPE(*LMSG) TOINTNET(E-mail address)    +      */
    
38. 
    
39. /*                  DSTD('Test message') LMSG('Test message')      */
    
40. 
    
41. /*    use the Work with Directory Entries (WRKDIRE) command to     */
    
42. 
    
43. /*    enroll you in the system directory.                          */
    
44. 
    
45. /*                                                                   */
    
46. 
    
47. /* preventing large e-mail messages from splitting                   */
    
48. 
    
49. /*           CHGPOPA MSGSPLIT(*NOMAX)                               */
    
50. 
    
51. /*                            *DFT size is 128k                     */
    
52. 
    
53. 
    
54. 
    
55.              CMD        PROMPT('E-mail Spooled File')
    
56. 
    
57. 
    
58.              PARM       KWD(FILE) TYPE(*NAME) MIN(1) PROMPT('Spooled +
    
59. 
    
60.                           file')
    
61. 
    
62. 
    
63.              PARM       KWD(EMAIL) TYPE(*CHAR) LEN(40) MIN(1) +
    
64. 
    
65.                           PROMPT('To e-mail address')
    
66. 
    
67. 
    
68.              PARM       KWD(JOB) TYPE(JOB) DFT(*) SNGVAL((*)) +
    
69. 
    
70.                           PROMPT('Job name')
    
71. 
    
72. 
    
73.              PARM       KWD(SPLNBR) TYPE(*DEC) LEN(4) DFT(*ONLY) +
    
74. 
    
75.                           SPCVAL((*ONLY -1) (*LAST -2)) +
    
76. 
    
77.                           PROMPT('Spooled file number')
    
78. 
    
79. 
    
80. JOB:        QUAL       TYPE(*NAME) DFT(*)
    
81. 
    
82.              QUAL       TYPE(*NAME) PROMPT('User')
    
83. 
    
84.              QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
    
85. 
    
86.                           PROMPT('Number')

复制代码

qingzhou

存档备用，便于以后有相关需求的朋友参考。。。

abcas400

非常谢谢！

我立马就试试看。

祝周未愉快！

jamesten

我们公司应该也是直接从AS/400中产生文件,然后转换成EXCEL发到用户的LOUTS邮箱中去的.

qingzhou

[quote]原帖由 "jamesten"]我们公司应该也是直接从AS/400中产生文件,然后转换成EXCEL发到用户的LOUTS邮箱中去的.[/quote 发表：

原理是一样的吗？

如果方便的话就拿出来参考一下，想到有时自己公司业务方面的确需要如此，我也想在本地环境具体测试一下。

hsiang_wang

有谁试过吗？

qingzhou

[quote]原帖由 "hsiang_wang"]有谁试过吗？[/quote 发表：

第1步骤我目前在使用，所以没问题的。

第2步骤关键也是要配置好第1步骤作为前提，其实我们就是改第一步骤的SNDDST命令TYPE参数为TYPE（*DOC）类型，然后稍微写些代码就可以实现了。

我想这个PGM是可行的，改天我拿到我本地环境测试一下，正好要在公司的生产系统上实现这个机能。

你有时间自己也测试一下，感受会更深些。。。

★附加说明：

1.此功能须要 OS/400 V4R1 以后才可使用。

2.若欲传中文，只能以附件方式 SNDDST TYPE(*DOC) 传送；
故须先将信息或 Data 复制到档案夹(Folder)；
CRTFLR FLR(TEMP) (指令 CPYTOPCD 参数 DBCS code page : *BG5);

CPYTOPCD FROMFILE(XXXX) TOFLR(TEMP) FROMMBR(XXX) +
               TODOC(XXXX.TXT) TRNTBL(*NONE) TRNIGC(*BG5)

3.SNDDST TYPE(*DOC) TOINTNET(E-mail address)    +
         DSTD(‘Test message’) DOC(XXXX.TXT) FLR(TEMP)

magket

有没有谁试过自动转EXCEL的。