--创建ACL
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(
acl=>'email_server_permissions.xml',
description=>'Enablesnetworkpermissionsforthee-mailserver',
principal=>'email_user',
is_grant=>TRUE,
privilege=>'connect');
END;
/

--与邮件服务关联
BEGIN
DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(
acl=>'email_server_permissions.xml',
host=>'smtp_server',
lower_port=>port);
END;
/

--这样email_user用户帐户创建的存储过程便可以向此邮件服务器发送邮件