通過Oracle发送Email的实现方法.docVIP

在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