建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
通過Oracle發(fā)送Email的實(shí)現(xiàn)方法
在Procedure中p_receiver為收件人地址，多收件人以“,”（英文逗號）分割，
p_sub為郵件標(biāo)題，p_txt為郵件內(nèi)容（支持HTML）。代碼如下：
創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括曲陽網(wǎng)站建設(shè)、曲陽網(wǎng)站制作、曲陽網(wǎng)頁制作以及曲陽網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，曲陽網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到曲陽省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
- 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;--表示郵件地址或者附件的個(gè)數(shù)
- begin
- /*處理接收郵件地址列表，包括去空格、將;轉(zhuǎn)換為,等*/
- 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--表示處理郵件地址
- --前后需要加上'<>'，否則很多郵箱將不能發(fā)送郵件
- l_addr:='<'||l_addr||'>';
- --調(diào)用郵件發(fā)送過程
- my_address_list(j):=l_addr;
- endif;
- l_addr:='';
- endif;
- ifi=l_lenthen
- j:=j+1;
- ifp_splite_flag=1then
- --調(diào)用郵件發(fā)送過程
- l_addr:='<'||l_addr||'>';
- my_address_list(j):=l_addr;
- endif;
- endif;
- endloop;
- end;
- ------------------------------------------------寫郵件頭和郵件內(nèi)容------------------------------------------
- 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;
- ---------------------------------------------真正發(fā)送郵件的過程--------------------------------------------
- procedurep_email(p_sendoraddress2varchar2,--發(fā)送地址
- p_receiveraddress2varchar2)--接受地址
- is
- l_connutl_smtp.connection;--定義連接
- begin
- /*初始化郵件服務(wù)器信息，連接郵件服務(wù)器*/
- l_conn:=utl_smtp.open_connection(p_server,p_port);
- utl_smtp.helo(l_conn,p_server);
- /*smtp服務(wù)器登錄校驗(yàn)*/
- 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;
- /*設(shè)置發(fā)送地址和接收地址*/
- utl_smtp.mail(l_conn,p_sendoraddress2);
- utl_smtp.rcpt(l_conn,p_receiveraddress2);
- /*設(shè)置郵件頭*/
- utl_smtp.open_data(l_conn);
- /*設(shè)置日期*/
- --write_data(l_conn,'Date',to_char(sysdate-1/3,'ddMonyyhh24:mi:ss'));
- /*設(shè)置發(fā)送人*/
- write_data(l_conn,'From',p_sendor);
- /*設(shè)置接收人*/
- write_data(l_conn,'To',p_receiver);
- /*設(shè)置郵件主題*/
- 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');
- --單獨(dú)空一行，否則，正文內(nèi)容不顯示
- utl_smtp.write_data(l_conn,utl_tcp.crlf);
- /*設(shè)置郵件正文
- 把分隔符還原成chr(10)。這主要是為了shell中調(diào)用該過程，如果有多行,則先把多行的內(nèi)容合并成一行，并用l_splite分隔
- 然后用l_crlf替換chr(10)。這一步是必須的，否則將不能發(fā)送郵件正文有多行的郵件
- */
- write_data(l_conn,'',replace(replace(p_txt,l_splite,chr(10)),chr(10),l_crlf),'','');
- end_boundary(l_conn);
- /*關(guān)閉數(shù)據(jù)寫入*/
- utl_smtp.close_data(l_conn);
- /*關(guān)閉連接*/
- 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;
- /*處理郵件地址，根據(jù)逗號分割郵件*/
- end;
在PL/SQL中測試一下它的性能如何：
到Outlook中看看Oracle發(fā)送Email郵件到了沒有：
哈哈！及時(shí)收到，通過它可以在底層發(fā)送相關(guān)數(shù)據(jù)信息，希望對大家有用！
另，不知道11g有沒有直接用Oracle發(fā)送Email的函數(shù)了～
【編輯推薦】
- Oracle數(shù)據(jù)庫中的OOP概念
- 前瞻性在Oracle數(shù)據(jù)庫維護(hù)中的作用
- 使用資源管理器優(yōu)化Oracle性能
- Oracle檢索數(shù)據(jù)一致性與事務(wù)恢復(fù)
- 超大型Oracle數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計(jì)方法
標(biāo)題名稱：通過Oracle發(fā)送Email的實(shí)現(xiàn)方法
瀏覽路徑：http://www.dlmjj.cn/article/ccsgjis.html
