Send attachment with maximum characters

Question

I need to extract data from a table into a .csv and then send that .csv as an attachment.
I am converting the data to csv and assigning it to clob variable but table has huge data therefore procedure gets error out after around 7000 characters with
ORA-06502: PL/SQL: numeric or value error.
Please suggest a way to send attachment with maximum characters.
With the below sample code i am able to send atttachement upto 7000 characters.
DECLARE
v_From VARCHAR2(80) := '[email protected]';
v_Recipient VARCHAR2(80) := '[email protected]';
v_Subject VARCHAR2(80) := 'test subject';
v_Mail_Host VARCHAR2(30) := 'mail.mycompany.com';
v_Mail_Conn utl_smtp.Connection;
crlf VARCHAR2(2) := chr(13)||chr(10);
v_message clob;
BEGIN
v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
utl_smtp.Mail(v_Mail_Conn, v_From);
utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
utl_smtp.Data(v_Mail_Conn,
'Date: ' || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: ' || v_From || crlf ||
'Subject: '|| v_Subject || crlf ||
'To: ' || v_Recipient || crlf ||
'MIME-Version: 1.0'|| crlf ||     -- Use MIME mail standard
'Content-Type: multipart/mixed;'|| crlf ||
' boundary="-----SECBOUND"'|| crlf ||
crlf ||
'-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
'Content-Transfer_Encoding: 7bit'|| crlf ||
crlf ||
'some message text'|| crlf ||     -- Message body
'more message text'|| crlf ||
crlf ||
'-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
' name="excel.csv"'|| crlf ||
'Content-Transfer_Encoding: 8bit'|| crlf ||
'Content-Disposition: attachment;'|| crlf ||
' filename="excel.csv"'|| crlf ||
crlf ||
v_message|| crlf ||     -- Content of attachment
crlf ||
'-------SECBOUND--'               -- End MIME mail
utl_smtp.Quit(v_mail_conn);
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;
Thanks,

Answer 1

Thanks for your help Billy.
I am able to segment the data but I am not getting any attachment instead segmented data is showing in the mail body.
Can you please have a look and let me where it is going wrong?
DECLARE
v_From VARCHAR2(80) := '[email protected]';
v_Recipient VARCHAR2(80) := '[email protected]';
v_Subject VARCHAR2(80) := 'test mail';
v_Mail_Host VARCHAR2(30) := 'localhost';
v_Mail_Conn utl_smtp.Connection;
crlf VARCHAR2(2) := chr(13)||chr(10);
v_message clob;
message clob;
BEGIN
v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
utl_smtp.Mail(v_Mail_Conn, v_From);
utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
v_message := 'date: ' || to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')||chr(10)||
'from: '||v_From|| chr(10) ||
'to: '||v_Recipient ||chr(10)||
'subject: '||v_Subject || chr(10) || chr(10);
utl_smtp.open_data (v_Mail_Conn);
utl_smtp.write_data(v_Mail_Conn , v_message );
--MIME header.
UTL_SMTP.WRITE_DATA(v_Mail_Conn,'MIME-Version: 1.0' || crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn,'Content-Type: multipart/mixed;' || crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn,' boundary="-----SECBOUND"' ||crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn,crlf);
-- Mail Body
UTL_SMTP.WRITE_DATA(v_Mail_Conn,'-------SECBOUND'|| crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn,'Content-Type: text/plain;' || crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn,'Content-Transfer_Encoding: 7bit' || crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn, crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn, 'Please see the attachments' || crlf);
UTL_SMTP.WRITE_DATA(v_Mail_Conn, crlf);
-- Mail Attachment
utl_smtp.write_data(v_Mail_Conn,'-------SECBOUND' || crlf);
utl_smtp.write_data(v_Mail_Conn,'Content-Type: text/plain;' || crlf);
utl_smtp.write_data(v_Mail_Conn,'name="excel.csv"' ||crlf);
utl_smtp.write_data(v_Mail_Conn,'Content-Transfer_Encoding: 8bit' ||crlf);
utl_smtp.write_data(v_Mail_Conn,'Content-Disposition: attachment;' ||crlf);
utl_smtp.write_data(v_Mail_Conn,'filename="excel.csv"' ||crlf);
utl_smtp.write_data(v_Mail_Conn,crlf);
message := 'OBJECT_TYPE, OBJECT_FOREIGNKEY, OPERATION, EVENT_ID, STATUS_ID, NUM_BLOCKED, MODIFIED_DATE, INT_UPDATEEVENT_FMWID, ERROR_DESCRIPTION';
utl_smtp.write_data(v_Mail_Conn , message );
for rec in (
select object_type, object_foreignkey, operation, x.event_id, x.status_id, num_blocked,
e.modified_date, e.INT_UPDATEEVENT_FMWID, replace(substr(e.error_description,1,100),',',' ') error_description
from (
select b2.object_type, b2.object_foreignkey, t.operation, e2.event_id, e2.status_id, count(1) num_blocked
from EVENT e
INNER JOIN TRANSACTION t
ON e.transaction_id = t.transaction_id
inner join transaction_dependency d
on t.transaction_id = d.transaction_id
inner join transaction_block b
on t.transaction_id = b.transaction_id
inner join transaction_block b2
on d.transaction_id <> b2.transaction_id
and d.object_type = b2.object_type
and d.object_foreignkey = b2.object_foreignkey
inner join transaction t2
on b2.transaction_id = t2.transaction_id
and t.source_type = t2.source_type
inner join event e2
on t2.transaction_id = e2.transaction_id
where t.source_type = 'CRM_OD_To_OP'
and e.created_date >=(sysdate - 1)
and e.status_id <1000
and e2.status_id <1000
group by b2.object_type, b2.object_foreignkey, t.operation, e2.event_id, e2.status_id
) x
inner join event e
on x.event_id = e.event_id
and e.status_id = 900
order by num_blocked desc, object_type, object_foreignkey
) loop
message := crlf || rec.object_type||','||rec.object_foreignkey||','|| rec.operation|| ','|| rec.event_id||
','||rec.status_id||','||rec.num_blocked||','||rec.modified_date||','||rec.INT_UPDATEEVENT_FMWID||','||rec.error_description;
utl_smtp.write_data(v_Mail_Conn , message );
end loop;
utl_smtp.write_data(v_Mail_Conn,crlf);
utl_smtp.write_data(v_Mail_Conn,'-------SECBOUND');
utl_smtp.close_data(v_mail_conn);
utl_smtp.quit( v_mail_conn );
EXCEPTION
WHEN others then
dbms_output.put_line('error ' || sqlerrm);
END;