在《使用包实现存储过程邮件发送》(http://space.itpub.net/17203031/viewspace-700327)中，笔者已经初步介绍了使用UTL_MAIL包实现系统邮件发送功能。UTL_MAIL包较传统的PL/SQL邮件发送已经有很大改进和简化。
但是对于一般系统而言，邮件功能设置(如发送、接受邮箱设置、邮件服务器)都是统一进行配置管理的，要有严格的控制。例如：一些敏感信息就可能会通过有意的邮件调用加以泄露。本篇中，笔者介绍一种封装utl_mail包的方法，进一步简化邮件功能。
1、相关配置项目
首先回顾一下使用Utl_mail包，并且进行邮件发送需要进行的配置。
ü在sys用户schema下，手动安装utl_mail程序包；
ü对smtp_out_server参数进行配置，设置为邮件服务器名称或者IP地址；
ü调用用户必须对utl_mail、utl_tcp、utl_smtp和dbms_network_acl_admin包程序的execute权限；
ü将调用用户加入到ACL访问控制列表中，使其拥有connect权限；
ü如果进行中文message发送，还要进行mime_type参数的设置。指定适合的编码方式；
这些权限设置赋予给系统用户，潜在一些被滥用的可能。所以，我们可以借助存储过程的定义者权限definer机制，对utl_mail包进行封装。
2、存储过程定义
在sys schema下定义存储过程p_mailutil_for_nbs_nc。
SQL> create or replace procedure P_MAILUTIL_FOR_NBS_NC
2(
3i_vc_subject in varchar2,
4i_vc_message in varchar2,
5o_vc_message out varchar2
6)
7is
8vc_subject varchar2(1000);
9begin
10vc_subject := 'Message From NBS System : '||i_vc_subject;
11
12utl_mail.send(sender => 'liuziyu@acca.com.cn',
13recipients => 'realkid4@126.com',
14subject => vc_subject,
15message => i_vc_message,mime_type => 'text/plain;charset=UTF-8');
16exception
17when others then
18o_vc_message := 'Errors in P_MAILUTIL_FOR_NBS_NC '||sqlcode||'-'|| sqlerrm;
19return;
20end P_MAILUTIL_FOR_NBS_NC;
21/
Procedure created
在sys用户下实验执行。
SQL> var vc_message varchar2(1000);
SQL> exec p_mailutil_for_nbs_nc(i_vc_subject => '劳动法',i_vc_message => 'sldf刻录机',o_vc_message => :vc_message);
PL/SQL procedure successfully completed
vc_message
---------
邮件收到
在sys用户下，存储过程p_mailutil_for_nbs_nc方法执行成功。
3、设置实验用户和权限
在sys下，我们新建立一个用户，设置基本权限。
SQL> create public synonym p_mailutil_for_nbs_nc for p_mailutil_for_nbs_nc;
Synonym created
SQL> create user test identified by test;
User created
SQL> grant connect to test;
Grant succeeded
SQL> grant resource to test;
Grant succeeded
SQL> grant execute on p_mailutil_for_nbs_nc to test;
Grant succeeded
新建立用户test，只具有connect和resource两个基本权限。此外就是对p_mailutil_for_nbs_nc的调用权限。没有utl_*包的权限，也没有可以设置ACL访问权限。
4、非sys用户调用
下面实验非sys用户调用效果。
--切换用户
SQL> conn test/test@ora11g;
Connected to Oracle Database11gEnterpriseEdition Release11.2.0.1.0
Connected as test
SQL> var vc_message varchar2(1000);
SQL> exec p_mailutil_for_nbs_nc(i_vc_subject => 'TSET劳动法',i_vc_message => 'User TesT:sldf刻录机',o_vc_message => :vc_message);
PL/SQL procedure successfully completed
vc_message
---------
邮件发送成功。
5、结论
上述实验，实现了对应用用户最小范围的权限设置，实现统一的邮件发送规范。注意，此处我们借用了存储过程的定义者权限机制。在默认情况下，调用一个存储过程中，使用的对象和系统权限是这个存储过程定义者拥有的权限。Sys用户拥有对utl_*包和ACL访问权限，所以调用者只需要拥有存储过程的执行权限就可以了。这样的配置也可以防止系统接口被滥用。
在进一步考虑，如果需要对p_mailutil_for_nbs_nc源代码进行屏蔽，可以考虑使用wrap功能加以实现，可以参见笔者《使用Wrap加密，保护Oracle程序源代码》(http://space.itpub.net/17203031/viewspace-695700)相关内容。
)
2)
