平凡的幸福(備站）

CREATE OR REPLACE PROCEDURE APPS.SEND_MAIL_HTML_TEST
is

v_message varchar2(2000);

conn utl_smtp.connection;
vrData RAW(32767);

sender varchar2(500) := 'prodmgr@test.ccc.com.tw';
receiver varchar2(500) :='keven@ccc.com.tw';
subj varchar2(200):='HTML Mail TEST';

--組成HTML語法
cursor cur1 is
select '' aa from dual
union all
select ''
|| '' aa
from mtl_system_items_b
where rownum<11
union all
select '

' || segment1 || '

' || description || '

' aa from dual ;

r1 cur1%rowtype;

begin

--指定SMTP SERVER
conn := utl_smtp.open_connection('192.168.1.10');

--也可以指定Port：utl_smtp.open_connection('192.168.1.10',25);

--對SMTP SERVER發出答應
utl_smtp.helo(conn, 'ccc.com.tw');

--實際寄送的寄件者
utl_smtp.mail(conn, sender);

--實際寄送的收件者
utl_smtp.rcpt(conn, receiver);


utl_smtp.open_data(conn);

--開啟傳送mail內容，先傳送header的定義，也是mail內容的一部份，用mail的原始檔查看可以得知。
UTL_smtp.write_data(conn, 'MIME-Version: ' || '1.0' ||UTL_tcp.CRLF);

--指定格式為HTML，並將語系設為utf-8
UTL_smtp.write_data(conn, 'Content-Type: ' || 'text/html; charset=utf-8' || UTL_tcp.CRLF);
UTL_smtp.write_data(conn, 'Content-Transfer-Encoding: ' || '8bit'|| UTL_tcp.CRLF);

--如果格式為文字，則改為下列的語法，並將語系設為big5
--UTL_SMTP.WRITE_DATA(conn, 'Content-Type: text/plain; charset="big5"'||UTL_TCP.CRLF);

--下面一樣是傳送mail的內容，寄件人、副件、密件，會自動將收件者依類型區分，
--實際上mail寄送是不管副件、密件…等，只管mail地址。
utl_smtp.write_data(conn, 'From: "Name" <'||sender||'>'|| UTL_tcp.CRLF);
utl_smtp.write_data(conn, 'To: "Name" <'||receiver||'>'|| UTL_tcp.CRLF);
-- utl_smtp.write_data(conn, 'Cc: "Name" <'||creceiver||'>'|| UTL_tcp.CRLF);

--傳送mail的內容，主旨
UTL_SMTP.WRITE_RAW_DATA(conn, UTL_RAW.CAST_TO_RAW('Subject: '|| subj ||UTL_tcp.CRLF));
UTL_smtp.write_data(conn, UTL_tcp.CRLF);

for r1 in cur1 loop

--將要傳送的mail內文轉碼後傳送
vrData := utl_raw.cast_to_raw(r1.aa);
UTL_smtp.write_raw_data(conn, vrData);

end loop ;

--關閉連線
utl_smtp.close_data(conn);
utl_smtp.quit(conn);

EXCEPTION
WHEN UTL_smtp.transient_error OR UTL_smtp.permanent_error THEN
UTL_smtp.quit(conn);

WHEN OTHERS THEN
UTL_smtp.quit(conn);
NUll;

end ;

END send_mail_html;
/