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)
:=
'out-xuxiaoxiao@cn.panasonic.com';
--Sender Address

lv_smtpserver VARCHAR2(30)
:=
'smtp.cn.panasonic.com';
--'10.195.74.239'; --'129.249.64.64' --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;

/