Oracle ——UTL_SMTP包发送Email

首先，确认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函数