Attachment sent thru mail in PL/SQL code.

Question

Hi.
I have a requirement..
I have to send bunch of an error description thru mail along with attachment says xls.All error should be club in xls and should be sent these attachement thru EMAIL.
Please provide a sample code for the same.
I have a code that mail can be send with the help of oracle supplied package UTL_SMTP.But how can I send the attachement thru mail.
Please provide a sample code.
Thanks

Answer 1

Hi!
Check this sample code - i don't know whether that satisfy ur requirement or not ------
CREATE OR REPLACE PROCEDURE CALL_SEND_MAIL
                         (p_sender varchar2,
                         p_recipients varchar2,
                         p_subject varchar2,
                         p_mailbody varchar2,
                         p_attachment varchar2 ) IS
v_recipients VARCHAR2(1000):=null;
flag          number:=0;
fil BFILE;
file_len PLS_INTEGER;
MAX_LINE_WIDTH PLS_INTEGER := 54;
buf RAW(2100);
amt BINARY_INTEGER := 2000;
pos PLS_INTEGER := 1; /* pointer for each piece */
filepos PLS_INTEGER := 1; /* pointer for the file */
v_file_name VARCHAR2(100) ; /* ascii file attachment */
v_file_handle UTL_FILE.FILE_TYPE;
v_directory_name VARCHAR2(100) := '/utlpath';
v_line VARCHAR2(1000);
conn UTL_SMTP.CONNECTION;
mesg VARCHAR2(32767);
mesg_len NUMBER;
crlf VARCHAR2(2) := chr(13) || chr(10);
data RAW(2100);
chunks PLS_INTEGER;
len PLS_INTEGER;
modulo PLS_INTEGER;
pieces PLS_INTEGER;
err_num NUMBER;
err_msg VARCHAR2(100);
v_subject     VARCHAR2(200);
v_mailbody varchar2(1000);
CURSOR C1 (p_proc_code varchar2) IS
select mail_id
from mat.mmat_mail
where mail_proc_code=p_proc_code
and mail_active='Y';
BEGIN
v_file_name := p_attachment;
if p_subject is null then
BEGIN
SELECT mail_subject
INTO v_subject
FROM mat.mmat_mail
WHERE mail_proc_code='VENDEXCH'
AND mail_subject is not null
AND rownum < 2;
EXCEPTION
WHEN no_data_found then
v_subject:=null;
END;
else
v_subject:=p_subject;
end if;
if p_mailbody is null then
BEGIN
SELECT mail_message
INTO v_mailbody
FROM mat.mmat_mail
WHERE mail_proc_code='VENDEXCH'
AND mail_message is not null
AND rownum < 2;
EXCEPTION
WHEN no_data_found then
v_mailbody:=null;
END;
else
v_mailbody:=p_mailbody;
end if;
if instr(p_recipients,'@') = 0 then
for vc1 in c1(p_recipients) loop
     flag:=flag+1;
     if flag=1 then
          v_recipients:=vc1.mail_id;
     else
          v_recipients:=v_recipients||', '||vc1.mail_id;
     end if;
     end loop;
else
v_recipients:=p_recipients;
end if;
BEGIN
conn := mat.send_mail.begin_mail(
sender => p_sender,
recipients => v_recipients,
subject => v_subject,
mime_type => mat.send_mail.MULTIPART_MIME_TYPE);
END begin_mail;
BEGIN
mat.send_mail.attach_text(
conn => conn,
data => v_mailbody,
mime_type => 'text/html');
END attach_text;
if v_file_name is not null then
BEGIN
mat.send_mail.begin_attachment(
conn => conn,
mime_type => 'text/plain',
inline => TRUE,
filename => v_file_name,
transfer_enc => '7 bit');
begin
v_file_handle := utl_file.fopen(v_directory_name, v_file_name, 'r');
loop
utl_file.get_line(v_file_handle, v_line);
mesg := v_line || crlf;
mat.send_mail.write_text(conn => conn, message => mesg);
end loop;
exception
when others then
null;
end;
utl_file.fclose(v_file_handle);
mat.send_mail.end_attachment(conn => conn );
END begin_attachment;
end if;
mat.send_mail.end_mail(conn => conn);
exception
when no_data_found then
mat.send_mail.end_attachment( conn => conn );
dbms_lob.fileclose(fil);
when others then
mat.send_mail.end_attachment( conn => conn );
err_num := SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 100);
dbms_output.put_line('Error number is ' || err_num);
dbms_output.put_line('Error message is ' || err_msg);
dbms_lob.fileclose(fil);
END;
Regards.
Satyaki De.