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;
-------------------------------