oracle 邮件过程,Oracle 发邮件过程

比眉伴天荒 2022-10-21 04:58 374阅读 0赞

oracle 版本 11g

CREATE OR REPLACE PROCEDURE pro\_sendmail(sender     IN VARCHAR2 DEFAULT '发件人邮箱',

recipient1 IN VARCHAR2 DEFAULT '收件人邮箱',

recipient2 IN VARCHAR2 DEFAULT '收件人邮箱',

recipient3 IN VARCHAR2 DEFAULT '收件人邮箱',

recipient4 IN VARCHAR2 DEFAULT '收件人邮箱',

subject    IN VARCHAR2 DEFAULT '标题',

message    IN VARCHAR2 DEFAULT '邮件内容',

message01    IN VARCHAR2 DEFAULT '邮件内容') IS

mailhost VARCHAR2(30) := 'smtp.139.com'; --邮箱服务器地址我这里139邮箱

\--receiver VARCHAR2(30) :='监控管理员';

mail\_passwd varchar(20) :='邮箱密码';

connter\_addr        utl\_smtp.connection;

msg\_content      VARCHAR2(1000);

BEGIN

msg\_content := 'Date: ' || to\_char(SYSDATE , 'yyyy-mm-dd hh24:mi:ss') ||

utl\_tcp.crlf || 'From: ' || utl\_tcp.crlf ||

'subject: ' || subject || utl\_tcp.crlf || 'To:

'>;;' || utl\_tcp.crlf || 'Cc:

recipient4 || '>' || utl\_tcp.crlf || '' || utl\_tcp.crlf ||

message||message01;

connter\_addr   := utl\_smtp.open\_connection(mailhost, 25);

utl\_smtp.helo(connter\_addr, mailhost);

utl\_smtp.command(connter\_addr, 'auth login');

utl\_smtp.command(connter\_addr,

utl\_raw.cast\_to\_varchar2(utl\_encode.base64\_encode(utl\_raw.cast\_to\_raw(sender))));

utl\_smtp.command(connter\_addr,

utl\_raw.cast\_to\_varchar2(utl\_encode.base64\_encode(utl\_raw.cast\_to\_raw(mail\_passwd))));

utl\_smtp.mail(connter\_addr, sender);      --发件人

utl\_smtp.rcpt(connter\_addr, recipient1);  --收件人

utl\_smtp.rcpt(connter\_addr, recipient2);

utl\_smtp.rcpt(connter\_addr, recipient3);

utl\_smtp.rcpt(connter\_addr, recipient4);

utl\_smtp.open\_data(connter\_addr);          --打开邮箱连接

utl\_smtp.write\_raw\_data(connter\_addr, utl\_raw.cast\_to\_raw(msg\_content));

utl\_smtp.close\_data(connter\_addr);

utl\_smtp.quit(connter\_addr);

EXCEPTION

WHEN OTHERS THEN

DBMS\_OUTPUT.put\_line(DBMS\_UTILITY.format\_error\_stack);

DBMS\_OUTPUT.put\_line(DBMS\_UTILITY.format\_call\_stack);

END pro\_sendmail;

添加ACL规则

1)创建访问控制列表acl

BEGIN

DBMS\_NETWORK\_ACL\_ADMIN.CREATE\_ACL (

acl          => 'mail server.xml',

description  => ' mail server',

principal    => 'SYS',--进行操作的数据库用户且用户要大写

is\_grant     => TRUE,

privilege    => 'connect');

END;

2)将ACL与邮件服务器关联(这里我用139邮箱)

/\*新浪的邮箱服务器地址，如果是用qq作为发送邮件，

smtp.139.com  139邮箱

smtp.163.com  163邮箱

smtp.126.com  126邮箱

smtp.sina.com 新浪邮箱则用qq邮箱服务器地址smtp.qq .com\*/

BEGIN

DBMS\_NETWORK\_ACL\_ADMIN.assign\_acl (

acl         => 'mail server.xml',

host        => 'smtp.139.com',

lower\_port  => 25,

upper\_port  => NULL);

COMMIT;

END;

，可用dba\_network\_acls查看是否已经生成

SELECT host, lower\_port, upper\_port, acl FROM sys.dba\_network\_acls;

3)为执行的数据库用户授予连接邮件服务器的权限

BEGIN

dbms\_network\_acl\_admin.add\_privilege(

acl        => 'mail server.xml',

principal =>'SYS',--进行操作的数据库用户且用户要大写

is\_grant   =>  TRUE,

privilege  => 'connect');

END;

采用dba\_network\_acl\_privileges视图查看授予的权限

SELECT acl,

principal,

privilege,

is\_grant,

TO\_CHAR(start\_date, 'DD-MON-YYYY') AS start\_date,

TO\_CHAR(end\_date, 'DD-MON-YYYY') AS end\_date

FROM sys.dba\_network\_acl\_privileges;

如果配置规则文件有错误可以执行下面语句重新配置

\-- 删除acl配置文件

begin

dbms\_network\_acl\_admin.drop\_acl(

'mail server.xml'

);

commit;

end;

4.utl\_tcp.crlf作用：换行

注意在写邮件标题，发送人，接收人，邮件内容时，各个之间一定要有换行，否则会无法发送或者是邮件内容为空。

5.中文乱码问题

utl\_smtp.write\_raw\_data 用该过程替代utl\_smtp.write\_data可以解决中文乱码的问题。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/29065182/viewspace-1689195/，如需转载，请注明出处，否则将追究法律责任。

oracle 邮件过程,Oracle 发邮件过程

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 oracle存储过程发邮件

相关 oracle 邮件过程,Oracle 发邮件过程

相关 Java 发邮件

相关 python发邮件

相关 java 发邮件

相关 oracle发送邮件存储过程:

相关群发邮件

相关 flask 发邮件

相关 springboot-发邮件

相关 javamail发邮件