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;

------------------------------------------------寫郵件標頭和郵件內容------------------------------------------
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;