Send csv attachment in the e-mail

Question

Data are collected in the internal table.. in a zreport
This has to be send as an csv  attachment via email.
How to get the datas in the csv attachment ?

Answer 1

Hi,
Here is the sample example:
REPORT ytest_email.
This example shows how to send
  - a simple text provided in an internal table of text lines
  - to some internet email address.
All activities done via facade CL_BCS!
INCLUDE rlb_invoice_data_declare.
DATA: send_request       TYPE REF TO cl_bcs.
DATA: text               TYPE bcsy_text.
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.
START-OF-SELECTION.
  PERFORM main.
      FORM main                                                     *
FORM main.
  DATA: ls_bil_invoice TYPE lbbil_invoice.
  DATA: lf_fm_name            TYPE rs38l_fnam.
  DATA: ls_control_param      TYPE ssfctrlop.
  DATA: ls_composer_param     TYPE ssfcompop.
  DATA: ls_recipient          TYPE swotobjid.
  DATA: ls_sender             TYPE swotobjid.
  DATA: lf_formname           TYPE tdsfname.
  DATA: ls_addr_key           LIKE addr_key.
  DATA: ls_dlv_land           LIKE vbrk-land1.
  DATA: ls_job_info           TYPE ssfcrescl.
  DATA: i_cust TYPE  scustom.
  DATA: i_book TYPE ty_bookings,
        i_conn TYPE ty_connections.
  DATA: w_i_size TYPE i,
       i_docs  TYPE TABLE OF docs,
       i_lines TYPE TABLE OF tline.
  DATA: i_otf TYPE tsfotf.
  DATA: i_bin TYPE solix_tab.
  DATA: gd_buffer TYPE string,
  it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
  it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE.
  DATA: wa_lines LIKE LINE OF i_lines,
        wa_pdf  LIKE LINE OF i_bin.
  DATA: pdf_content        TYPE solix_tab.
  DATA: lp_pdf_size        TYPE so_obj_len.
  DATA: w_xstr  TYPE xstring,
        w_len   TYPE i.
  TRY.
SF_EXAMPLE_01
      CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
            EXPORTING  formname           = 'SF_EXAMPLE_01'
                variant            = ' '
                direct_call        = ' '
            IMPORTING  fm_name            = lf_fm_name
            EXCEPTIONS no_form            = 1
                       no_function_module = 2
                       OTHERS             = 3.
      IF sy-subrc  EQ 0.
  error handling
      ENDIF.
      ls_control_param-getotf = 'X'.
      ls_control_param-no_dialog = 'X'.
call smartform invoice
      CALL FUNCTION lf_fm_name
           EXPORTING
                      archive_index        = toa_dara
                      archive_parameters   = arc_params
                      control_parameters   = ls_control_param
                mail_appl_obj        =
                      mail_recipient       = ls_recipient
                      mail_sender          = ls_sender
                      output_options       = ls_composer_param
                      user_settings        = space
                      customer              = i_cust
                      bookings              = i_book
                      connections           = i_conn
                      is_repeat            = repeat
           IMPORTING  job_output_info      = ls_job_info
                    document_output_info =
                    job_output_options   =
           EXCEPTIONS formatting_error     = 1
                      internal_error       = 2
                      send_error           = 3
                      user_canceled        = 4
                      OTHERS               = 5.
      IF sy-subrc = 0.
        i_otf = ls_job_info-otfdata[].
      ENDIF.
      CALL FUNCTION 'CONVERT_OTF_2_PDF'
   EXPORTING
     USE_OTF_MC_CMD               = 'X'
     ARCHIVE_INDEX                =
       IMPORTING
         bin_filesize                 =   w_i_size
        TABLES
          otf                          =  i_otf
          doctab_archive               =  i_docs
          lines                        =  i_lines
   EXCEPTIONS
     ERR_CONV_NOT_POSSIBLE        = 1
     ERR_OTF_MC_NOENDMARKER       = 2
     OTHERS                       = 3
      IF sy-subrc  Eq 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
Transfer the 132-long strings to 255-long strings
      LOOP AT i_lines INTO wa_lines.
        TRANSLATE wa_lines USING '~'.
        CONCATENATE gd_buffer wa_lines INTO gd_buffer.
      ENDLOOP.
      TRANSLATE gd_buffer USING '~'.
      DO.
        it_mess_att = gd_buffer.
        APPEND it_mess_att.
        SHIFT gd_buffer LEFT BY 255 PLACES.
        IF gd_buffer IS INITIAL.
          EXIT.
        ENDIF.
      ENDDO.
      CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
        EXPORTING
          input_length = w_i_size
          first_line   = 0
          last_line    = 0
        IMPORTING
          buffer       = w_xstr
        TABLES
          binary_tab   = it_mess_att
        EXCEPTIONS
          failed       = 1
          OTHERS       = 2.
      IF sy-subrc  Eq 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
pdf_content = cl_document_bcs=>xstring_to_solix( ip_xstring = w_xstr ).
    -------- create persistent send request ------------------------
      send_request = cl_bcs=>create_persistent( ).
    -------- create and set document -------------------------------
    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  = '21'
                      i_subject = 'FORM TEST' ).
**add attachment to document
      CALL METHOD document->add_attachment
        EXPORTING  i_attachment_type    = 'PDF'
                   i_attachment_subject = 'MY ORDER CONFIRMATION'
                  i_attachment_size    = W_len
                   i_att_content_hex   = pdf_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(
                                        'give email address here' ).
    add recipient with its respective attributes to send request
      CALL METHOD send_request->add_recipient
        EXPORTING
          i_recipient = recipient
          i_express   = 'X'.
      recipient = cl_sapuser_bcs=>create( sy-uname ).
      CALL METHOD send_request->add_recipient
        EXPORTING
          i_recipient = recipient
          i_express   = 'X'.
    ---------- send document ---------------------------------------
      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: text-001.
      WRITE: text-002, bcs_exception->error_type.
      EXIT.
  ENDTRY.
ENDFORM.                    "main
Regards,
Rama.