Oracle 11g 环境下，利用utl_smtp创建发送邮件的存储过程

网上太多发邮件储存过程，我就不转发了，弄个简单的作为示例；

create or replace procedure Send_mail(mail_body varchar2) is
  smtp_conn  utl_smtp.connection;
  user_name  varchar2(20) := utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('[email protected]'))); 
  user_paswd varchar2(20) := utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('password')));
  lv_mail_header varchar2(200):='From:[email protected]'||utl_tcp.CRLF||
                                'To:[email protected]'||utl_tcp.CRLF||
                                'Subject:Oracle数据库'||utl_tcp.CRLF;
  lv_mail_content varchar2(2000);
begin
  lv_mail_content := utl_tcp.CRLF||mail_body;  

  smtp_conn := utl_smtp.open_connection('smtp.email.com',25);
  utl_smtp.helo(smtp_conn,'smtp.email.com');
  utl_smtp.command(smtp_conn,'AUTH LOGIN');
  utl_smtp.command(smtp_conn,user_name); --邮件用户名
  utl_smtp.command(smtp_conn,user_paswd); --邮件密码
  utl_smtp.mail(smtp_conn,'<[email protected]>'); --发件人邮箱
  utl_smtp.rcpt(smtp_conn,'<[email protected]>'); --收件人邮箱
  utl_smtp.open_data(smtp_conn);
  utl_smtp.write_data(smtp_conn,utl_raw.cast_to_raw(lv_mail_header)); 
  utl_smtp.write_raw_data(smtp_conn,utl_raw.cast_to_raw(lv_mail_content));
  utl_smtp.close_data(smtp_conn);
  utl_smtp.quit(smtp_conn);
exception
  when others then
    utl_smtp.quit(smtp_conn);
end Send_mail;
/

--储存过程已创建

第二步直接测试函数；

begin
  send_mail('测试内容');
end;
/

ORA-29278: SMTP 临时性错误: 421 Service not available
ORA-06512: 在 "SYS.UTL_SMTP", line 21
ORA-06512: 在 "SYS.UTL_SMTP", line 97
ORA-06512: 在 "SYS.UTL_SMTP", line 139
ORA-06512: 在 "SYS.UTL_MAIL", line 405
ORA-06512: 在 "SYS.UTL_MAIL", line 594
ORA-06512: 在 line 2

OK，第三步，设置ACL；

--ACL第一步，创建
BEGIN  
        dbms_network_acl_admin.create_acl(acl         => 'httprequestpermission.xml',  --文件名，可以任意取名
                                          DESCRIPTION => 'Normal Access',  
                                          principal   => 'CONNECT',  --角色
                                          is_grant    => TRUE,  
                                          PRIVILEGE   => 'connect',  
                                          start_date  => NULL,  
                                          end_date    => NULL);  
END;  
/

commit; --必须要提交；

然后检查是否创建了该 ACL控制文件；

SQL> SELECT any_path FROM resource_view WHERE any_path like '/sys/acls/%.xml';

--ACL第二步，授权用户（示例用scott作为测试）
begin  
        dbms_network_acl_admin.add_privilege(acl        => 'httprequestpermission.xml',  
                                             principal  => 'SCOTT',  --用户，请按照实际变更
                                             is_grant   => TRUE,  
                                             privilege  => 'connect',  
                                             start_date => null,  
                                             end_date   => null);  
end;  
/

--ACL第三步，添加主机或域名
    begin  
        dbms_network_acl_admin.assign_acl(acl        => 'httprequestpermission.xml',  
                                          host       => 'www.baidu.com',  --http网页地址
                                          lower_port => 80,  --http端口
                                          upper_port => NULL);  
    end;  
/

commit;

    begin  
        dbms_network_acl_admin.assign_acl(acl        => 'httprequestpermission.xml',  
                                          host       => 'smtp.sina.com.cn',  --smtp服务器地址
                                          lower_port => 25,  --smtp端口
                                          upper_port => NULL);  
    end;  
/
commit;

SQL> begin
  2    send_mail(mail_body => 'afafagaga');
  3  end;
  4  /
 
PL/SQL procedure successfully completed

（作者测试过程中曾遇到过

ORA-24247: 网络访问被访问控制列表 (ACL) 拒绝;

ORA-29278: SMTP 临时性错误: 421 Service not available；

ORA-44416: ACL 无效: 无法解析的主用户 ‘AGENT‘

这三个主要错误，按照上述步骤均能解决这些问题）

Oracle 11g 环境下，利用utl_smtp创建发送邮件的存储过程,古老的榕树,5-wow.com