EBS FORM ： 发送邮件API
功能：不同的发送类型---抄送、发送、密送。
CREATE OR REPLACE PACKAGE send_email IS
FUNCTION fnk_mail_test(p_header_id IN NUMBER,
ic_mail_from IN VARCHAR2, --1. Mail from
ic_title IN VARCHAR2, --4.title
ic_message IN VARCHAR2, --5. Message
ic_filename IN VARCHAR2) RETURN VARCHAR2;
END send_email;
/
CREATE OR REPLACE PACKAGE BODY send_email IS
PROCEDURE log(buff IN VARCHAR2) IS
BEGIN
fnd_file.put(fnd_file.log, buff);
fnd_file.new_line(fnd_file.log, 1);
EXCEPTION
WHEN OTHERS THEN
RETURN;
END log;
FUNCTION fnk_mail_test(p_header_id IN NUMBER,
ic_mail_from IN VARCHAR2, --1. Mail from
ic_title IN VARCHAR2, --4. title
ic_message IN VARCHAR2, --5. Message
ic_filename IN VARCHAR2) RETURN VARCHAR2 IS
cc_error CONSTANT CHAR(1) := '1'; --Return Code Value Error
cc_ok CONSTANT CHAR(1) := '0'; --Return Code Value Success
--Declare Variable
lv_mailtitle VARCHAR2(250); --Mail Title
lv_mailtext VARCHAR2(2550); --Content of Mail
lv_mailto VARCHAR2(2550); --All Address of the Recipients---all
lv_mailto_to VARCHAR2(2550); --All Address of the Recipients---to
lv_mailto_cc VARCHAR2(2550); --All Address of the Recipients---cc
lv_mailfrom VARCHAR2(100) := 'XXXX@126.com'; --Sender Address
lv_smtpserver VARCHAR2(30) := 'smtp.cn.qq.com'; --SMTP Server Name or IP
ln_smtpport NUMBER(10) := 25; --SMTP Server Port
lc_return CHAR(1); --Return Code
c_mail utl_smtp.connection;
lv_directory_name VARCHAR2(100);
lv_file_name VARCHAR2(100);
lv_file_handle utl_file.file_type;
lv_line VARCHAR2(1000);
ln_slash_pos NUMBER;
crlf VARCHAR2(2) := chr(13) || chr(10);
mesg VARCHAR2(32767);
mesg_len NUMBER;
max_size NUMBER DEFAULT 9999999999;
mesg_length_exceeded BOOLEAN := FALSE;
mesg_too_long EXCEPTION;
debug NUMBER DEFAULT 0;
err_msg VARCHAR2(200);
error_msg VARCHAR2(250);
--所有的邮箱
CURSOR c_get_mail_address IS
SELECT email
FROM zzom_send_email
WHERE header_id = p_header_id
AND enabled_flag = 'Y'
AND SYSDATE BETWEEN nvl(effective_start_date, SYSDATE - 1) AND nvl(effective_end_date, SYSDATE + 1);
--发送
CURSOR c_get_mail_address_to IS
SELECT email
FROM zzom_send_email
WHERE header_id = p_header_id
AND send_type = '发送'
AND enabled_flag = 'Y'
AND SYSDATE BETWEEN nvl(effective_start_date, SYSDATE - 1) AND nvl(effective_end_date, SYSDATE + 1);
--抄送
CURSOR c_get_mail_address_cc IS
SELECT email
FROM zzom_send_email
WHERE header_id = p_header_id
AND send_type = '抄送'
AND enabled_flag = 'Y'
AND SYSDATE BETWEEN nvl(effective_start_date, SYSDATE - 1) AND nvl(effective_end_date, SYSDATE + 1);
BEGIN
log('12311111');
--Get Mail Title
lv_mailtitle := 'Subject:' || ic_title;
--Get Mail Text
lv_mailtext := ic_message;
log('12311112');
--Connection
c_mail := utl_smtp.open_connection(lv_smtpserver, ln_smtpport);
log('12311113');
--Set SMTP Server
utl_smtp.helo(c_mail, lv_smtpserver);
log('12311114' || lv_mailfrom);
--Set Sender Address
IF ic_mail_from IS NOT NULL THEN
lv_mailfrom := ic_mail_from;
END IF;
log('12311115' || lv_mailfrom);
utl_smtp.mail(c_mail, lv_mailfrom);
log('123' || lv_mailtitle);
--Set Recipients Address--for all
--获取全部收件人地址-并发送
FOR v_get_mail_address IN c_get_mail_address
LOOP
utl_smtp.rcpt(c_mail, v_get_mail_address.email);
lv_mailto := lv_mailto || v_get_mail_address.email || ';';
END LOOP;
--获取发送地址
FOR v_get_mail_address_to IN c_get_mail_address_to
LOOP
lv_mailto_to := lv_mailto_to || v_get_mail_address_to.email || ';';
END LOOP;
--获取抄送地址
FOR v_get_mail_address_cc IN c_get_mail_address_cc
LOOP
lv_mailto_cc := lv_mailto_cc || v_get_mail_address_cc.email || ';';
END LOOP;
log('124' || lv_mailto);
utl_smtp.rcpt(c_mail, lv_mailfrom);
--Open Data
utl_smtp.open_data(c_mail);
mesg := 'Date: ' || to_char(SYSDATE, 'dd Mon yy hh24:mi:ss') || crlf || 'From: ' || lv_mailfrom || crlf;
--|| lv_mailtitle || crlf ||
utl_smtp.write_data(c_mail, mesg);
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(lv_mailtitle || crlf, 'ZHS16CGB231280')));
mesg := 'To: ' || lv_mailto_to || crlf || 'Cc: ' || lv_mailto_cc || crlf || 'Mime-Version: 1.0' || crlf ||
'Content-Type: multipart/mixed; boundary="DMW.Boundary.605592468"' || crlf || '' || crlf ||
'--DMW.Boundary.605592468' || crlf ||
--US-ASCII
'Content-Type: text/plain; name="lv_mailtext.txt"; charset=GB2312' || crlf ||
'Content-Disposition: inline; filename="lv_mailtext.txt"' || crlf || 'Content-Transfer-Encoding: 32bit' || crlf || '' || crlf;
utl_smtp.write_data(c_mail, mesg);
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(utl_tcp.crlf || lv_mailtext, 'ZHS16CGB231280')));
--=============================================================
-- reade file
--=============================================================
IF ic_filename IS NOT NULL THEN
BEGIN
-- locate the final '/' or '\' in the pathname ...
ln_slash_pos := instr(ic_filename, '/', -1);
IF ln_slash_pos = 0 THEN
ln_slash_pos := instr(ic_filename, '\', -1);
END IF;
-- separate the filename from the directory name ...
lv_directory_name := substr(ic_filename, 1, ln_slash_pos - 1);
lv_file_name := substr(ic_filename, ln_slash_pos + 1);
-- open the file ...
lv_file_handle := utl_file.fopen(lv_directory_name, lv_file_name, 'r');
mesg := crlf || '--DMW.Boundary.605592468' || crlf ||
'Content-Type: application/octet-stream; name="' || lv_file_name || '"' || crlf ||
'Content-Disposition: attachment; filename="' || lv_file_name || '"' || crlf ||
'Content-Transfer-Encoding: 16bit' || crlf || crlf;
mesg_len := mesg_len + length(mesg);
--utl_smtp.write_data ( c_mail, mesg );
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(utl_tcp.crlf || mesg, 'ZHS16CGB231280')));
-- and append the file contents to the end of the message ...
LOOP
utl_file.get_line(lv_file_handle, lv_line);
IF mesg_len + length(lv_line) > max_size THEN
mesg := '*** truncated ***' || crlf;
--utl_smtp.write_data ( c_mail, mesg );
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(utl_tcp.crlf || mesg, 'ZHS16CGB231280')));
mesg_length_exceeded := TRUE;
RAISE mesg_too_long;
END IF;
mesg := lv_line || crlf;
--utl_smtp.write_data ( c_mail, mesg );
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(mesg, 'ZHS16CGB231280')));
mesg_len := mesg_len + length(mesg);
END LOOP;
EXCEPTION
WHEN utl_file.invalid_path THEN
err_msg := SQLERRM;
IF debug > 0 THEN
dbms_output.put_line('Error in opening attachment ' || ic_filename || ':' || err_msg);
END IF;
-- All other exceptions are ignored ....
WHEN OTHERS THEN
NULL;
END;
END IF;
mesg := crlf;
--utl_smtp.write_data ( c_mail, mesg );
utl_smtp.write_raw_data(c_mail, utl_raw.cast_to_raw(convert(utl_tcp.crlf || mesg, 'ZHS16CGB231280')));
--Close Data
utl_smtp.close_data(c_mail);
--Quit UTL_SMTP
utl_smtp.quit(c_mail);
--Return Success
lc_return := cc_ok;
RETURN(lc_return);
EXCEPTION
WHEN OTHERS THEN
error_msg := SQLERRM;
lc_return := cc_error;
RETURN(lc_return);
END fnk_mail_test;
END;
/
