首页 > 编程学习 > PL/SQL中使用SMTP发送电子邮件的例子

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

发布时间:2022/9/29 22:24:02

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

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 
VARCHAR22 ):= CHR( 13 ) || CHR( 10 ); 
contentmsg 
VARCHAR260 ) := 'hello'
mesg 
VARCHAR24000 ); 
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;

 

 


本文链接:https://www.ngui.cc/el/1460891.html
Copyright © 2010-2022 ngui.cc 版权所有 |关于我们| 联系方式| 豫B2-20100000