【标 题】：使用Oracle的PL/SQL发送Email
【关键字】：Oracle,PL/SQL,Email
【来 源】：http://blog.csdn.net/Hunterdiary/archive/2007/03/05/1521063.aspx
CREATE OR REPLACE PROCEDURE sendEmail(smtp_server VARCHAR2,
from_userid VARCHAR2,
to_userid VARCHAR2,
subject VARCHAR2,
body VARCHAR2,
from_name VARCHAR2 := NULL,
to_name VARCHAR2 := NULL,
content_type VARCHAR2 := NULL)
IS
c utl_smtp.connection;
from_domain VARCHAR2(200) := SUBSTR(from_userid,INSTR(from_userid,'@')+1);
PROCEDURE header(name VARCHAR2, value VARCHAR2) IS
BEGIN
utl_smtp.write_data(c, name || ': ' || value || utl_tcp.CRLF);
END;
BEGIN
c := utl_smtp.open_connection( smtp_server );
utl_smtp.helo(c, from_domain );
utl_smtp.mail(c, from_userid );
utl_smtp.rcpt(c, to_userid );
utl_smtp.open_data(c);
header('From','"'||NVL(from_name,from_userid)||'" <'||from_userid||'>');
header('To','"'||NVL(to_name,to_userid)||'" <'||to_userid||'>');
header('Subject', subject );
header('Content-Type', NVL(content_type,'text/plain'));
utl_smtp.write_data(c, utl_tcp.CRLF || body );
utl_smtp.close_data(c);
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(c);
raise_application_error(-20199,'Error sending mail: ' || sqlerrm);
END;
【关键字】：Oracle,PL/SQL,Email
【来 源】：http://blog.csdn.net/Hunterdiary/archive/2007/03/05/1521063.aspx
使用Oracle的PL/SQL发送Email
使用Oracle的PL/SQL发送Email:
CREATE OR REPLACE PROCEDURE sendEmail(smtp_server VARCHAR2, from_userid VARCHAR2, to_userid VARCHAR2, subject VARCHAR2, body VARCHAR2, from_name VARCHAR2 := NULL, to_name VARCHAR2 := NULL, content_type VARCHAR2 := NULL)IS c utl_smtp.connection; from_domain VARCHAR2(200) := SUBSTR(from_userid,INSTR(from_userid,'@')+1); PROCEDURE header(name VARCHAR2, value VARCHAR2) IS BEGIN utl_smtp.write_data(c, name || ': ' || value || utl_tcp.CRLF); END;BEGIN c := utl_smtp.open_connection( smtp_server ); utl_smtp.helo(c, from_domain ); utl_smtp.mail(c, from_userid ); utl_smtp.rcpt(c, to_userid ); utl_smtp.open_data(c); header('From','"'||NVL(from_name,from_userid)||'" <'||from_userid||'>'); header('To','"'||NVL(to_name,to_userid)||'" <'||to_userid||'>'); header('Subject', subject ); header('Content-Type', NVL(content_type,'text/plain')); utl_smtp.write_data(c, utl_tcp.CRLF || body ); utl_smtp.close_data(c); utl_smtp.quit(c);EXCEPTION WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN utl_smtp.quit(c); raise_application_error(-20199,'Error sending mail: ' || sqlerrm);END;
【相关文章】
Error:ORA-01033:ORACLE initialization or shutdown in progress错误解决
Oracle 丢失数据文件和控制文件的恢复案例
Oracle表段中的高水位线HWM
oracle SQL性能优化
解析oracle的rownum
oracle数据字典简介说明
如何打开ORACLE9i 的自动归档模式
oracle学习日记－0304RMAN nocatalog备份当通过rman nocatalog方式
oracle init.ora 文件据在位置
ORACLE 中 设置 utl_file_dir
【随机文章】
模拟OICQ的实现思路和核心程序(一)
关于CLR 2.0中托管范型的理解
学习笔记:一个win32asm简单的带控件对话框程序及较详细注释
C++ Style and Technique FAQ （中文版）(ZT)
红旗--IBM共同拓展中小银行市场
谈谈串口针脚高低电位测试工具。
WebClient和WebRequest获取html代码
SecureCRT4.0登陆linux后显示彩色
在Win2003下vmware安装与配置
CentOS 4 -ix86
【相关评论】
没有相关评论
【发表评论】
|