- 浏览: 215328 次
- 性别:
- 来自: 重庆
文章分类
最新评论
-
fitzsu:
关于中文占多少字节的问题应该是跟字符集相关的,跟类型无关的对吗 ...
Oracle CHAR,VARCHAR,VARCHAR2,nvarchar类型的区别与使用 -
showzh:
...
Oracle CHAR,VARCHAR,VARCHAR2,nvarchar类型的区别与使用 -
ltian:
实话实说,让我云里雾里!不知道Hibernate缓存能力和云计 ...
OO + 分布式计算 = 软件架构的方向 -
蔡华江:
5.如果数据间引用不存在环路,还可以用递归查询来完成如果出现环 ...
一道数据库开发面试题 -
zydar:
自己不改~
springside3版本qWikiOffice
create or replace procedure bsd_sendemail(p_receiver varchar2,
p_sub varchar2,
p_txt varchar2) is
p_user varchar2 (30) := '';
p_pass varchar2 (30) := '';
p_sendor varchar2 (20) := 'Gnie';
p_server varchar2 (20) := 'Mail_Server_IP';
p_port number := 25;
p_need_smtp number := 0;
p_subject varchar2 (4000);
l_crlf varchar2 (2) := utl_tcp.crlf;
l_sendoraddress varchar2 (4000);
l_splite varchar2 (10) := '++';
boundary constant varchar2 (256) := '-----BYSUK';
first_boundary constant varchar2(256) := '--' || boundary || l_crlf;
last_boundary constant varchar2 (256) := '--' || boundary || '--' ||
l_crlf;
multipart_mime_type constant varchar2(256) := 'multipart/mixed;boundary="' ||
boundary || '"';
type address_list is table of varchar2(100) index by binary_integer;
my_address_list address_list ;
---------------------------------------分割邮件地址----------------------------------------------
procedure p_splite_str(p_str varchar2, p_splite_flag int default 1) is
l_addr varchar2(254) := '';
l_len int;
l_str varchar2(4000);
j int := 0; --表示邮件地址或者附件的个数
begin
/*处理接收邮件地址列表,包括去空格、将;转换为,等*/
l_str := trim(rtrim(replace(replace(p_str, ';', ','), '', ''), ','));
l_len := length(l_str);
for i in 1 .. l_len loop
if substr(l_str, i, 1) <> ',' then
l_addr := l_addr || substr(l_str, i, 1);
else
j := j + 1;
if p_splite_flag = 1 then
--表示处理邮件地址
--前后需要加上'<>',否则很多邮箱将不能发送邮件
l_addr := '<' || l_addr || '>';
--调用邮件发送过程
my_address_list(j) := l_addr;
end if;
l_addr := '';
end if;
if i = l_len then
j := j + 1;
if p_splite_flag = 1 then
--调用邮件发送过程
l_addr := '<' || l_addr || '>';
my_address_list(j) := l_addr;
end if;
end if;
end loop;
end;
------------------------------------------------写邮件头和邮件内容------------------------------------------
procedure write_data(p_conn in out nocopy utl_smtp.connection,
p_name in varchar2,
p_value in varchar2,
p_splite varchar2 default ':',
p_crlf varchar2 default l_crlf) is
begin
/*utl_raw.cast_to_raw对解决中文乱码问题很重要*/
utl_smtp.write_raw_data(p_conn,
utl_raw.cast_to_raw(convert(p_name || p_splite ||
p_value || p_crlf,
'ZHS16CGB231280')));
end;
----------------------------------------写mime邮件尾部-----------------------------------------------------
procedure end_boundary(conn in out nocopy utl_smtp.connection,
last in boolean default false) is
begin
utl_smtp.write_data(conn, utl_tcp.crlf);
if (last) then
utl_smtp.write_data(conn, last_boundary);
end if;
end;
---------------------------------------------真正发送邮件的过程--------------------------------------------
procedure p_email(p_sendoraddress2 varchar2, --发送地址
p_receiveraddress2 varchar2) --接受地址
is
l_conn utl_smtp.connection; --定义连接
begin
/*初始化邮件服务器信息,连接邮件服务器*/
l_conn := utl_smtp.open_connection(p_server, p_port);
utl_smtp.helo(l_conn, p_server);
/*smtp服务器登录校验*/
if p_need_smtp = 1 then
utl_smtp.command(l_conn, 'AUTHLOGIN', '');
utl_smtp.command(l_conn,
utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(p_user))));
utl_smtp.command(l_conn,
utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(p_pass))));
end if;
/*设置发送地址和接收地址*/
utl_smtp.mail(l_conn, p_sendoraddress2);
utl_smtp.rcpt(l_conn, p_receiveraddress2);
/*设置邮件头*/
utl_smtp.open_data(l_conn);
/*设置日期*/
--write_data(l_conn,'Date',to_char(sysdate-1/3,'ddMonyyhh24:mi:ss'));
/*设置发送人*/
write_data(l_conn, 'From', p_sendor);
/*设置接收人*/
write_data(l_conn, 'To', p_receiver);
/*设置邮件主题*/
select replace('=?GB2312?B?' ||
utl_raw.cast_to_varchar2(utl_encode.base64_encode(rawtohex(p_sub))) || '?=',
utl_tcp.crlf,
'') into p_subject from dual;
write_data(l_conn, 'Subject', p_subject);
write_data(l_conn, 'Content-Type', multipart_mime_type);
utl_smtp.write_data(l_conn, utl_tcp.crlf);
utl_smtp.write_data(l_conn, first_boundary);
write_data(l_conn, 'Content-Type', 'text/html;charset=gb2312');
--单独空一行,否则,正文内容不显示
utl_smtp.write_data(l_conn, utl_tcp.crlf);
/*设置邮件正文
把分隔符还原成chr(10)。这主要是为了shell中调用该过程,如果有多行,则先把多行的内容合并成一行,并用l_splite分隔
然后用l_crlf替换chr(10)。这一步是必须的,否则将不能发送邮件正文有多行的邮件
*/
write_data(l_conn,
'',
replace(replace(p_txt, l_splite, chr(10)), chr(10), l_crlf),
'',
'');
end_boundary(l_conn);
/*关闭数据写入*/
utl_smtp.close_data(l_conn);
/*关闭连接*/
utl_smtp.quit(l_conn);
end;
---------------------------------------------主过程-----------------------------------------------------
begin
l_sendoraddress := '<' || p_sendor || '>';
p_splite_str(p_receiver); --处理邮件地址
for k in 1 .. my_address_list.count loop
p_email(l_sendoraddress, my_address_list(k));
end loop;
/*处理邮件地址,根据逗号分割邮件*/
end;
发表评论
-
Merge into bug?
2014-07-02 10:54 2944在ORACLE 11.2.0.3上执行merge into ... -
AWR 报告关键部分
2014-06-09 10:38 3811、后台等待事件 2、按Gets排序的SQL 3、按读取 ... -
DBLinks 新增加字段后,提示标识符无效
2014-06-06 15:03 1063在用DBlinks同步数据中,原表和目标表增加了 ... -
PowerDesigner 之 report html
2014-04-09 12:04 635谁说的PowerDesigner 导出的Html不好看?在相对 ... -
Oracle之行转列
2014-04-04 14:53 492select regexp_substr(in_code_k ... -
用 Oracle 数据库 10g 通过回收浪费的空间、联机重组表格和评估增长的趋势,有效地在段中进行存储管理
2010-06-22 14:45 1947近来,有人要求我评估一个与 Oracle 数据库竞争的 RDB ... -
官方的linux下卸载oracle步骤
2010-05-19 16:40 16385 Removing Oracle SoftwareThis ... -
Oracle服务器如何科学组织RAID阵列
2010-05-11 13:37 1328我们在部署服务器时通 ... -
通过Oracle发送Email
2010-05-11 13:14 1255本篇是通过Oracle10g发送Email实例,该Proce ... -
Oracle PL/SQL编程规范指南
2010-05-11 12:31 1289一、PL/SQL编程规范之大 ... -
全面认识Oracle数据库字符集
2010-05-01 14:16 864什么是Oracle字符集 Oracle字符集是一个字节数 ... -
Oracle 系统表大全
2010-04-21 15:04 697数据字典dict总是属于Oracle用户sys的。 1、用户 ... -
Oracle中杀不掉的锁
2010-04-21 14:29 679一些ORACLE中的进程被杀掉后,状态被置为"kil ... -
flashback table
2010-04-07 10:50 1650小心误删除了某个表中 ... -
clob_to_varchar2
2010-03-18 18:31 768CREATE OR REPLACE FUNCTION kf_c ... -
一道数据库开发面试题
2010-03-18 17:56 1629已知表route,字段和内容如下: 起始节点 终止节点 ... -
PL/SQL的递归调用
2010-03-18 17:51 1019已知表route,字段和内容如下: 起始节点 终止节点 距离 ... -
分析函数3(Top/Bottom N、First/Last、NTile)
2010-03-18 17:42 1003一、带空值的排列: 假如被排列的数据中含有空值呢? SQL& ... -
利用oracle快照dblink解决数据库表同步问题
2009-12-30 08:48 954--1、在目的数据库上,创建dblink drop publi ... -
Oracle 示例:Oracle Warehouse Builder 11g
2009-12-09 12:07 871http://www.oracle.com/technolog ...
相关推荐
bsd_type.h
BSD_ROOTKIT设计 BSD_ROOTKIT设计
freebsd9.2无法识别rtl8168系列网卡, 这是驱动包,需要编译下,详情看说明
_bsd_types.h
利用贝叶斯逐步判别方法,判别分类。文中设计了12中类别,自己可根据需要修改。
压力传感器86BSD驱动代码,以及温度压力计算公式。
BSP BSD_ixp400AccessLibrary-3_0_1.zip
2.11BSD_X44(TBA) 2.11BSD在BSD的历史上是独一无二的,直到最近十年,它仍在收到其代码库的补丁程序。 也是唯一一个接收从4BSD的多个版本反向移植的补丁程序的BSD。 2.11BSD_X44是2.11BSD并延续了这一传统。 用...
4.4BSD操作系统设计与实现,值得研究
xilinx FPGA IBIS模型,系统集成FPGA 分析必备工具
FreeBSD 中文使用手册 本手册适用于安装 FreeBSD 5.4-RELEASE 和 FreeBSD 6.0-RELEASE 以及它们的日常使用。
此文件对您来说没那么重要,请不要下载,仅仅为了积分上传,
freebsd v4.4内核源码,适合内核源代码爱好者下载学习
PCBSD是基于freebsd的以桌面应用为目的的操作系统,...为解决bsd安装软件的难题,除了与原有的 FreeBSD Ports 系统相容外,pcbsd开发了一种全新的方式,PBI,通过PBI安装软件跟windows中一样,只需要双击就可以了。
代码如下:create or replace procedure bsd_sendemail (p_receiver varchar2,p_sub varchar2,p_txt varchar2) is p_user varchar2(30) := ”; p_pass varchar2(30) := ”; p_sendor varchar2(20) := ‘Gnie’;...
socket_4.4BSD_Lite 套接字源码
BSD手册,命令详解,操作指南,使用配置
bsd-mailx_8.1.2-0.20071201cvs-3_i386.deb mailx_20071201-3_all.deb Android email bugs
深度学习、数字图像处理常用数据集BSD68,BSD100,分别为68张灰度图,大小不一;100张彩色图像,大小不一。
PDF带书签(索引)版FreeBSD 使用手册 ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/下载的pdf版FreeBSD 使用手册,适用于安装 FreeBSD 6.3-RELEASE 和 FreeBSD 7.0-RELEASE 以及它们的日常使用。 原文件没有书签阅读很是...