Aattach an existing Excel file to an email from SAP system.

Question

Hi,
How can I attach an existing Excel file from SAP system (Example in 'DIR_TEMP' folder) & send a mail. Guess this requires a class with a method which picks up the file using the file path. Does CL_DOCUMENT_BCS provides this???? boz CL_DOCUMENT_BCS->ADD_DOCUMENT_AS_ATTACHMENT is for Add Existing Document as an Attachment,if so please let me know how with few lines of code??
Thankx in advance.

Answer 1

*  Local Data declarations
  DATA: ls_rec          TYPE somlreci1.
  DATA: lp_send_request    TYPE REF TO cl_bcs,
        lp_document        TYPE REF TO cl_document_bcs,
        lp_sender          TYPE REF TO if_sender_bcs,
        lp_recipient       TYPE REF TO if_recipient_bcs,
        lp_bcs_exception   TYPE REF TO cx_bcs.
  DATA: lt_text TYPE soli_tab,
        ls_text LIKE LINE OF lt_text,
        lv_flag.
  DATA: lt_tline TYPE TABLE OF tline.
  DATA lv_receiver TYPE ad_smtpadr.
*  DATA lt_attach  TYPE soli_tab.
  DATA ls_tline TYPE tline.
  TRY.
*   create persistent send request
      lp_send_request = cl_bcs=>create_persistent( ).
* Get the text
      IF iv_stxt IS NOT INITIAL.
        CALL METHOD zfi_flexgl_common=>read_text
          EXPORTING
            iv_stxt   = iv_stxt
          IMPORTING
            et_tline  = lt_tline
            ev_failed = ev_failed.
        LOOP AT lt_tline INTO ls_tline.
          APPEND ls_tline-tdline TO lt_text.
        ENDLOOP.
      ENDIF.
*  create and set document
*     create document from internal table with text
      lp_document = cl_document_bcs=>create_document(
                      i_type    = iv_format_type   "'XLS' "HTM'
                      i_text    = lt_text
                      i_subject = iv_msg_subj ).
      IF it_attach IS NOT INITIAL.
* Add attachment
*        DATA:      l_size      TYPE sood-objlen,              " Size of Attachment
*                   l_lines     TYPE i.                        " Lines count
*        l_lines = LINES( it_attach ).
*        l_size = l_lines * 255.
        CALL METHOD lp_document->add_attachment
          EXPORTING
            i_attachment_type    = 'RAW'
            i_attachment_subject = 'My attachment'
*            i_attachment_size    = l_size
            i_att_content_text   = it_attach.
      ENDIF.
*     add document to send request
      CALL METHOD lp_send_request->set_document( lp_document ).
* Sender addess
*l_sender = cl_sapuser_bcs=>create( sy-uname ).
*call method l_send_request->set_sender
*  exporting
*    i_sender = l_sender.
*      LOOP AT it_rec INTO ls_rec.
      lv_receiver = iv_rec.
      TRY.
          CALL METHOD cl_cam_address_bcs=>create_internet_address
            EXPORTING
              i_address_string = lv_receiver
            RECEIVING
              result           = lp_recipient.
        CATCH cx_address_bcs .
      ENDTRY.
      CALL METHOD lp_send_request->add_recipient
        EXPORTING
          i_recipient  = lp_recipient
          i_blind_copy = abap_true
          i_express    = abap_true.
*      ENDLOOP.
      IF sy-subrc <> 0.
        ev_failed = abap_true.
        EXIT.
      ENDIF.
*     ---------- send document ---------------------------------------
      CALL METHOD lp_send_request->send(
        RECEIVING
          result              = lv_flag ).
    CATCH cx_send_req_bcs.
      ev_failed = abap_true.
    CATCH cx_document_bcs.
      ev_failed = abap_true.
  ENDTRY.
  IF iv_commit = abap_true.
    COMMIT WORK.
  ENDIF.