通過Oracle發送Email的實現方法

在Procedure中p_receiver為收件者地址，多收件者以“,”英文逗號）分割，
p_sub為郵件標題，p_txt為郵件內容支援HTML）。代碼如下：

 

  
createorreplaceprocedurebsd_sendemail(p_receivervarchar2,p_subvarchar2,p_txtvarchar2)  
  
is 
  
p_uservarchar2(30):='';  
  
p_passvarchar2(30):='';  
  
p_sendorvarchar2(20):='Gnie';  
  
p_servervarchar2(20):='Mail_Server_IP';  
  
p_portnumber:=25;  
  
p_need_smtpnumber:=0;  
  
p_subjectvarchar2(4000);  
  
l_crlfvarchar2(2):=utl_tcp.crlf;  
  
l_sendoraddressvarchar2(4000);  
  
l_splitevarchar2(10):='++';  
  
boundaryconstantvarchar2(256):='-----BYSUK';  
  
first_boundaryconstantvarchar2(256):='--'||boundary||l_crlf;  
  
last_boundaryconstantvarchar2(256):='--'||boundary||'--'||l_crlf;  
  
multipart_mime_typeconstantvarchar2(256):='multipart/mixed;boundary="'||boundary||'"';  
  
 
  
typeaddress_lististableofvarchar2(100)indexbybinary_integer;  
  
my_address_listaddress_list;  
  
---------------------------------------分割郵件地址----------------------------------------------  
  
procedurep_splite_str(p_strvarchar2,p_splite_flagintdefault1)is 
  
l_addrvarchar2(254):='';  
  
l_lenint;  
  
l_strvarchar2(4000);  
  
jint:=0;--表示郵件地址或者附件的個數  
  
begin 
  
/*處理內送郵件地址清單，包括去空格、將;轉換為,等*/  
  
l_str:=trim(rtrim(replace(replace(p_str,';',','),'',''),','));  
  
l_len:=length(l_str);  
  
foriin1..l_lenloop  
  
ifsubstr(l_str,i,1)<>','then 
  
l_addr:=l_addr||substr(l_str,i,1);  
  
else 
  
j:=j+1;  
  
ifp_splite_flag=1then--表示處理郵件地址  
  
--前後需要加上'<>'，否則很多郵箱將不能發送郵件  
  
l_addr:='<'||l_addr||'>';  
  
--調用郵件發送過程  
  
my_address_list(j):=l_addr;  
  
endif;  
  
l_addr:='';  
  
endif;  
  
ifi=l_lenthen  
  
j:=j+1;  
  
ifp_splite_flag=1then  
  
--調用郵件發送過程  
  
l_addr:='<'||l_addr||'>';  
  
my_address_list(j):=l_addr;  
  
endif;  
  
endif;  
  
endloop;  
  
end;  
  
------------------------------------------------寫郵件標頭和郵件內容------------------------------------------  
  
procedurewrite_data(p_conninoutnocopyutl_smtp.connection,  
  
p_nameinvarchar2,  
  
p_valueinvarchar2,  
  
p_splitevarchar2default':',  
  
p_crlfvarchar2defaultl_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郵件尾部-----------------------------------------------------  
  
procedureend_boundary(conninoutnocopyutl_smtp.connection,lastinbooleandefaultfalse)is 
  
begin 
  
utl_smtp.write_data(conn,utl_tcp.crlf);  
  
if(last)then 
  
utl_smtp.write_data(conn,last_boundary);  
  
endif;  
  
end;  
  
---------------------------------------------真正發送郵件的過程--------------------------------------------  
  
procedurep_email(p_sendoraddress2varchar2,--發送地址  
  
p_receiveraddress2varchar2)--接受地址  
  
is 
  
l_connutl_smtp.connection;--定義串連  
  
begin 
  
/*初始化郵件伺服器資訊，串連郵件伺服器*/  
  
l_conn:=utl_smtp.open_connection(p_server,p_port);  
  
utl_smtp.helo(l_conn,p_server);  
  
/*smtp伺服器登入校正*/  
  
ifp_need_smtp=1then  
  
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))));  
  
endif;  
  
 
  
/*設定發送地址和接收地址*/  
  
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);  
  
/*設定郵件主題*/  
  
selectreplace('=?GB2312?B?'||utl_raw.cast_to_varchar2(utl_encode.base64_encode(rawtohex(p_sub)))||'?=',utl_tcp.crlf,'')intop_subjectfromdual;  
  
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);--處理郵件地址  
  
forkin1..my_address_list.countloop  
  
p_email(l_sendoraddress,my_address_list(k));  
  
endloop;  
  
/*處理郵件地址，根據逗號分割郵件*/  
  
end; 
 

在PL/SQL中測試一下它的效能如何：

到Outlook中看看Oracle發送Email郵件到了沒有：

哈哈！及時收到，通過它可以在底層發送相關資料資訊，希望對大家有用！

另，不知道11g有沒有直接用Oracle發送Email的函數了～

1. Oracle資料庫中的OOP概念
2. 前瞻性在Oracle資料庫維護中的作用
3. 使用資源管理員最佳化Oracle效能
4. Oracle檢索資料一致性與事務恢複
5. 超大型Oracle資料庫應用系統的設計方法