Submit Report as an attachement Excel via mail

Question

Hi,
I want to send an email with the result of report O4B1 as attachment Excel with columns separated in Excel.
Best regards.

Answer 1

REPORT  YJAJUR_EMAILOPTIONS                     .
tables: kna1.
data: begin of it_kna1 occurs 0," with header line,
      kunnr like kna1-kunnr,
      land1 like kna1-land1,
      name1 like kna1-name1,
      end of it_kna1.
data: w_sender like somlreci1-receiver.
CONSTANTS:
con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.
data: it_mess_att like solisti1 occurs 0 with header line,
        gd_attachment_desc type sopcklsti1-obj_descr.
data: gd_subject   like sodocchgi1-obj_descr,
      it_mess_bod like solisti1 occurs 0 with header line,
      gd_sender_type     like soextreci1-adr_typ,
       gd_attachment_name type so_obj_des.
select-options: p_email for w_sender no intervals.
PARAMETER mailid TYPE adr6-smtp_addr NO-DISPLAY.
data : it_kna2 type kna1 occurs 0 with header line.
  select kunnr
         land1
         name1
         from kna1 into table it_kna1 .
   select * from kna1 into table it_kna2.
   concatenate 'EMSIL OPTIONS DONE BY sANTOSH.s.jAJU' 'MODEL WISE upto' Into gd_attachment_desc separated by space.
concatenate  'Custmer' 'custmer name' 'custmer land1'      con_tab into
it_mess_att separaTED BY con_tab.
CONCATENATE con_cret it_mess_att INTO it_mess_att.
   APPEND it_mess_att.
   CLEAR it_mess_att.
*loop at p_email.
*endloop.
data: i1 type string.
perform email.
loop at p_email.
i1 = i1 + 1.
concatenate 'email' ':' i1 space p_email-low into it_mess_bod.
it_mess_bod = p_email-low..
APPEND it_mess_bod.
clear it_mess_bod.
perform send_mail.
endloop.
perform display_data..
*&      Form  email
      text
-->  p1        text
<--  p2        text
FORM email .
loop at it_kna2.
      concatenate con_cret  it_kna2-kunnr con_tab
                it_kna2-name1 con_tab it_kna2-land1 into it_mess_att.
        APPEND it_mess_att.
   CLEAR it_mess_att.
endloop.
ENDFORM.                    " email
*&      Form  send_mail
      text
-->  p1        text
<--  p2        text
FORM send_mail .
DATA: send_request  TYPE REF TO cl_bcs,
      document      TYPE REF TO cl_document_bcs,
      recipient     TYPE REF TO cl_cam_address_bcs,
      bcs_exception TYPE REF TO cx_bcs,
      sent_to_all   TYPE os_boolean,
      lt_tab        TYPE TABLE OF makt,
      lt_fields     TYPE TABLE OF w3fields,
      lt_html       TYPE TABLE OF w3html.
data: ld_error    type sy-subrc,
        ld_reciever type sy-subrc,
        ld_mtitle like sodocchgi1-obj_descr,
        ld_email like  somlreci1-receiver,
        ld_format type  so_obj_tp ,
        ld_attdescription type  sopcklsti1-obj_descr,
        ld_attfilename type  so_obj_des ,
        ld_sender_address like  soextreci1-receiver,
        ld_sender_address_type like  soextreci1-adr_typ,
        ld_receiver like  sy-subrc.
  data:   t_packing_list like sopcklsti1 occurs 0 with header line,
          t_contents like solisti1 occurs 0 with header line,
          t_receivers like somlreci1 occurs 0 with header line,
          t_attachment like solisti1 occurs 0 with header line,
          t_object_header like solisti1 occurs 0 with header line,
          w_cnt type i,
          w_sent_all(1) type c,
          w_doc_data like sodocchgi1.
MOVE P_EMAIL TO MAILID.
SELECT * FROM makt UP TO 10 ROWS INTO TABLE lt_tab WHERE spras = 'E'.
CALL FUNCTION 'WWW_ITAB_TO_HTML'
  TABLES
    html   = lt_html[]
    fields = lt_fields
    itable = lt_tab.
TRY.
    send_request = cl_bcs=>create_persistent( ).
    document = cl_document_bcs=>create_document(  i_type    = 'HTM'
                                                  i_text    = lt_html
                                                  i_subject = 'Table' ).
    send_request->set_document( document ).
    recipient = cl_cam_address_bcs=>create_internet_address( MAILID ).
    send_request->add_recipient( EXPORTING i_recipient = recipient
                                           i_express   = 'X' ).
    send_request->set_send_immediately( 'X' ).
    send_request->send( EXPORTING i_with_error_screen = 'X'
                        RECEIVING result              = sent_to_all ).
    COMMIT WORK.
  CATCH cx_bcs INTO bcs_exception.
    EXIT.
ENDTRY.
  ld_email   = p_email-low.
  ld_mtitle = gd_attachment_desc.
  ld_format              = 'XLS'.
  ld_attdescription      = gd_attachment_desc.
  concatenate gd_attachment_desc '.XLS' into ld_attfilename.
ld_attfilename         = p_filename.
  ld_sender_address      = w_sender.
ld_sender_address_type = 'INT'.
Fill the document data.
  w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name  = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle .
  w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  clear w_doc_data.
  read table it_mess_att index 1.
  w_doc_data-doc_size =  ( w_cnt - 1 ) * 255 + strlen( it_mess_att ).
  w_doc_data-obj_langu  = sy-langu.
  w_doc_data-obj_name   = 'SAPRPT'.
  w_doc_data-obj_descr  = gd_attachment_desc.
  w_doc_data-sensitivty = 'F'.
  clear t_attachment.
  refresh t_attachment.
t_attachment[] = it_attach[].
Describe the body of the message
  clear t_packing_list.
  refresh t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  describe table it_mess_bod lines t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  append t_packing_list.
Create attachment notification
  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num   = 1.
  t_packing_list-body_start = 1.
  describe table it_mess_att lines t_packing_list-body_num.
  t_packing_list-doc_type   =  ld_format.
  t_packing_list-obj_descr  =  ld_attdescription.
  t_packing_list-obj_name   =  ld_attfilename.
  t_packing_list-doc_size   =  t_packing_list-body_num * 255.
  append t_packing_list.
Add the recipients email address
  clear t_receivers.
  refresh t_receivers.
  t_receivers-receiver = ld_email.
  t_receivers-rec_type = 'U'.
  t_receivers-com_type = 'INT'.
  t_receivers-notif_del = 'X'.
  t_receivers-notif_ndel = 'X'.
  append t_receivers.
  call function 'SO_DOCUMENT_SEND_API1'
    exporting
      document_data              = w_doc_data
      put_in_outbox              = 'X'
      sender_address             = ld_sender_address
      sender_address_type        = ld_sender_address_type
      commit_work                = 'X'
    importing
      sent_to_all                = w_sent_all
    tables
      packing_list               = t_packing_list
      contents_bin               = it_mess_att
      contents_txt               = it_mess_bod
      receivers                  = t_receivers
    exceptions
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      others                     = 8.
Populate zerror return code
  ld_error = sy-subrc.
Populate zreceiver return code
  loop at t_receivers.
    ld_receiver = t_receivers-retrn_code.
  endloop.
  wait up to 5 seconds.
  submit rsconn01 with mode   = 'INT'
                  with output = 'X'
                  and return.
ENDFORM.                    " send_mail
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
FORM display_data .
loop at it_kna2.
     write:/ it_kna2-kunnr,it_kna2-land1,it_kna2-name1.
endloop.
ENDFORM.                    " display_data
ref this code i guess this will works