在 Oracle中使用UTL_SMTP 进行邮件发送的例子代码

CREATE OR REPLACE PROCEDURE MAIN.SENDMAIL AS  smtpServer varchar2(100) := '10.15.1.2';  smtpPort varchar2(8) :='25';  senderAddress varchar2(100):='huangcm@***.cn';  senderPassowrd varchar2(100):='********';  receiverAddress varchar2(100):='huangcm@***.cn';  mail_subjct varchar2(100):='Subject:'||'About PLSQL ERROR!';   mail_body varchar2(4000):= 'This mail from PLSQL!';   conn utl_smtp.CONNECTION;   CRLF VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );BEGIN     conn:= utl_smtp.open_connection(smtpServer,smtpPort);    utl_smtp.ehlo(conn,smtpServer);    utl_smtp.command(conn,'AUTH LOGIN');    utl_smtp.command(conn,utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(senderAddress))));    utl_smtp.command(conn,utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(senderPassowrd))));    utl_smtp.mail( conn,senderAddress);    utl_smtp.rcpt( conn,receiverAddress);        utl_smtp.open_data(conn);    utl_smtp.write_data(conn,'From:'||senderAddress||CRLF);    utl_smtp.write_data(conn,'To:'||receiverAddress || CRLF );    utl_smtp.write_data(conn,'Date:'||to_char (sysdate, 'hh24:mi:ss dd-Mon-yyyy')||CRLF);    utl_smtp.write_data(conn,mail_subjct||CRLF);    utl_smtp.write_data(conn, 'MIME-Version: 1.0' || CRLF);    utl_smtp.write_data(conn, 'Content-type: text/html;Charset=GB2312;' || CRLF);    utl_smtp.write_data(conn, 'Content-Transfer-Encoding: base64' || CRLF);    utl_smtp.write_data(conn, CRLF);    utl_smtp.write_raw_data(conn,  utl_encode.base64_encode(utl_raw.cast_to_raw(''||CRLF||mail_body)));    utl_smtp.write_data(conn, CRLF);    utl_smtp.close_data(conn);    utl_smtp.quit( conn );   END;