How to send email attachments in any format by utl_smtp?

Question

Hi,
I am Using this Script for Sending Mail With an Attachment,i run this Script(Oracle 11g Database R1) and i got this Message "PL/SQL procedure successfully completed." but still i have not received the mail.
Please advice me....
set serveroutput on
/* Formatted on 2010/06/03 21:26 (Formatter Plus v4.8.8) */
DECLARE
v_file_handle UTL_FILE.file_type;
v_email_server VARCHAR2 (100) := 'Email_Server;
v_conn UTL_SMTP.connection;
v_port NUMBER := 25;
v_reply UTL_SMTP.reply;
v_msg VARCHAR2 (32767);
v_line VARCHAR2 (1000);
v_message VARCHAR2 (1000);
b_connected BOOLEAN := FALSE;
v_sender VARCHAR2 (50) := '************';
v_strt_day varchar2(100);
v_end_day varchar2(100);
crlf VARCHAR2 (2) := CHR (13) || CHR (10);
recpt VARCHAR2 (255) := '*********';
slp PLS_INTEGER := 300;
pdirpath VARCHAR2 (50) := 'D:\Mail_Process';
pfilename VARCHAR2 (50) := 'Multifile.html';
p_stat number     := 0;
BEGIN
/***** Check if the file exists ****/
BEGIN
v_file_handle := UTL_FILE.fopen (pdirpath, pfilename, 'R');
EXCEPTION
WHEN UTL_FILE.invalid_path
THEN
p_stat := 99;
RETURN;
WHEN OTHERS
THEN
p_stat := 99;
RETURN;
END;
/***** Try to connect for three times, do sleep in between for 5minutes *****/
FOR i IN 1 .. 3
LOOP
BEGIN
--open the connection with the smtp server and do the handshake
v_conn := UTL_SMTP.open_connection (v_email_server, v_port);
v_reply := UTL_SMTP.helo (v_conn, v_email_server);
IF 250 = v_reply.code
THEN
b_connected := TRUE;
EXIT;
END IF;
EXCEPTION
WHEN OTHERS
THEN
DBMS_LOCK.sleep (slp);
END;
END LOOP;
IF b_connected = FALSE
THEN
p_stat := 99;
RETURN;
END IF;
v_reply := UTL_SMTP.mail (v_conn, v_sender);
IF 250 != v_reply.code
THEN
p_stat := 99;
RETURN;
END IF;
v_reply := UTL_SMTP.rcpt (v_conn, recpt);
IF 250 != v_reply.code
THEN
p_stat := 99;
RETURN;
END IF;
UTL_SMTP.open_data (v_conn);
v_message :=
'Sample Email This is an auto generated mail.
Please do not reply to this mail.'
|| CHR (10);
v_msg :=
'Date: '
|| TO_CHAR (SYSDATE, 'Mon DD yy hh24:mi:ss')
|| crlf
|| 'From: '
|| v_sender
|| crlf
|| 'Subject: '
|| 'Sample file'
|| crlf
|| 'To: '
|| recpt
|| crlf
|| 'Mime-Version: 1.0'
|| crlf
|| 'Content-Type: multipart/mixed;
boundary="DMW.Boundary.605592468"'
|| crlf
|| ''
|| crlf
|| v_message
|| crlf
|| ''
|| crlf
|| '--DMW.Boundary.605592468'
|| crlf
|| 'Content-Type: text/plain;
name="v_message.txt"; charset=US-ASCII'
|| crlf
|| 'Content-Disposition: inline; filename="v_message.txt"'
|| crlf
|| 'Content-Transfer-Encoding: 7bit'
|| crlf
|| ''
|| crlf
|| v_message
|| crlf
|| crlf
|| crlf;
UTL_SMTP.write_data (v_conn, v_msg);
/***** Prepare the attachment to be sent *****/
v_msg :=
crlf
|| '--DMW.Boundary.605592468'
|| crlf
|| 'Content-Type:
application/octet-stream; name="'
|| pfilename
|| '"'
|| crlf
|| 'Content-Disposition: attachment; filename="'
|| pfilename
|| '"'
|| crlf
|| 'Content-Transfer-Encoding: 7bit'
|| crlf
|| crlf;
UTL_SMTP.write_data (v_conn, v_msg);
LOOP
BEGIN
UTL_FILE.get_line (v_file_handle, v_line);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
EXIT;
END;
v_msg := '*** truncated ***' || crlf;
v_msg := v_line || crlf;
UTL_SMTP.write_data (v_conn, v_msg);
END LOOP;
UTL_FILE.fclose (v_file_handle);
v_msg := crlf;
UTL_SMTP.write_data (v_conn, v_msg);
v_msg := crlf || '--DMW.Boundary.605592468--' || crlf;
UTL_SMTP.write_data (v_conn, v_msg);
UTL_SMTP.close_data (v_conn);
UTL_SMTP.quit (v_conn);
EXCEPTION
WHEN OTHERS
THEN
p_stat := 99;
END;
Thank You
Shan

Answer 1

I would recommend not to use home grown email solutions and use what we all use
1. UTL_MAIL oracle package http://download-west.oracle.com/docs/cd/B13789_01/appdev.101/b10802/u_mail.htm
or
2. SMTP rock solid solution http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/maildemo_sql.txt