|
|

楼主 |
发表于 2008/4/7 17:03:37
|
显示全部楼层
今天终于有些收获了,哈哈
跑SQR时发mail
begin-procedure Send_Mail
begin-sql
DECLARE
v_From VARCHAR2(80) ;;
v_Recipient VARCHAR2(80) ;;
v_Subject VARCHAR2(80) ;;
v_Mail_Host VARCHAR2(30) ;;
v_Mail_Conn utl_smtp.Connection;;
crlf VARCHAR2(2) ;;
BEGIN
v_From := '123@mycompany.com';;
v_Recipient := '000@mycompany.com';;
v_Subject := 'Test Send Mail';;
v_Mail_Host := 'mail.mycompany.com';;
v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);;
crlf := chr(13)||chr(10);;
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);;
utl_smtp.Mail(v_Mail_Conn, v_From);;
utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);;
utl_smtp.Data(v_Mail_Conn,
'Date: ' || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: ' || v_From || crlf ||
'Subject: '|| v_Subject || crlf ||
'To: ' || v_Recipient || crlf ||
crlf ||
'some message text'|| crlf ||
'more message text'|| crlf);;
utl_smtp.Quit(v_mail_conn);;
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);;
END;;
end-sql
end-procedure Send_Mail |
|