Please tell me How to send excel file content to MAILBOX

Question

Hello ,
Can anybody tell me how to send  Excel  file  data to  Mailbox

Answer 1

Hi,
Check this sample code.
INITIALIZATION .
CLASS cl_abap_char_utilities DEFINITION LOAD.
gf_etb = cl_abap_char_utilities=>horizontal_tab. "For horrizontal tab
gf_cr = cl_abap_char_utilities=>cr_lf. "For enter
gf_lf = cl_abap_char_utilities=>newline. "For new line
Declaration
  DATA:    lwa_hd_change TYPE sood1,
           lt_objcont    TYPE STANDARD TABLE OF soli,
           lwa_objcont   TYPE soli,
           lt_receivers  TYPE STANDARD TABLE OF soos1,
           lwa_receivers TYPE soos1 ,
           lt_att_cont   TYPE STANDARD TABLE OF soli,
           lwa_att_cont  TYPE soli,
           lt_packing    TYPE STANDARD TABLE OF soxpl,
           lwa_packing   TYPE soxpl,
           lf_sent       TYPE sonv-flag,
           lf_size       TYPE i.
  CONSTANTS: lc_obj(11)  TYPE c VALUE 'BOMSouthco',
             lc_desc(20) TYPE c VALUE 'BOM Download',
             lc_lang(1)  TYPE c VALUE 'E',
             lc_raw(3)   TYPE c VALUE 'RAW',
             lc_net(1)   TYPE c VALUE 'U',
             lc_mail(4)  TYPE c VALUE 'MAIL',
             lc_xls(3)   TYPE c VALUE 'XLS',
             lc_ext(3)   TYPE c VALUE 'EXT'.
Passing values to the strutures used in SO_OBJECT_SEND function module
  lwa_hd_change-objla      = lc_lang.
  lwa_hd_change-objnam     = lc_obj.
  lwa_hd_change-objdes     = lc_desc.
  lwa_hd_change-objlen     = 255.
  lwa_objcont-line = text-t29.
  APPEND lwa_objcont TO lt_objcont.
  CLEAR lwa_objcont.
  lwa_receivers-recextnam  = text-t31.
  lwa_receivers-recesc     = lc_net.
  lwa_receivers-sndart     = lc_mail.
  lwa_receivers-sndex      = 'X'.
  lwa_receivers-sndpri     = 1.
  lwa_receivers-mailstatus = 'E'.
  APPEND lwa_receivers TO lt_receivers.
  CLEAR lwa_receivers.
  lwa_receivers-recextnam  = text-t30.
  lwa_receivers-recesc     = lc_net.
  lwa_receivers-sndart     = lc_mail.
  lwa_receivers-sndex      = 'X'.
  lwa_receivers-sndpri     = 1.
  lwa_receivers-mailstatus = 'E'.
  APPEND lwa_receivers TO lt_receivers.
  CLEAR lwa_receivers.
Passing values for the attachment file
  LOOP AT gt_output INTO gwa_output.
    CONCATENATE gf_lf  gwa_output-matnr  gf_etb  gwa_output-idnrk  gf_etb
                gwa_output-type   gf_etb  gwa_output-menge   gf_etb
                gwa_output-meins  gf_etb  gwa_output-comp    gf_etb
      INTO lwa_att_cont-line.
    APPEND lwa_att_cont TO lt_att_cont.
    CLEAR lwa_att_cont.
  ENDLOOP.
  CHECK lt_att_cont IS NOT INITIAL.
  DESCRIBE TABLE lt_att_cont LINES lf_size.
  lwa_packing-transf_bin = ' '.
  lwa_packing-head_start = 1.
  lwa_packing-head_num   = 0.
  lwa_packing-body_start = 1.
  lwa_packing-body_num   = lf_size.
  lwa_packing-file_ext   = lc_xls.
  lwa_packing-objlen     = lf_size * 255.
  lwa_packing-objtp      = lc_ext.
  lwa_packing-objdes     = lc_desc.
  lwa_packing-objnam     = lc_obj.
  APPEND lwa_packing TO lt_packing.
  CLEAR lwa_packing.
  CHECK gf_error IS NOT INITIAL. "Check if unix file is written
FM to send email to the intended recipients
  CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
      object_hd_change           = lwa_hd_change
      object_type                = lc_raw
    IMPORTING
      sent_to_all                = lf_sent
    TABLES
      objcont                    = lt_objcont
      receivers                  = lt_receivers
      packing_list               = lt_packing
      att_cont                   = lt_att_cont
    EXCEPTIONS
      active_user_not_exist      = 1
      communication_failure      = 2
      component_not_available    = 3
      folder_not_exist           = 4
      folder_no_authorization    = 5
      forwarder_not_exist        = 6
      note_not_exist             = 7
      object_not_exist           = 8
      object_not_sent            = 9
      object_no_authorization    = 10
      object_type_not_exist      = 11
      operation_no_authorization = 12
      owner_not_exist            = 13
      parameter_error            = 14
      substitute_not_active      = 15
      substitute_not_defined     = 16
      system_failure             = 17
      too_much_receivers         = 18
      user_not_exist             = 19
      originator_not_exist       = 20
      x_error                    = 21
      OTHERS                     = 22.
  IF sy-subrc = 0.
    MESSAGE s004 WITH text-t34.
  ENDIF.
  COMMIT WORK.
Reward if helpful.
Regards,
Ramya