Oracle發送郵件存儲過程

發送郵件的存儲過程 

CREATE OR REPLACE PROCEDURE Up_send_mail(subject in varchar2(500),mail_content in varchar2(2000),re_out out number(2))
AS
/*********************************
編寫：枯葉
作用：發送郵件
日期：2013-03-13
返回碼：
         0 = 發送成功
         1 = 發送失敗
*********************************/
  smtp_conn  utl_smtp.connection;
  --定義發郵件用戶名
  user_name  varchar2(50) := utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('mailname@163.com')));
  --定義發郵件的密碼
  user_paswd varchar2(50) := utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('mailpass')));
  --定義郵件表頭
  lv_mail_header varchar2(200):='From:mailname@163.com'||utl_tcp.CRLF||
                                'To:tomail@qq.com'||utl_tcp.CRLF||
                                'Subject:'||subject||utl_tcp.CRLF;
  --定義郵件正文                              
  lv_mail_content varchar2(2000):=utl_tcp.CRLF||mail_content ;                            
begin
  re_out :=0;
  smtp_conn := utl_smtp.open_connection('smtp.163.com',25);
  utl_smtp.helo(smtp_conn,'smtp.163.com');
  utl_smtp.command(smtp_conn,'AUTH LOGIN');
  utl_smtp.command(smtp_conn,user_name);
  utl_smtp.command(smtp_conn,user_paswd);
  utl_smtp.mail(smtp_conn,'<mailname@163.com>');
  utl_smtp.rcpt(smtp_conn,'<tomail@qq.com>');
  utl_smtp.open_data(smtp_conn);
  utl_smtp.write_data(smtp_conn,lv_mail_header);
  utl_smtp.write_raw_data(smtp_conn,utl_raw.cast_to_raw(lv_mail_content));
  utl_smtp.close_data(smtp_conn);
  utl_smtp.quit(smtp_conn);
exception
  when others then 
    re_out := 1;
    utl_smtp.quit(smtp_conn);
    RETURN;
    
end;

注：

mailname@163.com 改成發送郵箱的地址
mailpass         改成發送郵箱的密碼
tomail@qq.com    改成接收郵箱的地址

調用存儲過程

DECLARE
  subject_in varchar(500) := 'Oracle Tablespace mail';
  mail_content_in varchar(2000):='這是一個測試郵件，不知道是做什么用的！';
  re_out_out number(2);
BEGIN
  Up_send_mail(subject_in,mail_content_in,re_out_out );
 IF re_out_out=0
   THEN 
     DBMS_OUTPUT.put_line('發送成功');
 ELSE
    DBMS_OUTPUT.put_line('發送失敗'); 
 END IF;
END;