Entries missing in excel sheet when sent as an attachmt in email in ECC6.0

Question

Hi All,
When I am sending an email with excel attachment from SAP , email functionality is working fine. But when I try to open excel sheet it is giving a warning that "Incompatible format" and when I click on "OK" button excel sheet is opened bu some entries are missing. This problem is occuring when I am sending email in ECC6.0 whereas in 4.7E it works fine.
I am using classes to send email. Please let me know if any one has any solution.
My code is :
g_text_content is the internal table having data .
example data in g_text_content : line 1 : col1#col2#col3#....
                                                 line 2:  col1#col2#col3#...
convert the content from RAW to TXT
  CALL FUNCTION 'SO_RAW_TO_RTF'
    TABLES
      objcont_old = g_text_content
      objcont_new = g_text_content
    EXCEPTIONS
      OTHERS      = 0.
    create the document with attachments
    main document
    APPEND 'Sales Report (Quantity Basis) ' TO g_text.
  WRITE p_date TO wa_line.
  CONCATENATE 'Report Date:' wa_line INTO wa_line SEPARATED BY space.
  APPEND wa_line TO g_text.
  APPEND 'Sent as attachment' TO g_text.
TRY.
    create the send request
      send_request = cl_bcs=>create_persistent( ).
      IF NOT text[] IS INITIAL.
        document = cl_document_bcs=>create_document(
                                  i_type    = 'RAW'
                                  i_text    = text  "main email text
                                  i_subject = p_subj ).
      ENDIF.
    add text attachment to document
      IF NOT text_content[] IS INITIAL.
        document->add_attachment( i_attachment_type    = 'XLS'
                              i_attachment_subject = p_subj
                              i_att_content_text   = text_content ).
      ENDIF.
    add list attachment to document
      IF NOT list_content[] IS INITIAL.
        document->add_attachment( i_attachment_type    = 'ALI'
                           i_attachment_subject = p_subj
                           i_att_content_hex    = list_content ).
      ENDIF.
    add document to send request
      send_request->set_document( document ).
*email to
    create recipient and add to send request
      IF NOT p_to IS INITIAL.
        LOOP AT p_to.
          recipient = cl_cam_address_bcs=>create_internet_address(
                                            p_to-low ).
          CALL METHOD send_request->add_recipient
            EXPORTING
              i_recipient = recipient.
        ENDLOOP.
      ENDIF.
*copy to
    create recipient and add to send request
      IF NOT p_cc IS INITIAL.
        LOOP AT p_cc.
          recipient = cl_cam_address_bcs=>create_internet_address(
                                            p_cc-low ).
          CALL METHOD send_request->add_recipient
            EXPORTING
              i_recipient = recipient
              i_copy      = 'X'.
        ENDLOOP.
      ENDIF.
Blind copy
      IF NOT p_bcc IS INITIAL.
        LOOP AT p_bcc.
          recipient = cl_cam_address_bcs=>create_internet_address(
                                            p_bcc-low ).
          CALL METHOD send_request->add_recipient
            EXPORTING
              i_recipient  = recipient
              i_blind_copy = 'X'.
        ENDLOOP.
      ENDIF.
    send
      sent_to_all = send_request->send( i_with_error_screen = 'X' ).
      IF sent_to_all = 'X'.
        MESSAGE s022.
      ENDIF.
      COMMIT WORK.
    CATCH cx_bcs INTO bcs_exception.
      MESSAGE e865 WITH bcs_exception->error_type.
  ENDTRY.
Thanks,
Sonali.

Answer 1

Hi change the below sample as per your requirement.
<unreadable code removed by moderator>
Regards
chitra
Moderator message: please post only relevant code parts, your posts must contain less than 5000 characters to preserve readable formatting.
Edited by: Thomas Zloch on Nov 15, 2011 1:03 PM