PL/SQL中使用SMTP发送电子邮件的例子

用于发邮件的程序代码如下：

create 
    
  or 
    
  replace 
    
  procedure 
   send_Email(txt  
  varchar2 
  )
 
  IS 
   
SenderAddress  
  Varchar2 
  ( 
  30 
  ) : 
  = 
    
  ' 
  ljc@cccar.com.cn@cccar.com.cn 
  ' 
  ; 
ReceiverAddress  
  varchar2 
  ( 
  200 
  ) : 
  = 
    
  ' 
  northsnow@163.com 
  ' 
  ; 
EmailServer  
  varchar2 
  ( 
  30 
  ) : 
  = 
    
  ' 
  mail.cccar.com.cn 
  ' 
  ; 
Port  
  number 
   : 
  = 
    
  25 
  ; 

conn UTL_SMTP.CONNECTION; 
crlf  
  VARCHAR2 
  (  
  2 
   ): 
  = 
   CHR(  
  13 
   )  
  || 
   CHR(  
  10 
   ); 
contentmsg  
  VARCHAR2 
  (  
  60 
   ) : 
  = 
    
  ' 
  hello 
  ' 
  ; 
mesg  
  VARCHAR2 
  (  
  4000 
   ); 
mesg_body  
  varchar2 
  ( 
  4000 
  ); 
 
  BEGIN 
   

conn: 
  = 
   utl_smtp.open_connection( EmailServer, Port ); 
utl_smtp.helo( conn, EmailServer ); 
utl_smtp.mail( conn, SenderAddress); 
utl_smtp.rcpt( conn, ReceiverAddress ); 

mesg: 
  = 
   
 
  ' 
  Content-Type: text/plain; Charset=GB2312 
  ' 
    
  || 
   crlf  
  || 
   
 
  ' 
  Date: 
  ' 
    
  || 
   TO_CHAR( SYSDATE,  
  ' 
  dd Mon yy hh24:mi:ss 
  ' 
   )  
  || 
   crlf  
  || 
   
 
  ' 
  From: 
  ' 
    
  || 
   SenderAddress  
  || 
   crlf  
  || 
   
 
  ' 
  Subject: Sending Mail with Oracle PL/SQL 
  ' 
    
  || 
   crlf  
  || 
   
 
  ' 
  To:  
  ' 
  || 
   ReceiverAddress  
  || 
   crlf  
  || 
    
  
 
  '' 
    
  || 
   crlf  
  || 
   txt  
  || 
   crlf ; 

utl_smtp.data( conn, mesg ); 
utl_smtp.quit( conn ); 

 
  END 
  ;

测试：

declare   
   begin 
  
      send_eMail(   ' 
  this is a test 
  ' 
  );
   end 
  ;