How to email a concurrent program output in PDF format?

Question

I have a XML report running as a concurrent program with PDF output. I need to automate the xml report to be emailed to a specific user as the concurrent manager runs with PDF output. I am using reports 6i and database 10g.
Please help me.

Answer 1

Hi
Use following code in AfterReport trigger
function AfterReport return boolean is
BEGIN
SRW.USER_EXIT(’FND SRWEXIT’);
DECLARE
vinhandle UTL_FILE.file_type;
rfile RAW (32767);
flen NUMBER;
bsize NUMBER;
ex BOOLEAN;
vrec VARCHAR2 (30) := ‘[email protected]’; –receiver’s email id
vsender VARCHAR2 (30) := ’[email protected]’; –sender’s email id
vsubj VARCHAR2 (50) := ’subject’; –subject
vmesg VARCHAR2 (4000);
vmtype VARCHAR2 (30) := ‘text/plain; charset=us-ascii’;
BEGIN
vmesg := ‘Please print and complete attachment’; –message
UTL_FILE.fgetattr (’CTEMP’, –name of the directory
‘o’ || :p_conc_request_id || ‘.out’, –name of the file
ex,
flen,
bsize
vinhandle :=
UTL_FILE.fopen (’CTEMP’, ‘o’ || :p_conc_request_id || ‘.out’,'R’);
UTL_FILE.get_raw (vinhandle, rfile, flen);
UTL_FILE.fclose (vinhandle);
utl_mail.send_attach_raw (sender => vsender
,recipients => vrec
,subject => vsubj
,MESSAGE => vmesg
,attachment => rfile
,att_inline => FALSE
,att_filename => ‘o’|| :p_conc_request_id|| ‘.out’
– CTEMP is a directory with path as $APPLCSF/out or your custom out folder
END;
return (TRUE);
end;
Susheel