How to Convert Report into Excel Sheet when Sending Mail.

Question

Dear Friends,
i want to send mail to HOD of Product with an Excel Sheet .
i want to send Pending Issue details to HOD in Excel Sheet attachment .
here i have pending issue report now i need to send it in Excel Sheet attachment .
i have table where i have manage Product ID and HOD OF PRODUCT.
CREATE TABLE  "MAP_USER_PRODUCT_DTL"
   (     "ID" NUMBER NOT NULL ENABLE,
     "PRODUCT_ID"NUMBER,
     "USER_ID" VARCHAR2(5) NOT NULL ENABLE,
     "HOD_PROD" VARCHAR2(100)========================================Value is Y OR N IF HOD then Y else N
     CONSTRAINT "MAP_USER_PRODUCT_DTL_PK" PRIMARY KEY ("ID") ENABLE
/i have one more table where all complete issue detail insert.
CREATE TABLE  "CRM_ISSUE_PROBLEM"
   (     "ID" NUMBER,
     "SUBJECT" VARCHAR2(255) NOT NULL ENABLE,
     "CLIENT_ID" NUMBER,
     "ASSIGNED_TO_ID" VARCHAR2(100),
     "ASSIGNED_ON" DATE,
     "DESCRIPTION" VARCHAR2(4000),
     "PRODUCT_ID" NUMBER NOT NULL ENABLE,
     "STATUS_ID" NUMBER NOT NULL ENABLE,
      CONSTRAINT "CRM_ISSUE_PROBLEM_PK" PRIMARY KEY ("ID") ENABLE
Here STATUS_ID is Like Pending ISsue,Open Issue and Close Issue .i want to send mail to HOD with Pending Issue Report convert into Excel Sheet and send to HOD?
How can i do this.
Thanks
Edited by: Vedant on Oct 12, 2011 12:36 AM
Edited by: Vedant on Oct 12, 2011 2:22 AM

Answer 1

Hello Vedant,
Would it suffice if you send a CSV file?
If yes, then see following code.. run the code under APEX > Home > SQL Workshop > SQL Commands
DECLARE
        ln_id NUMBER;
        lc_clob CLOB;
     lb_blob BLOB;
     li_in PLS_INTEGER := 1;
     li_out PLS_INTEGER := 1;
     li_lang PLS_INTEGER := 0;
     li_warning PLS_INTEGER := 0;
     lv_mail_rcpts VARCHAR2(2000) := '[email protected]';
     lv_mail_from VARCHAR2(100) := '[email protected]';     
       lv_clmn_separator VARCHAR2(1) := ',';
BEGIN
     -- Build file content as CLOB
  -- Replace with your query
     FOR i IN (select object_id A, object_name B, object_type C, status D, temporary E, generated F, secondary G,namespace H from user_objects where rownum < 10)               
     LOOP
    IF lc_clob IS NULL THEN
      lc_clob := i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    ELSE
      lc_clob := lc_clob||CHR(10)||i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    END IF;
     END LOOP; 
     -- Convert CLOB to BLOB
     DBMS_LOB.CREATETEMPORARY(lb_blob,TRUE);
     DBMS_LOB.convertToBlob(lb_blob,lc_clob,DBMS_LOB.LOBMAXSIZE,li_in,li_out,DBMS_LOB.DEFAULT_CSID,li_lang,li_warning);
     -- Send mail
     ln_id:= APEX_MAIL.SEND(
       p_to        => lv_mail_rcpts,
             p_from      => lv_mail_from,
             p_subj      => 'Subject Goes here',
             p_body      => 'Body goes here'
       -- add CSV file as attachment
     APEX_MAIL.ADD_ATTACHMENT
       p_mail_id   => ln_id,
       p_attachment => lb_blob,
       p_filename   => 'filename.csv',
       p_mime_type  => 'application/csv'
  -- push mail queue
  APEX_MAIL.PUSH_QUEUE;
     -- empty temporary space
     DBMS_LOB.FREETEMPORARY ( lob_loc =>  lb_blob);       
     COMMIT;
END;Regards,
Hari