在 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;