Need to send ALV Report as an Excel sheet via Email

Question

Well , I need to Email an ALV Report as an Excel Sheet using my program. What do I need to do and how?
Answers will be rewarded with points.
Thanks

Answer 1

Hi Manu,
You can copy and paste the following codes and try to execute..
Hope this will help you..
note: dont forget to change 'SAPUSER' to your SAP user id.
REPORT  yhn_test8                               .
TYPE-POOLS: slis, slist, truxs.
DATA t5         LIKE t005t OCCURS 0 WITH HEADER LINE.
DATA fcat       TYPE slis_t_fieldcat_alv.
DATA listobject LIKE abaplist OCCURS 0 WITH HEADER LINE.
DATA stack      TYPE slist_listlevel_stack WITH HEADER LINE.
DATA ttxt       LIKE solisti1 OCCURS 0 WITH HEADER LINE.
PARAMETER p_alv   RADIOBUTTON GROUP a.
PARAMETER p_excel RADIOBUTTON GROUP a.
START-OF-SELECTION.
  SELECT * INTO TABLE t5
           FROM t005t
          WHERE spras = sy-langu.
  CLEAR : fcat, fcat[].
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'T005T'
    CHANGING
      ct_fieldcat            = fcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF p_alv = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        it_fieldcat   = fcat
      TABLES
        t_outtab      = t5
      EXCEPTIONS
        program_error = 1
        OTHERS        = 2.
    IF sy-subrc <> 0.
    ENDIF.
  ELSEIF p_excel = 'X'.
    CALL FUNCTION 'LIST_FREE_MEMORY'.
    SUBMIT yhn_test8 EXPORTING LIST TO MEMORY AND RETURN.
    CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        listobject = listobject
      EXCEPTIONS
        not_found  = 1
        OTHERS     = 2.
    IF sy-subrc = 0.
    Generate LIST for excel file
      CALL FUNCTION 'LIST_TO_TXT'
        TABLES
          listtxt            = ttxt
          listobject         = listobject
        EXCEPTIONS
          empty_list         = 1
          list_index_invalid = 2
          OTHERS             = 3.
      IF sy-subrc = 0.
        LOOP AT ttxt.
          REPLACE ALL OCCURRENCES OF '|' IN ttxt-line
                  WITH cl_abap_char_utilities=>horizontal_tab.
          MODIFY ttxt.
        ENDLOOP.
        PERFORM send_email.
      ENDIF.
    ENDIF.
  ENDIF.
*&      Form  send_email
FORM send_email .
  DATA docs LIKE docs OCCURS 0 WITH HEADER LINE.
  DATA excelsize TYPE i.
  DATA excel LIKE solisti1   OCCURS 0 WITH HEADER LINE.
  DATA doc LIKE sodocchgi1.
  DATA excelln TYPE i.
  DATA int_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA int_objhead LIKE solisti1   OCCURS 2 WITH HEADER LINE.
  DATA int_objtext LIKE solisti1   OCCURS 0 WITH HEADER LINE.
  DATA int_reclist LIKE somlreci1  OCCURS 1 WITH HEADER LINE.
  DATA bodyln LIKE sy-tabix.
  DATA output_data TYPE ssfcrescl.
  excel[] = ttxt[].
excel table sizes
  DESCRIBE TABLE excel LINES excelln.
Body Email
  int_objtext-line = 'Test Body'.
  APPEND int_objtext.
  DESCRIBE TABLE int_objtext LINES bodyln.
  READ     TABLE int_objtext INDEX bodyln.
  CLEAR doc.
  doc-doc_size   = ( bodyln - 1 ) * 255 + STRLEN( int_objtext ).
  doc-obj_name   = ' '.
  doc-sensitivty = 'P'.
  doc-proc_syst  = sy-sysid.
  doc-proc_clint = sy-mandt.
  CLEAR: int_objpack, int_objpack[].
  int_objpack-transf_bin = ' '.
  int_objpack-head_start = 1.
  int_objpack-head_num   = 0.
  int_objpack-body_start = 1.
  int_objpack-body_num   = bodyln.
  int_objpack-doc_type   = 'RAW'.
  int_objpack-obj_descr  = 'Test'.
  APPEND int_objpack.
  CLEAR: int_objhead, int_objhead[].
  int_objhead            = 'Attachment'.
  APPEND int_objhead.
  int_objpack-transf_bin = 'X'.
  int_objpack-head_start = 1.
  int_objpack-head_num   = 0.
  int_objpack-body_start = 1.
  int_objpack-body_num   = excelln.
  int_objpack-doc_size   = excelsize.
  int_objpack-doc_type   = 'XLS'.
  int_objpack-obj_name   = 'excel'.
  int_objpack-obj_descr  = 'test.xls'. "File name
  APPEND int_objpack.
  Set Receiver
  int_reclist-receiver   = 'SAPUSER'.
  int_reclist-rec_type   = 'B'.
  int_reclist-notif_del  = 'X'.
  int_reclist-notif_read = 'X'.
  int_reclist-notif_ndel = 'X'.
  int_reclist-express    = 'X'.
  APPEND int_reclist.
  doc-obj_descr = 'Report in Excel'.
  Sending Email
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = int_objpack
      object_header              = int_objhead
      contents_bin               = excel
      contents_txt               = int_objtext   "Body
      receivers                  = int_reclist
    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.
ENDFORM.                    " send_email