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

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

create   or   replace   procedure  send_Email(txt  varchar2 )
IS  
SenderAddress  Varchar2 ( 30 ) : =   ' [email protected]@cccar.com.cn ' ; 
ReceiverAddress  varchar2 ( 200 ) : =   ' [email protected] ' ; 
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 ;