[ 오라클에서 이메일 보내기 ] - UTL_SMTP.write_data를 이용할 경우 한글이 지원되지 않음
create or replace procedure SP_SEND_EMAIL(send_email varchar2,
receiver_email varchar2,
title_email varchar2 ,
message_email varchar2)
is
begin
declare
v_From varchar2(80) := send_email||'@xx.co.kr';
v_Recipient varchar2(80) := receiver_email||'@xx.co.kr';
v_Subject varchar2(80) := title_email;
v_mail_host varchar2(30) := 'mail.xx.co.kr';
v_mail_conn utl_smtp.Connection;
crlf varchar2(2) := chr(13)||chr(10);
begin
v_mail_conn := utl_smtp.open_connection(v_mail_host);
utl_smtp.Helo(v_mail_conn, v_mail_host);
utl_smtp.Mail(v_mail_conn, v_From);
utl_smtp.Rcpt(v_mail_conn, v_Recipient);
utl_smtp.Data(v_mail_conn,
'Date: ' || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: ' || v_From || crlf ||
'Subject: '|| v_Subject || crlf ||
'To: ' || v_Recipient || crlf || crlf ||message_email);
utl_smtp.Quit(v_mail_conn);
exception
when utl_smtp.Transient_Error or utl_smtp.Permanent_Error then
raise_application_error(-20000, 'Unable to send mail', TRUE);
end;
end SP_SEND_EMAIL;