Format issue in opening an XLS attachment sent through email by ABAP2XLSX

Question

I have downloaded the ABAP2XLSX nuggets and tried to send an attachment in the email using the SAP. But when opening the attachment it is giving up an format issue and not able to view the content. I am able to save the XLSX file on the PC and able to read it but when I  send it to email it doesn't open correctly and it is in a non readable format. Please find the code that I have been using. Can someone help me on this.
TYPES: BEGIN OF tp_zzrule,
         zzprog     TYPE zzfunc,
         zzdata     TYPE zzcri1,
         zzseq      TYPE zzseq,
         zzkey1     TYPE zzkey1,
         zzkey2     TYPE zzkey2,
     END OF tp_zzrule.
DATA: w_zzrule   TYPE tp_zzrule,
      t_zzrule   TYPE TABLE OF zzourule.
TYPE-POOLS: abap.
DATA:   v_document            TYPE REF TO cl_document_bcs,
        v_recipient           TYPE REF TO if_recipient_bcs,
        v_main_text           TYPE bcsy_text,
        v_send_request        TYPE REF TO cl_bcs,
        v_msub                TYPE so_obj_des,
         v_size               TYPE so_obj_len,
        v_string2             TYPE string,
        v_attsub              TYPE sood-objdes,
        v_mailid              TYPE ad_smtpadr,
        v_sent(1)             type c,
        v_sent_to_all         TYPE os_boolean,
        v_string              TYPE string,
        v_repid               TYPE sy-repid,
        v_title               TYPE so_text255,
        v_dochead             TYPE so_text255.
DATA lt_test TYPE TABLE OF sflight.
DATA: lo_excel                TYPE REF TO zcl_excel,
      lo_excel_writer         TYPE REF TO zif_excel_writer,
      lo_worksheet            TYPE REF TO zcl_excel_worksheet,
      column_dimension        TYPE REF TO zcl_excel_worksheet_columndime.
DATA: ls_table_settings       TYPE zexcel_s_table_settings.
DATA: lv_file                 TYPE xstring,
      lv_bytecount            TYPE i,
      lt_file_tab             TYPE solix_tab,
      t_objtxt  like solisti1   occurs 0 with header line,
      t_objbin  like solisti1   occurs 0 with header line,
      t_objpack like sopcklsti1 occurs 0 with header line,
      t_reclist like table of somlreci1 with header line.
DATA: lv_full_path      TYPE string,
      lv_workdir        TYPE string,
      lv_file_separator TYPE c.
CONSTANTS: lv_default_file_name TYPE string VALUE 'multi sheet test.xlsx'.
PARAMETERS: p_path  TYPE zexcel_export_dir,
            p_empty TYPE flag.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  lv_workdir = p_path.
  cl_gui_frontend_services=>directory_browse( EXPORTING initial_folder  = lv_workdir
                                              CHANGING  selected_folder = lv_workdir ).
  p_path = lv_workdir.
INITIALIZATION.
  cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ).
  cl_gui_cfw=>flush( ).
  p_path = lv_workdir.
START-OF-SELECTION.
  IF p_path IS INITIAL.
    p_path = lv_workdir.
  ENDIF.
  cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ).
  CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path.
SELECT *
    INTO TABLE t_zzrule
   FROM zzourule
  WHERE zzprog  = 'RV63A999'.
    SELECT * FROM sflight INTO TABLE lt_test.
  " Creates active sheet
  CREATE OBJECT lo_excel.
For first Sheet in the excel workbook
  " Get active sheet
  lo_worksheet = lo_excel->get_active_worksheet( ).
  lo_worksheet->set_title( ip_title = 'Test sheet one').
  ls_table_settings-table_style  = zcl_excel_table=>builtinstyle_medium2.
  ls_table_settings-show_row_stripes = abap_true.
  lo_worksheet->bind_table( ip_table          = lt_test
                            is_table_settings = ls_table_settings ).
  lo_worksheet->freeze_panes( ip_num_rows = 3 ). "freeze column headers when scrolling
  column_dimension = lo_worksheet->get_column_dimension( ip_column = 'E' ). "make date field a bit wider
  column_dimension->set_width( ip_width = 20 ).
For second Sheet in the excel workbook
  lo_worksheet = lo_excel->add_new_worksheet( ).
  lo_worksheet->set_title( ip_title = 'Second sheet' ).
  lo_worksheet->set_cell( ip_column = 'B' ip_row = 2
           ip_value = 'This is the test for second sheet by Pavan' ).
  ls_table_settings-table_style  = zcl_excel_table=>builtinstyle_medium2.
  ls_table_settings-show_row_stripes = abap_true.
  lo_worksheet->bind_table( ip_table          = t_zzrule
                            is_table_settings = ls_table_settings ).
This will create excel.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
  lv_file = lo_excel_writer->write_file( lo_excel ).
" Convert to binary
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer        = lv_file
    IMPORTING
      output_length = lv_bytecount
    TABLES
      binary_tab    = lt_file_tab.
Save the file on to the PC
  cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount
                                                    filename     = lv_full_path
                                                    filetype     = 'BIN'
                                           CHANGING data_tab     = lt_file_tab ).
*--Create and set document with attachment.
v_main_text-line  = 'This is the main text not sure where this would print'.
append v_main_text.
  TRY.
    v_send_request = cl_bcs=>create_persistent( ).      "#EC .., bzw.
    CATCH cx_send_req_bcs . "#EC NO_HANDLER
  ENDTRY.
  v_msub       = 'Test excel with multi sheets.XLS'.
  TRY.
      v_document = cl_document_bcs=>create_document(
      i_type     = 'RAW'
      i_text     = v_main_text
      i_subject  = v_msub ).
    CATCH cx_document_bcs . "#EC NO_HANDLER
  ENDTRY.
    v_size = lv_bytecount.
*--Add the attachment.
  TRY.
      v_document->add_attachment(                          "#EC .., bzw
            i_attachment_type    = 'EXT'
           i_attachment_type    = 'XLS'
           i_attachment_type    = 'RAW'
            i_attachment_subject = v_attsub
            i_attachment_size    = v_size
           i_att_content_hex    = lt_file_tab ).    "#EC .., bzw.
           i_att_content_hex    = lt_file_tab ).    "#EC .., bzw.
    CATCH cx_document_bcs . "#EC NO_HANDLER
  ENDTRY.
*--Add document object to send request.
  TRY.
      v_send_request->set_document( v_document ).         "#EC .., bzw.
    CATCH cx_send_req_bcs . "#EC NO_HANDLER
  ENDTRY.
*--E-mail recipent list
  t_reclist-rec_type = 'U'.
  t_reclist-receiver = <email Id here>.
  APPEND t_reclist.
  CLEAR t_reclist.
  LOOP AT t_reclist.
    CLEAR v_mailid.
    v_mailid = t_reclist-receiver.
*--Create mail recipient object.
    TRY.
      v_recipient = cl_cam_address_bcs=>create_internet_address( v_mailid ). "#EC .., bzw.
       CATCH cx_address_bcs . "#EC NO_HANDLER
      ENDTRY.
*--Add recipient object to send request.
    TRY.
        v_send_request->add_recipient( v_recipient ).     "#EC .., bzw.
      CATCH cx_send_req_bcs . "#EC NO_HANDLER
    ENDTRY.
  ENDLOOP.
**--Add recipient object to send request.
  TRY.
    v_sent_to_all = v_send_request->send( i_with_error_screen = 'X' ).
CATCH cx_send_req_bcs . "#EC NO_HANDLER
  ENDTRY.
*--Send document.
  COMMIT WORK.
  IF sy-subrc = 0.
   MESSAGE s999(zou01) WITH text-020.
    v_sent = 'X'.
  ENDIF.

Answer 1

I realize this is an old post, but am wondering if you ever resolved this.  I'm having the same issue.  Download an xlsx file locally opens fine, but attaching the seemingly exact same file throw errors/warnings when trying to open via an email attachment.