Sending PDF as attachment using utl_smtp

Question

Hi all,
I am encountering the following problem when i try to send the email using utl_smtp builtin,i receive the mail in my outlook,but not able to read the contents of the pdf file.
Oracle Version :- Oracle Database 10g Enterprise Edition Release 10.2.0.3.0 - Prod
source code:-
CREATE OR REPLACE PROCEDURE "PROC_MAIL_ATTACH_PDFS" (
p_cust_nb IN cstm.cstm_cust_nb%TYPE,
from_name IN VARCHAR2,
to_name IN VARCHAR2,
subject IN VARCHAR2,
MESSAGE IN VARCHAR2,
p_binary_file IN VARCHAR2,
p_seq_id IN NUMBER,
p_ret_cd OUT NUMBER,
p_ret_desc OUT VARCHAR2
--ISO-8859-6
IS
v_smtp_server VARCHAR2 (100) := '172.20.204.17';
--change this to your mail server
v_smtp_server_port NUMBER := 25;
v_directory_name VARCHAR2 (100);
v_file_name VARCHAR2 (100);
v_line VARCHAR2 (1000);
crlf VARCHAR2 (2) := CHR (13)
|| CHR (10);
mesg VARCHAR2 (32767);
conn UTL_SMTP.connection;
v_slash_pos NUMBER;
v_file_handle UTL_FILE.file_type;
invalid_path EXCEPTION;
mesg_length_exceeded BOOLEAN := FALSE;
l_msg VARCHAR2 (32000);
l_tag_sep VARCHAR2 (1)
:= func_get_config_value ('TAGSEPRTR');
l_ind VARCHAR2 (10);
l_rec VARCHAR2 (4000);
l_sep_rep VARCHAR2 (4000) := '17_ACCSTMT_NOV_2010';
l_rem_rep VARCHAR2 (4000);
l_rep VARCHAR2 (4000);
l_mim_type VARCHAR2 (2000);
boundary CONSTANT VARCHAR2 (256)
:= '-----DMW.Boundary.605592468';
first_boundary CONSTANT VARCHAR2 (256) := '--' || boundary || crlf;
last_boundary CONSTANT VARCHAR2 (256)
:= '--' || boundary || '--' || crlf;
multipart_mime_type CONSTANT VARCHAR2 (256)
:= 'multipart/mixed; boundary="' || boundary || '"';
mime_type VARCHAR2 (255) := 'text/html';
l_offset NUMBER;
l_ammount NUMBER;
CURSOR cur_trnm
IS
SELECT trnm_email_enarr, trnm_email_anarr
FROM trnm
WHERE trnm_id = 16;
l_enarr trnm.trnm_email_enarr%TYPE;
l_anarr trnm.trnm_email_enarr%TYPE;
l_message_body VARCHAR2 (32000);
--// To check if all mails belongs to the customer already sent...
CURSOR cur_pdfd
IS
SELECT COUNT (*)
FROM pdfd
WHERE pdfd_cust_nb = p_cust_nb
AND pdfd_email_sts IS NULL
--NEWLY ADDED ...
AND NVL (pdfd_stmt_mode, '.') = 'E'
AND TRUNC (pdfd_to_dt) = (SELECT MAX (TRUNC (pdfd_to_dt))
FROM pdfd
WHERE pdfd_cust_nb = p_cust_nb);
l_cnt NUMBER := 0;
PROCEDURE send_header (NAME IN VARCHAR2, header IN VARCHAR2)
IS
BEGIN
UTL_SMTP.write_data (conn, NAME || ': ' || header || crlf);
END;
PROCEDURE write_raw (
p_conn IN OUT NOCOPY UTL_SMTP.connection,
p_message IN RAW
IS
BEGIN
UTL_SMTP.write_raw_data (p_conn, p_message);
END write_raw;
PROCEDURE binary_attachment (
p_conn IN OUT UTL_SMTP.connection,
p_file_name IN VARCHAR2,
p_mime_type IN VARCHAR2
IS
k_max_line_width CONSTANT PLS_INTEGER DEFAULT 54;
v_amt BINARY_INTEGER := 672 * 3;
/* ensures proper format; 2016 */
v_bfile BFILE;
v_file_len PLS_INTEGER;
v_buf RAW (2100);
v_buf1 RAW (2100);
v_modulo PLS_INTEGER;
v_pieces PLS_INTEGER;
v_file_pos PLS_INTEGER := 1;
v_data RAW (32767);
v_data1 RAW (32767);
v_chunks PLS_INTEGER;
l_amt NUMBER := 32767;
l_off NUMBER := 1;
l_raw RAW (32767);
l_raw1 RAW (32767);
l_lob BLOB;
l_lob_empt BLOB;
req UTL_HTTP.req;
resp UTL_HTTP.resp;
resp_empt UTL_HTTP.resp;
l_url VARCHAR2 (4000);
l_rep_path VARCHAR2 (2000);
l_report VARCHAR2 (100);
l_seq_nb repq.repq_seq_nb%TYPE;
l_parm repq.repq_parm_val%TYPE;
l_repq repq%ROWTYPE;
l_sts NUMBER;
l_user VARCHAR2 (10);
--L_MSG VARCHAR2(32000);
l_seq_id NUMBER;
usr_err EXCEPTION;
--// 07-Jun-2009 - Basheer A.S. : Code added for sending A/c Statement and PFL statements in single e-mail ...
CURSOR cur_pdfd
IS
SELECT
--UTL_COMPRESS.LZ_UNCOMPRESS(PDFD_DB_FILE) PDFD_DB_FILE,
pdfd_file_name
FROM pdfd
WHERE pdfd_cust_nb = p_cust_nb
--AND PDFD_EMAIL_STS IS NULL
--NEWLY ADDED ...
--AND NVL(PDFD_STMT_MODE,'.') = 'E'
AND pdfd_seq_nb = p_seq_id
AND TRUNC (pdfd_to_dt) = (SELECT MAX (TRUNC (pdfd_to_dt))
FROM pdfd
WHERE pdfd_cust_nb = p_cust_nb);
l_buffer_size INTEGER := 57;
l_offset INTEGER := 1;
l_raw RAW (57);
l_file_nm pdfd.pdfd_file_name%TYPE;
BEGIN
--// 06-Jun-2009 - Basheer A.S. : Code added for sending A/c Statement and PFL statements in a single e-mail ...
--// Initializing temporary CLOB data ...
DBMS_LOB.createtemporary (l_lob, FALSE);
--DBMS_LOB.createtemporary(L_LOB_EMPT, FALSE);
--// Loop thro all the records for the given Customer Number...
OPEN cur_pdfd;
LOOP
--FETCH CUR_PDFD INTO L_LOB, L_FILE_NM;
FETCH cur_pdfd
INTO --L_LOB_EMPT,
l_file_nm;
EXIT WHEN cur_pdfd%NOTFOUND;
proc_audit_log ('T',
'PROC_MAIL_ATTACH_PDFS, Customer No. '
|| p_cust_nb
|| ', File attachment: '
|| l_file_nm
UTL_SMTP.write_data (conn, first_boundary);
UTL_SMTP.write_data (conn,
'Content-Transfer-Encoding: base64 '
|| UTL_TCP.crlf
UTL_SMTP.write_data (conn,
'Content-Type: ' || mime_type || UTL_TCP.crlf
UTL_SMTP.write_data (conn,
'Content-Disposition: ATTACHMENT; filename="'
|| p_file_name
|| '"'
|| UTL_TCP.crlf
UTL_SMTP.write_data (conn, crlf);
l_ind := '1.1';
v_file_pos := 1;
--// Attaching individual PDF files ...
BEGIN
v_modulo := 0;
v_pieces := 0;
v_amt := 2016;
l_ind := '2.1';
v_file_len := DBMS_LOB.getlength (l_lob);
--v_file_len := dbms_lob.getlength(L_LOB_EMPT);
v_modulo := MOD (v_file_len, v_amt);
v_pieces := TRUNC (v_file_len / v_amt);
IF (v_modulo <> 0)
THEN
v_pieces := v_pieces + 1;
END IF;
l_ind := '2.2';
DBMS_LOB.READ (l_lob, v_amt, v_file_pos, v_buf);
--dbms_lob.read(L_LOB_EMPT, v_amt, v_file_pos, v_buf);
v_data := v_data1;
v_chunks := 0;
v_data := v_data1;
FOR i IN 1 .. v_pieces
LOOP
v_file_pos := i * v_amt + 1;
v_file_len := v_file_len - v_amt;
v_data := UTL_RAW.CONCAT (v_data, v_buf);
l_ind := '2.3';
v_chunks := TRUNC (UTL_RAW.LENGTH (v_data) / k_max_line_width);
IF (i <> v_pieces)
THEN
v_chunks := v_chunks - 1;
END IF;
l_ind := '2.4';
write_raw (p_conn => p_conn,
p_message => UTL_ENCODE.base64_encode (v_data)
v_data := v_data1;
IF (v_file_len < v_amt AND v_file_len > 0)
THEN
v_amt := v_file_len;
END IF;
l_ind := '2.5';
DBMS_LOB.READ (l_lob, v_amt, v_file_pos, v_buf);
--DBMS_LOB.READ(L_LOB_EMPT, v_amt, v_file_pos, v_buf);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
proc_audit_log
('E',
'PROC_MAIL_ATTACH_PDFS.binary_attachment.inside BLOB loop, :'
|| SQLERRM
|| ',ind:'
|| l_ind
END;
v_file_pos := 1;
UTL_SMTP.write_data (conn, UTL_TCP.crlf);
UTL_SMTP.write_data (conn, UTL_TCP.crlf);
END LOOP;
--// END multiple file attachments
l_ind := '2.6';
UTL_SMTP.write_data (p_conn, last_boundary || UTL_TCP.crlf);
EXCEPTION
WHEN OTHERS
THEN
proc_audit_log ('E',
'PROC_MAIL_ATTACH_PDFS, when others:'
|| l_ind
|| ', '
|| SQLERRM
END binary_attachment;
BEGIN
--// If no pending emails for the given Customer, then exit the process...
OPEN cur_pdfd;
FETCH cur_pdfd
INTO l_cnt;
CLOSE cur_pdfd;
--// If still pending statements needs to be send...
--IF L_CNT > 0 THEN
IF l_cnt = 0
THEN
OPEN cur_trnm;
FETCH cur_trnm
INTO l_enarr, l_anarr;
CLOSE cur_trnm;
l_message_body :=
'<html>'
||
--'<meta http-equiv="Content-Type" content="text/html; charset=WINDOWS-1256(Arabic)">'||
--'<meta http-equiv="Content-Type" content="text/html; charset=WINDOWS-1256">'||
'<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-6">'
|| '<body>
<TABLE BORDER="0" WIDTH=100% style="table-layout:fixed;">
<TR>
<TD WIDTH="50%" ALIGN="LEFT" style="word-wrap: break-word"><B>'
|| l_enarr
|| '</B></TD>'
|| '<TD WIDTH="50%" ALIGN="RIGHT" style="word-wrap: break-word"><B>'
|| l_anarr
|| '</B></TD></TR></TABLE>
</body>
</html>';
proc_audit_log ('T', 'PROC_MAIL_ATTACH_PDFS, msg:' || l_msg);
v_smtp_server := func_get_config_value ('MAILHOST');
v_smtp_server_port := func_get_config_value ('MAILPORT');
l_ind := '3.1';
conn := UTL_SMTP.open_connection (v_smtp_server, v_smtp_server_port);
--utl_smtp.helo( conn, v_smtp_server );
--utl_smtp.mail( conn, '[email protected]' );
UTL_SMTP.helo (conn, v_smtp_server);
UTL_SMTP.mail (conn, from_name);
UTL_SMTP.rcpt (conn, to_name);
l_ind := '3.2';
l_rec := func_eti_tagval (l_msg, 'EMAIL');
proc_audit_log ('T', 'PROC_MAIL_ATTACH_PDFS, l_rec:' || l_rec);
proc_audit_log ('T', 'l_sep_rep1' || l_sep_rep);
UTL_SMTP.open_data (conn);
send_header ('From', '<' || from_name || '>');
send_header ('To', '<' || to_name || '>');
--send_header('To',''||Func_Eti_Tagval(L_MSG, 'EMAIL')||'');
send_header ('Date', TO_CHAR (SYSDATE, 'dd Mon yy hh24:mi:ss'));
send_header ('Subject', subject);
send_header ('Content-Type', multipart_mime_type);
UTL_SMTP.write_data (conn, first_boundary);
--utl_smtp.write_data(conn, 'Content-Type: '||mime_type||utl_tcp.crlf);
--utl_smtp.write_data(conn, 'Content-Type: '||mime_type||'; charset=Windows-1256'||utl_tcp.crlf);
UTL_SMTP.write_data (conn,
'Content-Type: '
|| mime_type
|| '; charset=ISO-8859-6'
|| UTL_TCP.crlf
--new...
UTL_SMTP.write_data (conn, crlf);
UTL_SMTP.write_raw_data (conn, UTL_RAW.cast_to_raw (l_message_body));
UTL_SMTP.write_data (conn, crlf);
UTL_SMTP.write_data (conn, crlf);
proc_audit_log ('T', 'l_sep_rep2' || l_sep_rep);
binary_attachment (p_conn => conn,
p_file_name => l_sep_rep || '.pdf',
p_mime_type => 'multipart/mixed'
); --||l_sep_rep||'.pdf');
UTL_SMTP.write_data (conn, last_boundary || UTL_TCP.crlf);
UTL_SMTP.close_data (conn);
UTL_SMTP.quit (conn);
END IF;
p_ret_cd := 0;
p_ret_desc := 'Mail sent successfully';
EXCEPTION
WHEN OTHERS
THEN
proc_audit_log ('E',
'PROC_MAIL_ATTACH_PDFS, error:'
|| SQLERRM
|| 'ind:'
|| l_ind
p_ret_cd := 1;
END;
Kindly help me to resolve this issue.
Thanks & Regards
Ariff

Answer 1

pl ease check below link
/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface