oracle发送邮件存储过程:
oracle发送邮件存储过程:
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;
-------------------------------
相关文档：
1、目的：
Oracle系统中的profile可以用以对用户所能施用的数据库资源进展限制，运用Create Profile下令创办一个Profile，用它来兑现对数据库资源的限制运用，如果把该profile分配给用户，则该用户所能施用的数据库资源都在该profile的限制以内。
2、条件：
创设profile务必要有CREATE PROFILE的系� ......
最近公司打算在下一代计费系统里面使用内存数据库的技术，所以作为公司的设计人员之一的我，在oracle网上下了个TimesTen，安装在我们的测试服务器上面aix5，这篇短文主要是我操作数据库的一个笔记，下一篇打算发一个c程序的例子和我测试的结果，后续可能还会使用TimesTen cache of oracle这个产品，陆续也会发一下这� ......
配置文件：
<hibernate-mapping>
<class name="vo.SshPost" table="ssh_post" >
<!-- <cache usage="read-write"/>-->
<id name="postId" type="java.lang.String">
......
如果仅仅是lock，以下语句可以发现所有用户锁 :
SELECT s.username,
decode(l.type, 'TM', 'TABLE LOCK', 'TX', 'ROW LOCK', NULL) LOCK_LEVEL,
o.owner,
o.object_name,
&n ......
SQL> select dbms_metadata.get_ddl('PROCEDURE','PRO2','SCOTT') text from dual;
TEXT
----------------------------------------
CREATE OR REPLACE PROCEDURE "SCOTT"."P
RO2"
is
begin
dbms_output.put_line('wangpeng up');
end;
SQL> select dbms_metadata.get_ddl('PROCEDURE','PRO1','SCOTT') te ......
