Oracle发送邮件存储过程
发布时间:2021-01-16 18:47:43 所属栏目:MySql教程 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 CREATE OR REPLACE PROCEDURE SEND_MAIL_one(as_recp in varchar2,--邮件接收者 as_subject in varchar2,--邮件标题 as_msg_body in varchar2) --邮件
|
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 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;
以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:邯郸站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |


