Sending an excel spreadsheet attachment on an E-Mail

Question

Afternoon,
Based upon program BCS_EXAMPLE_5 I have created a program that generates an e-mail and creates a spreadsheet attachment. The problem I have is how do get the contents of an internal table into the spreadsheet attachment?
My attempt at resolving the problem has been as follows:-
I have declared a variable document which points to the class cl_document_bcs. I have then instantiated the variable using a static method. I then call the method add_attachment (document->add_attachment) and pass the text content which contains two lines of text.
This creates a spreadsheet will the two lines of text in the first cell.
Could I use the binary content instead? If so how do I declare a variable that has the same type as a work area of binary content because this has a data type of RAW.
Any assistance would be very much appreciated. A copy of my code can be seen below:-
Thanks and regards
John.
REPORT bcs_example_5.
This example shows how to send
  - a simple text provided in an internal table of text lines
  - and an attached MS word document provided in internal table
  - to some internet email address.
All activities done via facade CL_BCS!
DATA: send_request       TYPE REF TO cl_bcs.
DATA: text               TYPE bcsy_text.
DATA: text_content       TYPE soli_tab.
DATA: wa_text_content    TYPE soli.
DATA: binary_content     TYPE solix_tab.
DATA: wa_binary_content  TYPE solix.
DATA: document           TYPE REF TO cl_document_bcs.
DATA: sender             TYPE REF TO cl_sapuser_bcs.
DATA: recipient          TYPE REF TO if_recipient_bcs.
DATA: bcs_exception      TYPE REF TO cx_bcs.
DATA: sent_to_all        TYPE os_boolean.
Data to be included in the spreadsheet
DATA:  text2(100) TYPE c VALUE 'ABC'.
DATA:  int TYPE i VALUE 258.
DATA:  buffer TYPE xstring.
DATA:  conv TYPE REF TO cl_abap_conv_out_ce.
START-OF-SELECTION.
  PERFORM main.
      FORM main                                                     *
FORM main.
  TRY.
    -------- create persistent send request ------------------------
      send_request = cl_bcs=>create_persistent( ).
    -------- create and set document with attachment ---------------
    create document from internal table with text
      APPEND 'Hello world!' TO text.
      document = cl_document_bcs=>create_document(
                      i_type    = 'RAW'
                      i_text    = text
                      i_length  = '12'
                      i_subject = 'test created by BCS_EXAMPLE_5' ).
    add attachment to document
    BCS expects document content here e.g. from document upload
    binary_content = ...
*TRY.
     conv = cl_abap_conv_out_ce=>create(
          encoding                      = 'UTF-8'
          endian                        = 'L'
   REPLACEMENT                   = '#'
   IGNORE_CERR                   = ABAP_FALSE
CATCH CX_PARAMETER_INVALID_RANGE .
CATCH CX_SY_CODEPAGE_CONVERTER_INIT .
**ENDTRY.
     CALL METHOD conv->write( data = text n = 4 ).
     CALL METHOD conv->write( data = int ).
     buffer = conv->get_buffer( ).
      wa_text_content = '1234567890ABCDE'.
      APPEND wa_text_content TO text_content.
      wa_text_content = '1234567890ABCDE'.
      APPEND wa_text_content TO text_content.
      wa_binary_content = buffer.
     APPEND wa_binary_content TO binary_content.
     wa_binary_content = '11111111'.
     APPEND wa_binary_content TO binary_content.
      CALL METHOD document->add_attachment
        EXPORTING
          i_attachment_type    = 'XLS'
          i_attachment_subject = 'c:\temp\book2'
          i_att_content_text   = text_content.
         i_att_content_hex    = binary_content
    add document to send request
      CALL METHOD send_request->set_document( document ).
    --------- set sender -------------------------------------------
    note: this is necessary only if you want to set the sender
          different from actual user (SY-UNAME). Otherwise sender is
          set automatically with actual user.
      sender = cl_sapuser_bcs=>create( sy-uname ).
      CALL METHOD send_request->set_sender
        EXPORTING
          i_sender = sender.
    --------- add recipient (e-mail address) -----------------------
    create recipient - please replace e-mail address !!!
      recipient = cl_cam_address_bcs=>create_internet_address(
                                        '[email protected]' ).
    add recipient with its respective attributes to send request
      CALL METHOD send_request->add_recipient
        EXPORTING
          i_recipient = recipient
          i_express   = 'X'.
    ---------- send document ---------------------------------------
set send immediately flag
      CALL METHOD send_request->set_send_immediately( 'X' ).
      CALL METHOD send_request->send(
        EXPORTING
          i_with_error_screen = 'X'
        RECEIVING
          result              = sent_to_all ).
      IF sent_to_all = 'X'.
        WRITE text-003.
      ENDIF.
      COMMIT WORK.
*                     exception handling
* replace this very rudimentary exception handling
* with your own one !!!
    CATCH cx_bcs INTO bcs_exception.
      WRITE: 'Fehler aufgetreten.'(001).
      WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.
      EXIT.
  ENDTRY.
ENDFORM.                    "main

Answer 1

Hi,
See the Blog..
/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface
Here is the example program to send the EXCEL as a attachment in a email
http://www.erpgenie.com/sap/abap/code/abap58.htm
Regards
Sudheer