oracle存储发送邮件,Oracle发送邮件存储过程

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

CREATE OR REPLACE PROCEDURE SEND_MAIL_one(as_recp in varchar2,--邮件接收者

as_subject in varchar2,--邮件标题

as_msg_body in varchar2) --邮件内容

IS

ls_mailhost varchar2(30) := '192.168.0.1'; -- 邮件服务地址

lc_mail_conn utl_smtp.connection;

ls_subject varchar2(100);

ls_msg_body varchar2(20000);

--邮件服务器上发件人的帐号和密码

ls_username varchar2(256) := '[email protected]';

ls_password varchar2(256) := '123456';

BEGIN

lc_mail_conn := utl_smtp.open_connection(ls_mailhost,25);--在特定地址特定端口获得链接

utl_smtp.helo(lc_mail_conn,ls_mailhost);

utl_smtp.command(lc_mail_conn,'AUTH LOGIN');

utl_smtp.command(lc_mail_conn,demo_base64.encode(utl_raw.cast_to_raw(ls_username)));

utl_smtp.command(lc_mail_conn,demo_base64.encode(utl_raw.cast_to_raw(ls_password)));

ls_subject := 'Subject: [' || upper(sys_context('userenv','db_name')) ||

'] - ' || convert(as_subject,'ZHS16GBK','AL32UTF8');

ls_msg_body := convert(as_msg_body,'AL32UTF8');

utl_smtp.mail(lc_mail_conn,'');

utl_smtp.rcpt(lc_mail_conn,'');

utl_smtp.open_data(lc_mail_conn);

ls_msg_body := 'From: ' || '发件人sxgkwei' || chr(13) || chr(10) ||

'To: ' || as_recp || chr(13) || chr(10) || ls_subject ||

chr(13) || chr(10) || chr(13) || chr(10) || ls_msg_body;

utl_smtp.write_raw_data(lc_mail_conn,utl_raw.cast_to_raw(ls_msg_body));

utl_smtp.close_data(lc_mail_conn);

utl_smtp.quit(lc_mail_conn);

EXCEPTION

WHEN UTL_SMTP.INVALID_OPERATION THEN

dbms_output.put_line('invalid operation');

WHEN UTL_SMTP.TRANSIENT_ERROR THEN

dbms_output.put_line('transient error');

WHEN UTL_SMTP.PERMANENT_ERROR THEN

dbms_output.put_line('permanent error');

WHEN OTHERS THEN

dbms_output.put_line('others');

end SEND_MAIL_one;

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

总结

以上是编程之家为你收集整理的Oracle发送邮件存储过程全部内容，希望文章能够帮你解决Oracle发送邮件存储过程所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。