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,'<' || '发件人sxgkwei' || '>');   utl_smtp.rcpt(lc_mail_conn,'<' || as_recp || '>');   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发送邮件存储过程所遇到的程序开发问题。

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