Issue in sending the email with XL attachment in ECC version

Question

Hi,
I have an issue with sending the email with XL attachment. My program is sending a mail to the receiver with XLS as attachment. Recently we have migrated from 4.6B to ECC version. Same code was worked in 4.6B.But it is not working in ECC version.When i try to open the attachment, i get a Dialog Box with the following message
"The file is not in a recognizable format.
1. if you know the file is from another program whih is incompatible with Microsoft excel,click cancel,then open this file in its original application
2.If you suspect the file is damaged, click help for more information about solving theproblem.
3.if you still want to see what text is contained in the file, click OK.Then click the text import wizard. "
when i click OK, the excel sheet is opening with all required data.
Can anyone kindly tell me why this is happening.
I am also attaching part of the coding related to this requirement.
*&      Form  BUILD_XLS_DATA_TABLE
      text
-->  p1        text
<--  p2        text
FORM build_xls_data_table.
  DATA: w_total(13),
  w_clabs(13),
  w_cinsm(13),
  w_ceinm(13),
  w_cretm(13),
  w_cspem(13),
  w_cumlm(13),
  w_exp_date(8),
  w_v_totalp(13),
  w_min_rem(8),
  w_ersda(10),
  w_hsdat(10),
  w_vfdat(10),
  w_ship_date(10),
  w_plnmg(13),
   w_mhdrz(4).
  CLEAR: w_total, w_clabs, w_cinsm, w_ceinm, w_cspem, w_exp_date,
  w_v_totalp, w_min_rem, w_ersda, w_hsdat, w_vfdat, w_ship_date,
  w_plnmg, w_mhdrz.
  w_total = it_batch1-total.
  w_clabs = it_batch1-clabs.
  w_cinsm = it_batch1-cinsm.
  w_ceinm = it_batch1-ceinm.
  w_cspem = it_batch1-cspem.
  w_cumlm = it_batch1-cumlm.
  w_cretm = it_batch1-cretm.
  w_exp_date = it_batch1-exp_date.
  w_v_totalp = it_batch1-v_totalp.
  w_min_rem = it_batch1-min_rem.
  w_plnmg = it_batch1-plnmg.
  w_mhdrz = it_batch1-mhdrz.
  CONCATENATE it_batch1-ersda6(2) it_batch1-ersda4(2)
              it_batch1-ersda+0(4) INTO w_ersda SEPARATED BY '.'.
  CONCATENATE it_batch1-hsdat6(2) it_batch1-hsdat4(2)
              it_batch1-hsdat+0(4) INTO w_hsdat SEPARATED BY '.'.
  CONCATENATE it_batch1-vfdat6(2) it_batch1-vfdat4(2)
              it_batch1-vfdat+0(4) INTO w_vfdat SEPARATED BY '.'.
  CONCATENATE it_batch1-ship_date6(2) it_batch1-ship_date4(2)
              it_batch1-ship_date+0(4) INTO w_ship_date SEPARATED BY '.'
  CONCATENATE
  it_batch1-werks it_batch1-mtart it_batch1-matnr it_batch1-maktg
it_batch1-prdha it_batch1-prctr it_batch1-ktext  it_batch1-dispo
  it_batch1-charg it_batch1-lgort it_batch1-herkl w_clabs
  w_cinsm w_ceinm w_cretm w_cspem
  w_cumlm w_total  it_batch1-meins  it_batch1-v_spr_unit
  w_v_totalp it_batch1-waers w_plnmg  it_batch1-meins
  w_ersda w_hsdat w_vfdat  w_exp_date
   w_ship_date  w_mhdrz  w_min_rem it_batch1-zlifer
   it_batch1-doknr it_batch1-dokar it_batch1-doktl  it_batch1-dokvr
           INTO L_STRING SEPARATED BY CON_TAB.
              INTO l_string SEPARATED BY cl_abap_char_utilities=>horizontal_tab.
  WHILE l_string <> space.
    CALL FUNCTION 'TEXT_SPLIT'
      EXPORTING
        length       = 255
        text         = l_string
        as_character = 'X'
      IMPORTING
        line         = it_attach
        rest         = l_string.
    IF l_string = space.
   CONCATENATE IT_ATTACH CON_CRET INTO IT_ATTACH.
      CONCATENATE it_attach cl_abap_char_utilities=>cr_lf INTO it_attach.
      APPEND it_attach.
      CLEAR it_attach.
    ELSE.
      APPEND it_attach.
      CLEAR it_attach.
    ENDIF.
  ENDWHILE.
move l_string to it_attach .
CONCATENATE it_attach cl_abap_char_utilities=>cr_lf INTO it_attach.
APPEND it_attach.
CLEAR it_attach.
ENDFORM.                    " BUILD_XLS_DATA_TABLE
*&      Form  SEND_FILE_AS_EMAIL_ATTACHMENT
      text
-->  p1        text
<--  p2        text
FORM send_file_as_email_attachment.
  DATA:w_length TYPE i.
  DATA:  w_cnt TYPE i,
          w_sent_all(1) TYPE c,
          w_doc_data LIKE sodocchgi1,
          gd_error    TYPE sy-subrc,
          gd_reciever TYPE sy-subrc,
          t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE.
Fill the document data.
  w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name  = 'SAPRPT'.
w_doc_data-obj_descr = text-034 .
w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  CLEAR w_doc_data.
DESCRIBE TABLE it_attach LINES w_cnt.
  DESCRIBE TABLE it_message LINES w_cnt.
  READ TABLE it_message INDEX w_cnt.
w_length = STRLEN( it_attach ).
  w_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( it_message ).
  w_doc_data-obj_langu  = sy-langu.
w_doc_data-obj_name   = 'SAPRPT'.
  w_doc_data-obj_descr  = text-034.
  w_doc_data-sensitivty = 'F'.
  CLEAR t_attachment.
  REFRESH t_attachment.
  t_attachment[] = it_attach[].
describe the body of the message
  CLEAR t_packing_list.
  REFRESH t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
***Start of changes by 501507008 on 29.01.2009
  t_packing_list-obj_descr  = 'MAIL BODY'.
***End of changes by 501507008 on 29.01.2009
  DESCRIBE TABLE it_message LINES t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  APPEND t_packing_list.
Create attachment notification
  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num   = 1.
  t_packing_list-body_start = 1.
  DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
  t_packing_list-doc_type   =  'XLS'.
  t_packing_list-obj_descr  =  text-034.
  t_packing_list-obj_name   =  'filename'.
  t_packing_list-doc_size   =  t_packing_list-body_num * 255.
  APPEND t_packing_list.
Add the recipients email address
  CLEAR t_receivers.
  REFRESH t_receivers.
  LOOP AT it_adr6.
    t_receivers-receiver = it_adr6-smtp_addr.
    t_receivers-rec_type = 'U'.
    t_receivers-com_type = 'INT'.
    t_receivers-notif_del = 'X'.
    t_receivers-notif_ndel = 'X'.
    APPEND t_receivers.
  ENDLOOP.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
   EXPORTING
     document_data              = w_doc_data
     put_in_outbox              = 'X'
     sender_address             = ' '
     sender_address_type        = ' '
     commit_work                = 'X'
   IMPORTING
     sent_to_all                = w_sent_all
   TABLES
     packing_list               = t_packing_list
     contents_bin               = t_attachment
     contents_txt               = it_message
     receivers                  = t_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.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data                    = w_doc_data
     put_in_outbox                    = 'X'
  commit_work                      = ' '
IMPORTING
  sent_to_all                      =
  new_object_id                    =
tables
        packing_list               = t_packing_list
        contents_bin               = t_attachment
        contents_txt               = it_message
        receivers                  = t_receivers
  contents_hex                     =
  object_para                      =
  object_parb                      =
   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.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.                    " SEND_FILE_AS_EMAIL_ATTACHMENT

Answer 1

Hi,
could you tell me which opeion should i select in SCOT under INT node. I have tried with diffrent options. but no luck.
SAPscript/Smart Forms  - No Conversion
ABAP List                     - No Conversion
Business Object/Link     - No Conversion
RAW Text                     - No Conversion