最近有空研究了一下用Oracle自带UTL_SMTP发送邮件的方法，标准步骤如下：
1.建立到SMTP Server的连接： UTL_SMTP.OPEN_CONNECTION
2.执行初始握手信号： UTL_SMTP.EHLO/HELO
2.5 设置SMTP服务器登录校验（看需要）
3.设置发件人： UTL_SMTP.MAIL
4.设置收件人： UTL_SMTP.RCPT
5.打开数据流： UTL_SMTP.OPEN_DATA
6.写邮件内容： UTL_SMTP.WRITE_RAW_DATA
包括
邮件的头部
Date: 2012 12 19 17:25:00||UTL_TCP.CRLF
From: 发件人||UTL_TCP.CRLF
To:收件人||UTL_TCP.CRLF
Subject:邮件主题|| UTL_TCP.CRLF || UTL_TCP.CRLF
邮件正文
7.关闭数据流： UTL_SMTP.CLOSE_DATA
8.退出连接： UTL_SMTP.QUIT
参考样例：
CREATE OR REPLACE PROCEDURE Send_Mail(p_Recipient VARCHAR2
, -- 邮件接收人
p_Subject VARCHAR2
, -- 邮件标题
p_Message VARCHAR2 -- 邮件正文
) IS
--下面四个变量请根据实际邮件服务器进行赋值
v_Mailhost VARCHAR2(30) := 'mail.gxlu.com.cn'; --SMTP服务器地址
v_User VARCHAR2(30) := 'abc'; --登录SMTP服务器的用户名
v_Pass VARCHAR2(20) := '123456'; --登录SMTP服务器的密码
v_Sender VARCHAR2(50) := 'abc@gxlu.com.cn'; --发送者邮箱，一般与 ps_user 对应
v_Conn Utl_Smtp.Connection; --到邮件服务器的连接
v_Msg VARCHAR2(4000); --邮件内容
BEGIN
v_Conn := Utl_Smtp.Open_Connection(v_Mailhost, 25);
Utl_Smtp.Ehlo(v_Conn, v_Mailhost); --是用 ehlo() 而不是 helo() 函数
--否则会报：ORA-29279: SMTP 永久性错误: 503 5.5.2 Send hello first.
Utl_Smtp.Command(v_Conn, 'AUTH LOGIN'); -- smtp服务器登录校验
Utl_Smtp.Command(v_Conn
,Utl_Raw.Cast_To_Varchar2(Utl_Encode.Base64_Encode(Utl_Raw.Cast_To_Raw(v_User))));
Utl_Smtp.Command(v_Conn
,Utl_Raw.Cast_To_Varchar2(Utl_Encode.Base64_Encode(Utl_Raw.Cast_To_Raw(v_Pass))));
Utl_Smtp.Mail(v_Conn, '<' || v_Sender || '>'); --设置发件人
Utl_Smtp.Rcpt(v_Conn, '<' || p_Recipient || '>'); --设置收件人
-- 创建要发送的邮件内容 注意报头信息和邮件正文之间要空一行
v_Msg := 'Date:' || To_Char(SYSDATE, 'yyyy mm dd hh24:mi:ss') || Utl_Tcp.Crlf || 'From: ' ||
v_Sender || '' || Utl_Tcp.Crlf || 'To: ' || p_Recipient || '' || Utl_Tcp.Crlf ||
'Subject: ' || p_Subject || Utl_Tcp.Crlf || Utl_Tcp.Crlf -- 这前面是报头信息
|| p_Message; -- 这个是邮件正文
Utl_Smtp.Open_Data(v_Conn); --打开流
Utl_Smtp.Write_Raw_Data(v_Conn, Utl_Raw.Cast_To_Raw(v_Msg)); --这样写标题和内容都能用中文
Utl_Smtp.Close_Data(v_Conn); --关闭流
Utl_Smtp.Quit(v_Conn); --关闭连接
EXCEPTION
WHEN OTHERS THEN
Dbms_Output.Put_Line(Dbms_Utility.Format_Error_Stack);
Dbms_Output.Put_Line(Dbms_Utility.Format_Call_Stack);
END Send_Mail;