鼎新提供 TIPTOP 可以寄送 Mail 的功能,
也有許多程式也已經有把程式碼都加進去裡面。
所以備忘一下,日後比較方式使用。
先維護 xml 檔:/u1/topprod/tiptop/ds4gl2/bin/javamail/genxml
維護 mail server 主機、SMTP Port、驗証使用者名稱、密碼…等。
再來就是 4GL 的部份:
g_xml.subject:郵件主旨
g_xml.body:郵件內容的檔案路徑,所以要先把內容存成一個 Temp File 的方式
將郵件的內文存到 Temp File:
LET l_buf1 = FGL_GETENV("TEMPDIR")
LET l_buf1 = l_buf1,"/report_context_" || FGL_GETPID() || ".txt"
LET l_buf = "echo '" || l_buf || "' > " || l_buf1
RUN l_buf WITHOUT WAITING
LET g_xml.body = l_buf1
g_xml.sender:寄件者 Mail Address:寄件者名稱 (中間用冒號 : 區隔)
g_xml.recipient:收件者 Mail Address:收件者名稱 (中間用冒號 : 區隔),多個用收件件用分號 ; 來區別
g_xml.ccrecipient:複本 Mail Address:收件者名稱 (中間用冒號 : 區隔),多個用收件件用分號 ; 來區別
g_xml.bccrecipient:密件複本 Mail Address:收件者名稱 (中間用冒號 : 區隔),多個用收件件用分號 ; 來區別
g_xml.attach:附件的檔案位置,多個附件用分號 ; 來區別
CALL cl_jmail():發送 e-mail
就可以把 e-mail 透過鼎新所提供的 Java Mail 寄送出去,
收件者建議在 aooi998 進行維護,寄件者可以抓 gen_file 資料。
郵件的內容為 HTML 的格式,所以如果是資料的話可以用 TABLE 的方式來呈現。
<TABLE BORDER=1 WIDTH=400px STYLE=border-collapse:collapse; BORDERCOLOR=black>
<TR align=center><TD>訂單+項次</TD><TD>原交期</TD><TD>新交期</TD></TR>
<TR><TD>g_oea.oea01</TD><TD>g_oeb.oeb15</TD><TD>g_oeb.oeb16</TD></TR>
</TABLE>
沒有留言:
張貼留言