tiptop自定义发送邮件及EXCEL附件
很多公司都有这样的需求，希望系统可以定时邮件发送一些统计报表给到相关人员，以便做数据分析，或者是希望做单时，发送单据内容给到相关人员提醒审核和备案，下面分享一种十分简单方便的实现方式，javamail+4gl+perl脚本实现;
1:在aooi999配置好系统标准的javamail 功能，测试可以正常发送报表邮件，配置方式可以百度
2:添加邮件发送功能函数，可以参考cl_prt里面的发邮件功能，我简化了一些东西代码如下：
FUNCTION p_sendmail1(l_xml)
DEFINE p_chk LIKE type_file.chr100
DEFINE l_cmd STRING
DEFINE l_top STRING
DEFINE l_tempdir STRING
DEFINE res LIKE type_file.num5
DEFINE l_xml RECORD
file STRING, #XML檔名(不含路徑,檔案放置在os.Path.join(FGL_GETENV("TEMPDIR")底下)
mailserver STRING, #MAIL SERVER IP
serverport STRING, #MAIL SERVER Port
user STRING, #MAIL SERVER User
passwd STRING, #MAIL SERVER User Password
checkauth LIKE type_file.chr1, #No.FUN-690005 VARCHAR(1), #CheckAuth
subject STRING, #信件主旨
body STRING, #信件本文內容檔路徑
attach STRING, #信件附件檔路徑
recipient STRING, #收件者
cc STRING, #副本
bcc STRING, #密件副本
sender STRING #寄件者
END RECORD
DEFINE l_mlj RECORD LIKE mlj_file.*
DEFINE l_str STRING
DEFINE lc_channel base.Channel
DEFINE
ch base.Channel,
l_status SMALLINT,
l_index SMALLINT,
l_temp STRING,
l_text STRING
LET res = 1
{INITIALIZE l_mlj.* TO NULL
SELECT * INTO l_mlj.* FROM mlj_file WHERE mlj01 = "DEFAULT"
INITIALIZE l_xml.* TO NULL
LET l_top = fgl_getenv("TOP")
LET l_tempdir =fgl_getenv("TEMPDIR")
# 生成XML文件写入系统
LET l_xml.file = p_chk CLIPPED,'.xml' #按传入的名称
LET l_xml.mailserver = l_mlj.mlj03 #邮件主机
LET l_xml.serverport = l_mlj.mlj04 #邮件主机端口
LET l_xml.user = l_mlj.mlj05 #邮件主机用户
LET l_xml.passwd = l_mlj.mlj06 #邮件主机密码
LET l_xml.checkauth = l_mlj.mlj08 #认证
LET l_xml.sender = 'caozq@test.com' #寄件人
LET l_xml.subject ='TEST' #邮件主旨
LET l_xml.body = l_tempdir CLIPPED,'/',p_body CLIPPED #文本内容
LET l_xml.attach = l_tempdir CLIPPED,'/',p_attach CLIPPED #附件地址
LET l_xml.recipient = '839438304@qq.com' #收件人
#LET l_xml.cc = g_xml.cc
#LET l_xml.bcc = g_xml.bcc}
#########產生for javamail的xml檔############
LET l_tempdir =fgl_getenv("TEMPDIR")
LET l_top = fgl_getenv("TOP")
LET lc_channel = base.Channel.create()
LET l_str = os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)
CALL lc_channel.openFile(l_str, "w")
CALL lc_channel.setDelimiter("")
CALL lc_channel.write("") #No.FUN-740189
CALL lc_channel.write("
CALL lc_channel.write("
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
Let l_str = '
CALL lc_channel.write(l_str CLIPPED)
IF NOT cl_null(l_xml.body) THEN
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
END IF
IF NOT cl_null(l_xml.attach) THEN
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
END IF
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
IF NOT cl_null(l_xml.cc) THEN
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
END IF
IF NOT cl_null(l_xml.bcc) THEN
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
END IF
LET l_str = '
CALL lc_channel.write(l_str CLIPPED)
CALL lc_channel.write("")
CALL lc_channel.close()
#將產生給javamail的xml檔轉成客戶端的編碼
# 生成XML文件写入系统
LET l_cmd="chmod 777 ",os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)," 2>/dev/null" #FUN-8B0011
RUN l_cmd
LET l_cmd="sh ",l_top CLIPPED,"/ds4gl2/bin/javamail/UnixMailSender.bat ",
os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)," >/u1/out/caozq.txt" #FUN-510006 FUN-8B0011
RUN l_cmd IN FORM MODE RETURNING res
if res = 0 then
let l_str = "Send ok"
else
let l_str = "Send fail"
end if
#读取caozq.txt，判断是否成功
SLEEP 1
LET ch = base.Channel.create()
CALL ch.openFile('/u1/out/caozq.txt','r')
LET l_status = ch.read(l_temp)
WHILE l_status
LET l_text = l_text.trim(),l_temp.trim()
LET l_status = ch.read(l_temp)
END WHILE
LET l_index = 0
LET l_index = l_text.getIndexOf('successfully',1)
IF l_index > 0 THEN
let l_str = "Send ok"
else
let l_str = "Send fail"
END IF
END FUNCTION
函数可做一个公用函数，供其他程序调用
3：如何生成附件excel档可以参考另一个帖子 perl生成excel 的，没写太详细，码字太麻烦....