Field names Missing in the (Excel) Mail attachment

Question

Hi ,
I am trying to send my ALV Grid Output as Excel Email attachment using the below code
The problem is that the field names are missing in the receivers Mail.
i.e
*Name*   *Emp Code*   * Branch*         "this is missing
abc         123                 ukp
I searched many threads but unable to find the solution for this.
Kindly suggest me regarding this issue.
loop at p_eadd.
    if p_eadd-low <> space.
      clear reclist.
      reclist-rec_type = 'U'.  "Internet-adress
      reclist-receiver = p_eadd-low.
      reclist-express = 'X'.
      append reclist.
    endif.
  endloop.
* endif.
* Send the document
  call function 'SO_NEW_DOCUMENT_SEND_API1'
     exporting
          document_type              = 'RAW'
          document_data              = doc_chng
*         PUT_IN_OUTBOX              = 'X'
     tables
          object_content             = objcont
          receivers                  = reclist
     exceptions
          too_many_receivers         = 1
          document_not_sent          = 2
          operation_no_authorization = 4
          others                     = 99.
  ld_aplstat = '4'.
  case sy-subrc.
    when 0.
      loop at reclist.
        if reclist-receiver = space.
          name = reclist-rec_id.
        else.
          name = reclist-receiver.
        endif.
        if reclist-retrn_code = 0.
          write: / name, ': succesfully sent'.
        else.
          write: / name, ': error occured'.
        endif.
      endloop.
      ld_aplstat = '0'.
    when 1.
      write: / 'Too many receivers specified !'.
    when 2.
      write: / 'No receiver got the document !'.
    when 4.
      write: / 'Missing send authority !'.
    when others.
      write: / 'Unexpected error occured !'.
  endcase.
*.Tell workflow to go on
  clear ls_scma_event.
  ls_scma_event-wf_event = cs_wf_events-finished.
  ls_scma_event-wf_witem = wf_witem.
  ls_scma_event-wf_okey  = wf_okey.
  call function 'KPEP_MONI_CLOSE_RECORD'
    exporting
      ls_key        = gs_key
      ls_scma_event = ls_scma_event
    changing
      ld_aplstat    = ld_aplstat
    exceptions
      no_id_given   = 1
      others        = 2.
call function 'SAP_CONVERT_TO_XLS_FORMAT'
      exporting
       i_field_seperator          = ' '
       i_line_header              = 'X'
        i_filename                 = p_file
*   I_APPL_KEEP                = ' '
      tables
        i_tab_sap_data             = it_final
* CHANGING
*   I_TAB_CONVERTED_DATA       =
     exceptions
       conversion_failed          = 1
*   OTHERS                     = 2
    if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
Thanks in Advance,
Mr. Ben

Answer 1

Hi Ben,
Follow the code below....
Your internal table it_final will have the attachment data. After you got the attachment data do the following
gc_ret TYPE c VALUE cl_abap_char_utilities=>cr_lf.
lt_attachment        TYPE TABLE OF  solisti1 ,
gt_attach TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0 WITH HEADER LINE,
  CLEAR:gs_attach.                      <this will have your attachment, declare a structure which contains fields of your  excel sheet>
<before this you have to copy all the fields from your final internal table which should be attached to email to gs_attach>
For attaching field names
    CONCATENATE gc_ret gs_attach INTO gs_attach.
    gs_attach = gs_attach+1.
    APPEND gs_attach TO gt_attach.
CLEAR:lt_attachment.
      lt_attachment[] = gt_attach[].
SORT  lt_attachment .
      DELETE ADJACENT DUPLICATES FROM lt_attachment COMPARING ALL FIELDS.
      CLEAR gs_attach.
      CONCATENATE <field names >
      INTO gs_attach SEPARATED BY gc_tab.
      INSERT gs_attach INTO lt_attachment INDEX 1.
<field addition ends>
call function 'SO_NEW_DOCUMENT_SEND_API1'
     exporting
          document_type              = 'RAW'
          document_data              = doc_chng
        PUT_IN_OUTBOX              = 'X'
     tables
          object_content             = objcont
          receivers                  = reclist
        contents_bin               = lt_attachment
     exceptions
          too_many_receivers         = 1
          document_not_sent          = 2
          operation_no_authorization = 4
    if sy-subrc  0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
Regards,
Aravind.