我们经常需要对数据库做一些监控，同时希望监控能够自动以邮件的方式提醒我们，那么在oracle里面如何实现呢？

通过下面这个小的procedure来实现，即可。

create or replace procedure p_send_mail(send_to in varchar2,
from_where varchar2,subject varchar, message varchar2 ) is

conn utl_smtp.connection;
crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
mesg VARCHAR2( 4000 );

begin



conn := utl_smtp.open_connection('10.1.10.2'); --mail server
utl_smtp.helo(conn, 'test.com');
utl_smtp.mail(conn, from_where);
utl_smtp.rcpt(conn, send_to);


utl_smtp.open_data(conn);
utl_smtp.write_data(conn, 'From: '|| from_where || utl_tcp.CRLF);
utl_smtp.write_data(conn, 'To: ' || send_to||utl_tcp.CRLF);
utl_smtp.write_data(conn, 'Subject: ' || subject|| utl_tcp.CRLF);
utl_smtp.write_data(conn, 'Content-Type: text/plain; Charset=GB2312' || utl_tcp.CRLF);
utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(utl_tcp.CRLF || message)); --转换为中文
utl_smtp.close_data(conn);
utl_smtp.quit(conn);

EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(conn);
raise_application_error(-20000,
'Failed to send mail due to the following error: ' || sqlerrm);

end p_send_mail;

怎么我看不懂呀
也不解释及时

好东西啊

加上一点：如果监控的结果是通过JOB来发mail的，那么小心那个发mail的JOB，可能会当掉，
最好能监控DB的log。

提供一个简单的，经测试通过，你可以继续扩展：
CREATE OR REPLACE PROCEDURE P_SEND_MAIL(P_MAILHOST     VARCHAR2,
                                        P_FROM_ADDRESS VARCHAR2,
                                        P_TO_ADDRESS   VARCHAR2,
                                        --P_FROM_USER    VARCHAR2,
                                        P_MESSAGE_TEXT VARCHAR2,
                                        P_RET          OUT NUMBER,
                                        P_ERRMSG       OUT VARCHAR2) IS
  MAIL_CONN UTL_SMTP.CONNECTION;
BEGIN
  MAIL_CONN := UTL_SMTP.OPEN_CONNECTION(P_MAILHOST, 25);
  UTL_SMTP.HELO(MAIL_CONN, P_MAILHOST);
  UTL_SMTP.MAIL(MAIL_CONN, P_FROM_ADDRESS);
  UTL_SMTP.RCPT(MAIL_CONN, P_TO_ADDRESS);
  UTL_SMTP.OPEN_DATA(MAIL_CONN);
  UTL_SMTP.WRITE_DATA(MAIL_CONN, P_MESSAGE_TEXT);
  UTL_SMTP.CLOSE_DATA(MAIL_CONN);
  P_RET := 0;
EXCEPTION
  WHEN OTHERS THEN
    P_RET    := SQLCODE;
    P_ERRMSG := SQLERRM;
END;

实在是比较有用的东西啊