2007年
-
编辑 删除
一个可以在Oracle发信的Procedure范例
CREATE OR REPLACE PROCEDURE "SYS"."SEND_MAIL" ( pSender VARCHAR2, pRecipient VARCHAR2, pSubject VARCHAR2, pMessage VARCHAR2) IS mailhost CONSTANT VARCHAR2(30) := 'YOUR MAIL SYSTEM IP OR FQDN'; crlf CONSTANT VARCHAR2(2):= CHR(13) || CHR(10); mesg VARCHAR2(1000); mail_conn UTL_SMTP.CONNECTION; BEGIN mail_conn := utl_smtp.open_connection(mailhost, 25); mesg := 'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf || 'From:
