Oracle 10G 使用UTL_SMTP发送中文电子邮件

来源：互联网发布：用python抓鸡赚钱编辑：程序博客网时间：2024/05/22 12:43

因开发需要,最近要利用Oracle发送邮件,

网上查找了好多资料,

经过自己的整理实践,发出来大家分享一下

以下是存储过程:

create or replace
PROCEDURE SEND_MAIL (
msg_from varchar2, --发件人地址
msg_to varchar2, --收件人地址
msg_subject varchar2, --邮件主题
msg_text varchar2) --邮件内容
IS
conn utl_smtp.connection;
mailhost VARCHAR2(30) := 'smtp.xxx.com'; -- local database host
message varchar2(1000);
BEGIN
message :='From: sz.itsupport ['||msg_from ||']'||utl_tcp.crlf ||
'To: ' || msg_to || utl_tcp.crlf ||
'Date: ' || to_char(sysdate, 'dd mon yy hh24:mi:ss') || utl_tcp.crlf ||
'Content-Type:text/html;Charset=GB2312' || utl_tcp.crlf || --设置邮件内容为html,编码为GB2312（中文邮件必要条件）
'Subject: ' || msg_subject ||utl_tcp.crlf ||
'<html> Hello:<br/>'||msg_text||'</html>';

conn := utl_smtp.open_connection(mailhost, 25); -- SMTP on port 25
utl_smtp.helo(conn, mailhost);
utl_smtp.mail(conn, msg_from);
utl_smtp.rcpt(conn, msg_to);
utl_smtp.open_data(conn);

utl_smtp.close_data(conn);

--oracle默认字符集为AL32UTF8，所有中文都被认为是3个字节一个汉字。

需将AL32UTF8改为ZHS16GBK。是为了解决汉字的问题，否则程序就会有乱码
utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(convert(message,'ZHS16GBK')));

utl_smtp.quit(conn);

EXCEPTION
WHEN UTL_SMTP.INVALID_OPERATION THEN
dbms_output.put_line(' Invalid Operation in Mail attempt
using UTL_SMTP.');
WHEN UTL_SMTP.TRANSIENT_ERROR THEN
dbms_output.put_line(' Temporary e-mail issue - try again');
WHEN UTL_SMTP.PERMANENT_ERROR THEN
dbms_output.put_line(' Permanent Error Encountered.');
END;

调用存储过程如下：

begin
send_mail('angeltear18@xxx.com','angeltear18@xxx.com','中文測試System Notice',
'-1400ORA-01400: cannot insert NULL into ("PLMDEBUG"."M138"."M138YRMTH") ');
end;