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; --表示郵件地址或者附件的個數(shù)
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 --表示處理郵件地址
--前后需要加上'>'，否則很多郵箱將不能發(fā)送郵件
l_addr := '' || l_addr || '>';
--調(diào)用郵件發(fā)送過程
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
--調(diào)用郵件發(fā)送過程
l_addr := '' || l_addr || '>';
my_address_list(j) := l_addr;
end if;
end if;
end loop;
end;
------------------------------------------------寫郵件頭和郵件內(nèi)容------------------------------------------
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;
---------------------------------------------真正發(fā)送郵件的過程--------------------------------------------
procedure p_email(p_sendoraddress2 varchar2, --發(fā)送地址
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, 'AUTH LOGIN', '');
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;
/*設置發(fā)送地址和接收地址*/
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, 'dd Mon yy hh24:mi:ss'));
/*設置發(fā)送人*/
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');
--單獨空一行，否則，正文內(nèi)容不顯示
utl_smtp.write_data(l_conn, utl_tcp.crlf);
/* 設置郵件正文
把分隔符還原成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);
/*關閉數(shù)據(jù)寫入*/
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;
/*處理郵件地址，根據(jù)逗號分割郵件*/
end;
