首先,确认utl_smtp工具包已经安装在你的系统里(当然是在SYS架构里)。如果你还没有安装这个工具包,可以在你的ORACLE_HOMERDBMSadmin文件夹中找到utlsmtp.sql脚本。你还需要utl_tcp包;同样的,如果你发现utl_tcp包还没有加载,也可以从跟utlsmtp.sql脚本相同的路径找到utltcp.sql脚本。最后,你还需要知道你的企业SMTP服务器的URL。(注意,下面的例子不适用于对SMTP进行了安全设置的服务器,如Gmail)
CREATE OR REPLACE PROCEDURE send_mail (p_sender IN VARCHAR2,
p_recipient IN VARCHAR2,
p_Title IN VARCHAR2,
p_message IN VARCHAR2)
as
--写自己公司的smtp服务器url
l_mailhost VARCHAR2(255) := 'smtp.ttmtech.com.hk';
l_mail_conn utl_smtp.connection;
vmessage varchar(2000);
crlf VARCHAR2(2) := CHR( 13 ) || CHR( 10 );
--也可以用这个 utl_tcp.CRLF
BEGIN
l_mail_conn := utl_smtp.open_connection(l_mailhost, 25); --定义SMTP服务器
utl_smtp.helo(l_mail_conn, l_mailhost); --打开连接
utl_smtp.mail(l_mail_conn, p_sender); --定义发件人
utl_smtp.rcpt(l_mail_conn, p_recipient); --重复此函数,可以添加多个收件人
utl_smtp.rcpt(l_mail_conn, '1553153387@qq.com');
utl_smtp.open_data(l_mail_conn);
--连接Mail字符串,格式一定要正确,否则发出去的Email会空白
--Data最大长度为2000,超过2000可以多次调用 write_data 函数
vmessage := 'Content-Type: text/plain; Charset=GB2312' || crlf ||
'Date:' || TO_CHAR( SYSDATE, 'yyyymmdd hh24:mi:ss' ) || crlf ||
'From: ' ||p_sender||crlf ||
'Subject: ' || p_title || crlf ||
'To: '|| p_recipient || crlf ||
'Content-Type: text/plain; Charset=GB2312' || crlf ||
'' || crlf || p_message || crlf ;
utl_smtp.write_data(l_mail_conn, vmessage); --写入消息
utl_smtp.close_data(l_mail_conn ); --关闭消息
utl_smtp.quit(l_mail_conn); --断开连接
end;
如果发送中文的话,可以使用 write_raw_data 函数代替 write_data函数