执行Oracle发送邮件的正确操作步骤

以下的文章主要是以实例演示的方式来讲解如何正确的执行Oracle发送邮件，以下的文章就就是对其实际的操作步骤的讲解，如果你对其相关的实际操作有兴趣的话，你就可以对以下的文章点击观看了。

LINUX AS3+Oracle 9.2||10.20.

从Oracle发送邮件:

示例如下：

具体的测试环境:LINUX AS3 , Oracle 9.0.2.4

 
 
 
  
  
  SQL> select * from v$version;  
  
  
  BANNER  
  
  
  Oracle9i Enterprise Edition Release 9.2.0.4.0 - Production  
  
  
  PL/SQL Release 9.2.0.4.0 - Production  
  
  
  CORE 9.2.0.3.0 Production  
  
  
  TNS for Linux: Version 9.2.0.4.0 - Production  
  
  
  NLSRTL Version 9.2.0.4.0 - Production  
  
  
  SQL> select * from v$version;  
  
  
  Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Prod  
  
  
  PL/SQL Release 10.2.0.1.0 - Production  
  
  
  CORE 10.2.0.1.0 Production  
  
  
  TNS for Linux: Version 10.2.0.1.0 - Production  
  
  
  NLSRTL Version 10.2.0.1.0 - Production

MAIL服务器为WIN2003,WINMAIL

1.保证ORACLE服务器到MAIL服务器网络畅通,25端口打开

2.创建Oracle发送邮件的procedure如下:

 
 
 
  
  
  CREATE OR REPLACE PROCEDURE SEND_MAIL

(as_sender in varchar2, --邮件发送者

as_recp in varchar2, --邮件接收者

as_subject in varchar2, --邮件标题

as_msg_body in varchar2) --邮件内容

 
 
 
  
  
  IS  
  
  
  ls_mailhost varchar2(30) := 'mail server'; -- address or IP  
  
  
  lc_mail_conn utl_smtp.connection;  
  
  
  ls_subject varchar2(100);  
  
  
  ls_msg_body varchar2(20000);  
  
  
  ls_username varchar2(256) := 'usercode';  
  
  
  ls_password varchar2(256) := 'password';  
  
  
  BEGIN  
  
  
  lc_mail_conn := utl_smtp.open_connection(ls_mailhost, 25);  
  
  
  utl_smtp.helo(lc_mail_conn, ls_mailhost);  
  
  
  utl_smtp.command(lc_mail_conn, 'AUTH LOGIN');  
  
  
  utl_smtp.command(lc_mail_conn, demo_base64.encode(utl_raw.cast_to_raw(ls_username)));  
  
  
  utl_smtp.command(lc_mail_conn, demo_base64.encode(utl_raw.cast_to_raw(ls_password)));  
  
  
  ls_subject := 'Subject: [' || upper(sys_context('userenv', 'db_name')) || '] - ' || as_subject;  
  
  
  ls_msg_body := as_msg_body;

utl_smtp.mail(lc_mail_conn, '<'||as_sender||'>'); --这里的'<' 一定要写,不然会出现permanent error

utl_smtp.rcpt(lc_mail_conn, '<'||as_recp||'>');--这里的'<' 一定要写,不然会出现permanent error

 
 
 
  
  
  utl_smtp.open_data(lc_mail_conn);  
  
  
  ls_msg_body := 'From: ' || as_sender || chr(13) || chr(10) || 'To: ' || as_recp || chr(13) || chr(10) || ls_subject ||  
  
  
  chr(13) || chr(10) || chr(13) || chr(10) || ls_msg_body;

utl_smtp.write_raw_data(lc_mail_conn, utl_raw.cast_to_raw(ls_msg_body)); --这样写subject可以支持中文但body内容不支持中文;

-- utl_smtp.write_data(lc_mail_conn, ls_msg_body); --这样写subject不支持中文

 
 
 
  
  
  utl_smtp.close_data(lc_mail_conn);  
  
  
  utl_smtp.quit(lc_mail_conn);  
  
  
  EXCEPTION  
  
  
  WHEN UTL_SMTP.INVALID_OPERATION THEN  
  
  
  dbms_output.put_line('invalid operation');  
  
  
  WHEN UTL_SMTP.TRANSIENT_ERROR THEN  
  
  
  dbms_output.put_line('transient error');  
  
  
  WHEN UTL_SMTP.PERMANENT_ERROR THEN  
  
  
  dbms_output.put_line('permanent error');  
  
  
  WHEN OTHERS THEN  
  
  
  dbms_output.put_line('others');  
  
  
  end send_mail;

3.执行Oracle发送邮件:

 
 
 
  
  
  exec send_mail('heyu@163.net','admin@163.net','我我','this is a oracle test mail');

注意事项:上面的过程如果在编译中出现demo_base64.encode must be declared,请大家创建下面的包和包体;

 
 
 
  
  
  CREATE OR REPLACE PACKAGE demo_base64 IS  
  
  
  -- Base64-encode a piece of binary data.  
  
  
  --  
  
  
  -- Note that this encode function does not split the encoded text into  
  
  
  -- multiple lines with no more than 76 bytes each as required by  
  
  
  -- the MIME standard.

以上的相关内容就是对Oracle发送邮件的介绍，望你能有所收获。

网站名称：执行Oracle发送邮件的正确操作步骤
文章转载：http://www.csdahua.cn/qtweb/news32/474332.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容