怎么在ORACLE中配置邮件服务器？很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

1 创建 ACL

BEGINdbms_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 赋予权限

begindbms_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 设置端口

begindbms_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_dateFROMdba_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);--邮件内容BEGINv_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:SMTP500errorUTL_SMTP.rcpt(v_conn,'<'||p_recipient||'>');--设置收件人UTL_SMTP.open_data(v_conn);--打开流ifp_type=1then--创建要发送的邮件内容注意报头信息和邮件正文之间要空一行v_msg:='Date:'||TO_CHAR(SYSDATE,'ddmonyyhh34: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=2thenUTL_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);--关闭连接EXCEPTIONWHENOTHERSTHENDBMS_OUTPUT.put_line(DBMS_UTILITY.format_error_stack);DBMS_OUTPUT.put_line(DBMS_UTILITY.format_call_stack);END;

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。