ORACLE 配置邮件服务器操作示例
本文实例讲述了ORACLE配置邮件服务器操作。分享给大家供大家参考，具体如下：
在Oraclesqldeveloper中执行必须有BeginEND
1创建ACL
BEGIN dbms_network_acl_admin.create_acl(acl=>'email.xml', DESCRIPTION=>'Enablesnetworkpermissionsforthee-mailserver', principal=>'C##ESD_MONITOR',--表示赋予哪个用户必须大写 is_grant=>TRUE, PRIVILEGE=>'resolve', start_date=>NULL, end_date=>NULL); END;
2赋予权限
begin dbms_network_acl_admin.add_privilege(acl=>'email.xml',--同上xml名称 principal=>'C##ESD_MONITOR',--表示赋予哪个用户必须大写 is_grant=>TRUE, privilege=>'connect',--权限名 start_date=>null, end_date=>null); end;
3设置端口
begin dbms_network_acl_admin.assign_acl(--该段命令意思是允许访问acl名为utl_sendmail.xml下授权的用户，使用oracle网络访问包，所允许访问的目的主机，及其端口范围。 acl=>'email.xml', host=>'*'--,--ip地址或者域名，填写http://localhost:9000/hello与http://localhost:9000/是会报host无效的 --且建议使用ip地址或者使用域名，若用localhost，当oracle不是安装在本机上的情况下，会出现问题 --lower_port=>9000,--允许访问的起始端口号 --upper_port=>Null--允许访问的截止端口号 ); end;
4查询权限设置情况
SELECTacl, principal, privilege, is_grant, TO_CHAR(start_date,'DD-MON-YYYY')ASstart_date, TO_CHAR(end_date,'DD-MON-YYYY')ASend_date FROMdba_network_acl_privileges;
5创建邮件发送存储过程
createorreplaceproceduresend_mail(p_recipientVARCHAR2,--邮件接收人
p_subjectVARCHAR2,--邮件标题
p_messageVARCHAR2,--邮件正文
p_typenumber--1文本2html
)as
--下面四个变量请根据实际邮件服务器进行赋值
v_mailhostVARCHAR2(30):='smtp.qq.com';--SMTP服务器地址
v_userVARCHAR2(30):='111@qq.com';--登录SMTP服务器的用户名
v_passVARCHAR2(20):='111';--登录SMTP服务器的密码授权码
v_senderVARCHAR2(50):='111@qq.com';--发送者邮箱，一般与ps_user对应
v_connUTL_SMTP.connection;--到邮件服务器的连接
v_msgvarchar2(4000);--邮件内容
BEGIN
v_conn:=UTL_SMTP.open_connection(v_mailhost,25);
UTL_SMTP.ehlo(v_conn,v_mailhost);--是用ehlo()而不是helo()函数
--否则会报：ORA-29279:SMTP永久性错误:5035.5.2Sendhellofirst.
UTL_SMTP.command(v_conn,'AUTHLOGIN');--smtp服务器登录校验
UTL_SMTP.command(v_conn,
UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_user))));
UTL_SMTP.command(v_conn,
UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_pass))));
UTL_SMTP.mail(v_conn,'<'||v_sender||'>');--设置发件人注：网上很多资料直接写v_sender，这样写会报ORA-29279:SMTP500error
UTL_SMTP.rcpt(v_conn,'<'||p_recipient||'>');--设置收件人
UTL_SMTP.open_data(v_conn);--打开流
ifp_type=1then
--创建要发送的邮件内容注意报头信息和邮件正文之间要空一行
v_msg:='Date:'||TO_CHAR(SYSDATE,'ddmonyyhh24:mi:ss')||
UTL_TCP.CRLF||'From:'||'<'||v_sender||'>'||
UTL_TCP.CRLF||'To:'||'<'||p_recipient||'>'||
UTL_TCP.CRLF||'Subject:'||p_subject||UTL_TCP.CRLF||
UTL_TCP.CRLF--这前面是报头信息
||p_message;--这个是邮件正文
UTL_SMTP.write_raw_data(v_conn,UTL_RAW.cast_to_raw(v_msg));--这样写标题和内容都能用中文
elsifp_type=2then
UTL_SMTP.write_data(v_conn,
'From:'||'<'||v_sender||'>'||utl_tcp.CRLF);
UTL_SMTP.write_data(v_conn,
'To:'||'<'||p_recipient||'>'||
utl_tcp.crlf);
UTL_SMTP.write_raw_data(v_conn,
UTL_RAW.cast_to_raw(convert('Subject:'||
p_subject||
utl_tcp.CRLF,
'ZHS16GBK')));
UTL_SMTP.write_raw_data(v_conn,
UTL_RAW.cast_to_raw(convert('Content-Type:text/html;charset=GBK'||
utl_tcp.CRLF,
'ZHS16GBK')));
UTL_SMTP.write_data(v_conn,utl_tcp.CRLF);
UTL_SMTP.write_raw_data(v_conn,
UTL_RAW.cast_to_raw(convert(p_message,
'ZHS16GBK')));--这样写标题和内容都能用中文
endif;
UTL_SMTP.close_data(v_conn);--关闭流
UTL_SMTP.quit(v_conn);--关闭连接
EXCEPTION
WHENOTHERSTHEN
DBMS_OUTPUT.put_line(DBMS_UTILITY.format_error_stack);
DBMS_OUTPUT.put_line(DBMS_UTILITY.format_call_stack);
END;
更多关于Oracle相关内容感兴趣的读者可查看本站专题：《Oracle常用函数汇总》、《Oracle日期与时间操作技巧总结》及《php+Oracle数据库程序设计技巧总结》
希望本文所述对大家Oracle数据库程序设计有所帮助。
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。