Block List ALV Output Send As Email Attachment

Question

Hi,  All The ABAP Gurus,
I have made a block ALV Report. I want that this output should be converted into .xls with HTML format and this should be send in email as attachment. This all will be made in a background job which will be scheduled daily.
How can I achieve this? I know that the output of classical report can be attached as pdf in email.But I want in Block ALV.
Thanks in Advance.
Regards,
Bharti Jain
Edited by: Bharti Jain on Jun 28, 2011 10:20 AM

Answer 1

Hi
Not 100 percent sure what you want to do here.  I am confused by the .xls in html format.   If you want the output in html you can submit the program and export the list to memory,  Then retrieve the list and convert it to html.  i have done this with the program 1sdbf12l/rv14akzy . see code below.  This converts the output to html, you are left with a binary itab and size at the end of the routine and this can be attached to an email.
Submit Program and export the list to Memory
SUBMIT /1sdbf12l/rv14akzy USING SELECTION-SCREEN '1000'
  WITH SELECTION-TABLE lt_params_new EXPORTING LIST TO MEMORY AND RETURN.
  CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = lt_list
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.
Convert the List to html
  IF sy-subrc = 0.
    DATA: it_html TYPE TABLE OF bapihtml WITH HEADER LINE,
          it_html_out TYPE TABLE OF bapihtml WITH HEADER LINE,
          lt_html TYPE TABLE OF bapihtml WITH HEADER LINE,
          lv_html LIKE LINE OF it_html,
          lv_html_out TYPE string.
    DATA: lv_html_tab_wide(50000) TYPE c.
    DATA: lineno TYPE i, length TYPE i, size TYPE i.
    DATA: gui_codepage(4) TYPE n,        " added for message 500824
          is_unicode TYPE rststype-sel_ok.
    DATA: convert_output TYPE xstring,
          convert_buffer TYPE xstring.
    CALL FUNCTION 'LIST_FREE_MEMORY'
      TABLES
        listobject = lt_list.
    CALL FUNCTION 'WWW_HTML_FROM_LISTOBJECT'
         EXPORTING
              REPORT_NAME   =
              template_name = 'WEBREPORTING_REPORT'
         TABLES
              html          =  it_html
              listobject    =  lt_list.
    DESCRIBE TABLE it_html LINES lineno .
    DESCRIBE FIELD it_html LENGTH length IN BYTE MODE.
    size = length * lineno.
    CALL 'CUR_LCL' ID 'GUICP'  FIELD gui_codepage.
    CALL FUNCTION 'SCP_GET_CODEPAGE_PROPERTIES'
      EXPORTING
        codepage         = gui_codepage
      IMPORTING
        can_unicode      = is_unicode
      EXCEPTIONS
        codepage_unknown = 1.
    IF sy-subrc <> 0.
      CLEAR gui_codepage.
    ENDIF.
    IF is_unicode EQ 'X'.         "in case of unicode, always use utf-8
      gui_codepage = '4110'.
    ENDIF.
    CLEAR: convert_output, convert_buffer.
    LOOP AT it_html INTO lv_html.
      REPLACE ALL OCCURRENCES OF c_bg_def IN lv_html WITH c_bg_white.
      CALL FUNCTION 'SCP_TRANSLATE_CHARS'
        EXPORTING
          inbuff           = lv_html
          outcode          = gui_codepage
          csubst           = 'X'
          substc_space     = 'X'
        IMPORTING
          outbuff          = convert_output
        EXCEPTIONS
          invalid_codepage = 1
          internal_error   = 2
          cannot_convert   = 3
          fields_bad_type  = 4
          OTHERS           = 5.
      IF sy-subrc <> 0.
       message i020 raising download_error.
      ENDIF.
      CONCATENATE convert_buffer convert_output INTO convert_buffer IN
      BYTE MODE.
      CONCATENATE lv_html_out lv_html INTO lv_html_out.
    ENDLOOP.
    ev_html_string = lv_html_out.
    i = 0.
    DESCRIBE FIELD html_tab_converted LENGTH tablength IN BYTE MODE.
    WHILE i < XSTRLEN( convert_buffer ).
      dummy = XSTRLEN( convert_buffer ) - i.
      IF tablength > dummy.
        html_tab_converted-line = convert_buffer+i(dummy).
      ELSE.
        html_tab_converted-line = convert_buffer+i(tablength).
      ENDIF.
      i = i + tablength.
      APPEND html_tab_converted.
    ENDWHILE.
    et_bin[] = html_tab_converted[].
    ev_bin_size = size.