How to generate a mail on click of save button on Module pool program.

Question

Hi geeks,
I am developing a Module pool having table control..The table control is supposedly having  10 columns. The user enters values in first 5 colmns and when he saves , a mail should be  generated to his hierarchy indicatiing it .How could this be achieved?? . The mail should just have  details like the i/p entered in screen . If possible explain through  a code snippet..
Thanks in advance
Regards,
Navin

Answer 1

when you press save button, get the sy-ucomm and write the below code. Capture the entries from
table control and send the mail.
  DATA : it_objpack   TYPE STANDARD TABLE OF sopcklsti1 ,
         it_objtxt    TYPE STANDARD TABLE OF solisti1 ,
         it_objbin    TYPE STANDARD TABLE OF solisti1 ,
         it_reclist   TYPE STANDARD TABLE OF somlreci1 ,
         wa_doc_chng  TYPE sodocchgi1,
         wa_objhead   TYPE soli_tab,
         l_attachment TYPE i,
         l_testo      TYPE i.
  DATA:   wa_objpack TYPE sopcklsti1,
          wa_objtxt TYPE solisti1 ,
          wa_objbin TYPE  solisti1 ,
          wa_reclist TYPE  somlreci1 .
  CLEAR:  wa_reclist,
          wa_objhead,
          wa_objtxt,  it_objtxt[],
          wa_objbin,  it_objbin[],
          wa_objpack, it_objpack[].
  CLEAR wa_objbin.
  REFRESH it_objbin.
  it_objbin[] = gt_mess_att[].
  DESCRIBE TABLE it_objbin LINES l_attachment.
  LOOP AT it_message INTO wa_message.
    wa_objtxt = wa_message. APPEND wa_objtxt TO it_objtxt.
  ENDLOOP.
  DESCRIBE TABLE it_objtxt LINES l_testo.
  wa_doc_chng-obj_name = 'Test'.
  wa_doc_chng-expiry_dat = sy-datum + 10.
  CONCATENATE 'Send '
                INTO wa_doc_chng-obj_descr .
  wa_doc_chng-sensitivty = 'P'.
  wa_doc_chng-obj_prio = '1'.
  wa_doc_chng-doc_size = l_testo * 255.
  CLEAR wa_objpack-transf_bin.
  wa_objpack-head_start = 1.
  wa_objpack-head_num   = 0.
  wa_objpack-body_start = 1.
  wa_objpack-body_num   = l_testo.
  wa_objpack-doc_type   = 'RAW'.
  APPEND wa_objpack TO it_objpack.
  CLEAR wa_reclist.
  wa_reclist-copy = 'X'.
  IF wa_email IS NOT INITIAL.
    wa_reclist-receiver = wa_email-value1.
    wa_reclist-express  = 'X'.
    wa_reclist-rec_type = 'U'.
    wa_reclist-notif_del = 'X'.
    wa_reclist-notif_ndel = 'X'.
    APPEND wa_reclist TO it_reclist.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = wa_doc_chng
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_objpack
        object_header              = wa_objhead
        contents_bin               = it_objbin
        contents_txt               = it_objtxt
        receivers                  = it_reclist
      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.
    IF sy-subrc <> 0.
      WRITE 'mail fail'.
    ENDIF.
  ENDIF.