Email sent...but attachment appears in body

Question

Hi,
I am trying to send emails with attachments in pl/sql.
I heard it can be done.
I tried it, the code runs wiithout erros.
But i cannot see the actual attachment.
The content of the attachment appears in the body of the email.
In the email i see this:
This is an automated email. Please do not reply!
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="-----AABCDEFBBCCC0123456789DE"
This is a multi-part message in MIME format.
-------AABCDEFBBCCC0123456789DE
Content-Type: text/html;US-ASCII
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="your_file_name.csv"
SYS,ICOL$,TABLE,2009-06-19 15:35:34
SYS,I_USER1,INDEX,2009-06-19 15:35:34
SYS,CON$,TABLE,2009-06-19 15:35:34
SYS,UNDO$,TABLE,2009-06-19 15:35:34
SYS,C_COBJ#,CLUSTER,2009-06-19 15:35:34
SYS,I_OBJ#,INDEX,2009-06-19 15:35:34
SYS,PROXY_ROLE_DATA$,TABLE,2009-06-19 15:35:34
SYS,I_IND1,INDEX,2009-06-19 15:35:34
SYS,I_CDEF2,INDEX,2009-06-19 15:35:34
SYS,I_PROXY_ROLE_DATA$_1,INDEX,2009-06-19 15:35:34
SYS,FILE$,TABLE,2009-06-19 15:35:34
SYS,UET$,TABLE,2009-06-19 15:35:34
SYS,I_FILE#_BLOCK#,INDEX,2009-06-19 15:35:34
SYS,I_FILE1,INDEX,2009-06-19 15:35:34
SYS,I_CON1,INDEX,2009-06-19 15:35:34
SYS,I_OBJ3,INDEX,2009-06-19 15:35:34
SYS,I_TS#,INDEX,2009-06-19 15:35:34
SYS,I_CDEF4,INDEX,2009-06-19 15:35:34
SYS,IND$,TABLE,2009-06-19 15:35:34
-------AABCDEFBBCCC0123456789DE--
The part between the boundry
(-------AABCDEFBBCCC0123456789DE--) should come as an attachment.
Code for attachment:
PROCEDURE R040_attach
IS
v_clob clob := empty_clob();
c_mime_boundary VARCHAR2(256) := '-----AABCDEFBBCCC0123456789DE';
v_len INTEGER;
v_index INTEGER;
BEGIN
FOR x IN (SELECT *
FROM all_objects
WHERE ROWNUM < 20)
LOOP
v_clob :=
v_clob
|| x.owner
|| ','
|| x.object_name
|| ','
|| x.object_type
|| ','
|| TO_CHAR(x.created, 'yyyy-mm-dd hh24:mi:ss')
|| UTL_TCP.crlf;
END LOOP;
UTL_SMTP.write_data(c, 'MIME-Version: 1.0' || UTL_TCP.crlf);
UTL_SMTP.write_data(
c,
'Content-Type: multipart/mixed; boundary="' || c_mime_boundary || '"' || UTL_TCP.crlf
UTL_SMTP.write_data(c, UTL_TCP.crlf);
UTL_SMTP.write_data(
c,
'This is a multi-part message in MIME format.' || UTL_TCP.crlf
UTL_SMTP.write_data(c, '--' || c_mime_boundary || UTL_TCP.crlf);
--UTL_SMTP.write_data(c, 'Content-Type: text/html;US-ASCII' || UTL_TCP.crlf);
--Content-Type: image/jpeg
UTL_SMTP.write_data(
c,
'Content-Type: text/html;US-ASCII'
|| UTL_TCP.crlf
|| 'Content-Transfer-Encoding: base64'
|| UTL_TCP.crlf
-- Set up attachment header
UTL_SMTP.write_data(
c,
'Content-Disposition: attachment; filename="'
|| 'your_file_name.csv'
|| '"'
|| UTL_TCP.crlf
UTL_SMTP.write_data(c, UTL_TCP.crlf);
-- Write attachment contents
v_len := DBMS_LOB.getlength(v_clob);
v_index := 1;
WHILE v_index <= v_len
LOOP
UTL_SMTP.write_data(c, DBMS_LOB.SUBSTR(v_clob, 32000, v_index));
v_index := v_index + 32000;
END LOOP;
-- End attachment
UTL_SMTP.write_data(c, UTL_TCP.crlf);
UTL_SMTP.write_data(c, '--' || c_mime_boundary || '--' || UTL_TCP.crlf);
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR( -20110, 'Dwx0110 - R030 - ' || SQLERRM );
END R040_attach;
Any help would be appreciated.
Thank you.

Answer 1

Hi,
there are some threads you may find interesting:
UTL_SMTP mail with attachment( Problem in attaching zip file)
UTL_SMTP or UTL_MAIL
Regards.
Al