Oracle9i新特性之数据库监控系列详解

核心提示： 2、发送Email的过程name:sp_Send_mailparameter: Rcpter in varchar2 接收者邮箱Mail_Content in Varchar2 邮件内容create date:2003-06-01creater:chen jipingdesc: ̶

2、发送Email的过程　　name:sp_Send_mail
　　parameter: Rcpter in varchar2 接收者邮箱
　　Mail_Content in Varchar2 邮件内容
　　create date:2003-06-01
　　creater:chen jiping
　　desc: •发送邮件到指定邮箱
　　•只能指定一个邮箱，如果需要发送到多个邮箱，需要另外的辅助程序
　　
　　create or replace procedure sp_send_mail(
　　Rcpter IN VARCHAR2,
　　Mail_Content IN VARCHAR2)
　　IS
　　conn utl_smtp.connection;
　　PROCEDURE send_header(NAME IN VARCHAR2, header IN VARCHAR2) AS
　　BEGIN
　　utl_smtp.write_data(conn, NAME || ': ' || header || utl_tcp.CRLF);
　　END;
　　
　　BEGIN
　　conn := utl_smtp.open_connection('smtp.ur.net.cn');
　　utl_smtp.helo(conn, 'oracle');
　　utl_smtp.mail(conn, 'oracle info');
　　utl_smtp.rcpt(conn, Rcpter);
　　utl_smtp.open_data(conn);
　　send_header('From',　　'Oracle Database');
　　send_header('To',　　　'"Recipient" <'||Rcpter||'>');
　　send_header('Subject', 'Hello');
　　utl_smtp.write_data(conn, utl_tcp.CRLF || Mail_Content);
　　utl_smtp.close_data(conn);
　　utl_smtp.quit(conn);
　　EXCEPTION
　　WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
　　BEGIN
　　utl_smtp.quit(conn);
　　EXCEPTION
　　WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
　　NULL; -- When the SMTP server is down or unavailable, we don't have
　　-- a connection to the server. The quit call will raise an
　　-- exception that we can ignore.
　　END;
　　raise_application_error(-20000,
　　'Failed to send mail due to the following error: ' || SQLERRM);
　　END sp_send_mail;