Report output via E-mail

Question

Hi all,
i have a written a report where i need to send the report output to somebody via
E-mail.i am sending this report output via E-mail successfully.The receiver receives, my output in excel format.but this excel is not <b>pivoted</b>.
i want , the receiver should get my output in pivoted excel format.i.e my output data should be exactly fit in the excel sheet.
now the columns in excel sheet are overlapping.once i double clicked, the columns are getting separated.i do not want to double click.i want all the columns should come properly i.e excel field  length should be adjusted as per the output field length.
i am giving my coding below.plz suggest how i can do the above thing .it's urgent.
any idea will be highly appreaciated.
Regards
if not p_email1 is initial.
     perform fill_report_csv.
     perform f_send_internet_mail.
  endif.
FORM fill_report_csv.
   data :   l_text(232) type c,
           v_matnr1(21) type c,
           v_matnr(21) type c,
           v_matkl(14) type c,
           v_maktx(45) type c,
           v_ttlstk(14) type c,
           v_verpr(14) type c,
           v_werks(14) type c,
           v_lgort(14) type c,
           v_char(10) type c,
           v_stks type p ,
           v_po(40) type c,
           v_qty(13) type c,
            v_qty1 type sy-datum,
           v_date(15) type c,
           v_date1(15) TYPE C,
           v_name(35) type c,
           v_eknam(18) type c,
           v_lifnr(15) type c,
        l_po(40) type c,
        v_matnr(20) type c,
         l_rate(11) type  p decimals 5,
         l_flag type c.
  concatenate c_equal c_colon 'PO no.' c_colon
                into v_po.
  concatenate c_equal c_colon 'Material no.' c_colon
                into v_matnr.
  concatenate c_equal c_colon 'Description.' c_colon
                into v_maktx.
  concatenate c_equal c_colon 'Due Qty.' c_colon
                into v_qty.
  concatenate c_equal c_colon 'Del Date.' c_colon
                into v_date.
  concatenate c_equal c_colon 'Vendor.' c_colon
                into v_name.
  concatenate c_equal c_colon 'Buyer.' c_colon
                into v_eknam.
  concatenate c_equal c_colon 'Vendor Code.' c_colon
                into v_lifnr.
concatenate
         v_po v_matnr v_maktx v_qty
         v_date v_name v_eknam v_lifnr
         into i_download
         SEPARATED BY con_tab.
  append i_download .
clear : v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
clear wa_output.
loop at i_output into wa_output.
   on change of wa_output-ebeln.
     clear v_lines.
     loop at i_eket into wa_eket
             where ebeln = wa_output-ebeln.
       v_lines = v_lines + 1.
       clear wa_eket.
     endloop.
**-- Checking of page break
     v_lines = sy-linno + v_lines .
     if 55 < v_lines  .
       write:/0(161) sy-uline.
       new-page.
     endif.
  clear v_lines.
      loop at i_eket into wa_eket
              where ebeln = wa_output-ebeln.
        v_lines = v_lines + 1.
        clear wa_eket.
      endloop.
*-- Calculating the due qty.
    wa_output-dumng = wa_output-menge - wa_output-wemng.
*-- Writing the Line items of the PO.
    read table i_ekpo into wa_ekpo
          with key ebeln = wa_output-ebeln
                   ebelp = wa_output-ebelp.
     l_rate = wa_ekpo-netpr / wa_ekpo-peinh.
*-- Writing of PO detail
     if wa_output-dumng gt 0 .
     v_qty = wa_output-dumng.
    v_date1 = wa_output-eindt.
    v_maktx = wa_output-maktx.
     if wa_output-maktx+0(1) = '"' .
            concatenate  c_equal wa_output-maktx
               into v_maktx  .
         else .
            concatenate  c_equal c_colon wa_output-maktx c_colon
               into v_maktx  .
         endif .
   if wa_output-name1+0(1) = '"' .
            concatenate  c_equal wa_output-name1
               into v_name  .
         else .
            concatenate  c_equal c_colon wa_output-name1 c_colon
               into v_name  .
         endif .
    v_name = wa_output-name1.
    v_lifnr = wa_output-lifnr.
     write wa_output-eindt to v_date1 DD/MM/YYYY.
     concatenate '="' wa_output-ebeln '/'
            wa_output-ebelp '"' into v_po .
     concatenate '="' wa_output-matnr '"' into v_matnr .
         concatenate  c_equal c_colon wa_output-maktx c_colon
           into v_maktx  .
          concatenate  c_equal c_colon wa_output-dumng c_colon
           into v_qty1  .
           concatenate  c_equal c_colon wa_output-eindt c_colon
           into v_date1  .
          concatenate  c_equal c_colon wa_output-name1 c_colon
           into v_name  .
            concatenate  c_equal c_colon wa_output-eknam c_colon
            into v_eknam  .
          concatenate  c_equal c_colon wa_output-lifnr c_colon
           into v_lifnr  .
          concatenate  c_equal c_colon wa_mard-werks '/'
           wa_mard-lgort c_colon
           into v_lgort .
             concatenate '="' wa_output-lifnr '"' into v_lifnr .
condense:v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
     concatenate
         v_po v_matnr v_maktx v_qty
         v_date1 v_name v_eknam v_lifnr
         into i_download
         SEPARATED BY con_tab.
    concatenate con_cret i_download INTO i_download .
    append i_download .
  endif.
clear : v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
endloop.
ENDFORM.                    " fill_report_csv
*&      Form  f_send_internet_mail
      text
-->  p1        text
<--  p2        text
FORM f_send_internet_mail.
Variables
data:   it_packing_list like sopcklsti1 occurs 0 with header line,
        it_contents like solisti1 occurs 0 with header line,
        it_receivers like somlreci1 occurs 0 with header line,
        it_attachment like solisti1 occurs 0 with header line,
        gd_cnt type i,
        gd_sent_all(1) type c,
        gd_doc_data like sodocchgi1,
        gd_error type sy-subrc.
data:   it_message type standard table of SOLISTI1 initial size 0
                with header line.
data : found_receiver type c,
       v_title(80) type c,
       l_text(180) type c.
Fill the document data.
  gd_doc_data-doc_size = 1.
Adds text to email text table
  append 'Pls see attached open purchase order report.' to it_message.
  append '' to it_message.
  concatenate 'Note: This is system generated report'
              ', figures may subject to actual physical count.'
              into l_text separated by space.
  append l_text to it_message.
Populate the subject/generic message attributes
  CLEAR gd_doc_data.
  READ TABLE i_download INDEX w_cnt.
  gd_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( i_download ).
  gd_doc_data-obj_langu  = sy-langu.
  gd_doc_data-obj_name   = 'SAPRPT'.
if p_asdate is initial .
     concatenate p_title ' '
              sy-datum sy-uzeit into v_title separated by space.
else .
    concatenate p_title ' '
             p_bldat p_cputm into v_title separated by space.
endif .
  gd_doc_data-obj_descr  = v_title .
  gd_doc_data-sensitivty = 'F'.
  CLEAR t_attachment.
  REFRESH t_attachment.
  t_attachment[] = i_download[].
Describe the body of the message
  clear it_packing_list.
  refresh it_packing_list.
  it_packing_list-transf_bin = space.
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 0.
  it_packing_list-body_start = 1.
  describe table it_message lines it_packing_list-body_num.
  it_packing_list-doc_type = 'RAW'.
  append it_packing_list.
Create attachment notification
  it_packing_list-transf_bin = 'X'.
  it_packing_list-head_start = 1.
  it_packing_list-head_num   = 1.
  it_packing_list-body_start = 1.
  DESCRIBE TABLE t_attachment LINES it_packing_list-body_num.
  it_packing_list-doc_type   =  'XLS'.
  it_packing_list-obj_descr  =  'OPEN PURCHASE ORDER' .
  it_packing_list-obj_name   =  'PO.XLS' .
  it_packing_list-doc_size   =  it_packing_list-body_num * 255.
  APPEND it_packing_list.
assign SAP user smtp address from successful retrieval.
  loop at p_email.
Add the recipients email address
     found_receiver = 'X' .
     it_receivers-receiver = p_email-low.
     it_receivers-rec_type = 'U'.
     it_receivers-com_type = 'INT'.
     it_receivers-notif_del = ''.
     it_receivers-notif_ndel = 'X'.
     append it_receivers .
  endloop .
Add default recipient email when unable to locate purc group email
   if found_receiver is initial .
       it_receivers-receiver = p_email.
       it_receivers-rec_type = 'U'.
       it_receivers-com_type = 'INT'.
       it_receivers-notif_del = ''.
       it_receivers-notif_ndel = 'X'.
      append it_receivers.
   endif .
Call the FM to post the message to SAPMAIL
  call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       exporting
            document_data              = gd_doc_data
            put_in_outbox              = 'X'
            commit_work                = 'X'
       importing
            sent_to_all                = gd_sent_all
       tables
            packing_list               = it_packing_list
            contents_bin               = t_attachment
            contents_txt               = it_message
            receivers                  = it_receivers
       exceptions
            too_many_receivers         = 1
            document_not_sent          = 2
            document_type_not_exist    = 3
            operation_no_authorization = 4
            parameter_error            = 5
            x_error                    = 6
            enqueue_error              = 7
            others                     = 8.
Store function module return code
  gd_error = sy-subrc.
Get it_receivers return code
  loop at it_receivers.
  endloop.
Instructs mail send program for SAPCONNECT to send email.
  wait up to 2 seconds.
  if gd_error eq 0.
      submit rsconn01 with mode = 'INT'
                    with output = ' '
                    and return.
  endif.
ENDFORM.                    " f_send_internet_mail

Answer 1

ans