利用Oracle的UTL_SMTP包发邮件设置超送
利用Oracle的UTL_SMTP包发邮件设置超送
Oracle自带UTL_SMTP包可发送邮件,从网上找到一个现成的脚本。然后做了些修改实现过程发送邮件。原来里面没有设置超送,在网上找了好久没有找到没找到设置超送的说明。我做了一个‘偷梁换柱’的的工作设置了超送。实现的思路是:超送的邮件地址设置到发送地址列表,但显示的时候设置成超送。代码说明如下:
[sql]
/*假设发件人是:aaa@163.com 收件人:bbb@163.com 超送人: ccc@163.com */
UTL_SMTP.MAIL(L_CONN, 'aaa@163.com');--设置发送地址
UTL_SMTP.RCPT(L_CONN, 'bbb@163.com');--接受地址,将超送地址也写到这里
UTL_SMTP.RCPT(L_CONN, 'ccc@163.com');
/*设置邮件头*/
UTL_SMTP.OPEN_DATA(L_CONN);
WRITE_DATA(L_CONN, 'Date', TO_CHAR(SYSDATE, 'yyyy-mm-dd hh24:mi:ss'));
/*设置发送人*/
WRITE_DATA(L_CONN, 'From', p_SERVER_NAME ||'<aaa@163.com>');
/*设置接收人*/
WRITE_DATA(L_CONN,'To','<bbb@163.com>');
/*设置抄送*/
WRITE_DATA(L_CONN, 'cc', '<ccc@163.com>');