Monitoring the email send status (SOST) through program

Question

Hi All,
I have send the smartform output to email addresses as attachment. But I am not able to monitor the status of those emails whether the mail address is correct or not. or whether the email have gone or not.
How to check that?
Is there any way so that I can access the data of SOST transaction
Thanks in advance.
Rgds,
Madhuri

Answer 1

Hi Madhuri,
Please check the code below:
*----- List of Users
  DATA: lt_user TYPE STANDARD TABLE OF str_agrs,
        lt_user_wa LIKE LINE OF lt_user.
*----- For object data
  DATA: lt_obj_data    TYPE STANDARD TABLE OF sodocchgi1,
        lt_obj_data_wa LIKE LINE OF           lt_obj_data.
*----- For receiver
  DATA: lt_rec TYPE STANDARD TABLE OF somlreci1,
        lt_wa  LIKE LINE OF           lt_rec.
*----- For the text
  DATA:  lt_text_itab TYPE TABLE OF solisti1,
         lt_text_wa   LIKE LINE OF lt_text_itab.
*----- Data Declaration for Email Address Get
  DATA: lv_email TYPE string,
        lv_subrc TYPE sy-subrc,
        lt_error TYPE STANDARD TABLE OF rpbenerr.
*---- Get the users list
CALL FUNCTION 'ESS_USERS_OF_ROLE_GET'
    EXPORTING
      role       = 'SAP_ALL'  "{color:green}Role can be anything depending on your requirement{color}
    TABLES
      role_users = lt_user.
*----- Pack data inside the table
  READ TABLE lt_user INTO lt_user_wa INDEX sy-tabix.
*----- Get the address using User ID
  CALL FUNCTION 'HR_FBN_GET_USER_EMAIL_ADDRESS'
    EXPORTING
      user_id       = lt_user_wa-uname
      reaction      = 'S'
    IMPORTING
      email_address = lv_email
      subrc         = lv_subrc
    TABLES
      error_table   = lt_error.
*------ Receiver Details
  lt_wa-receiver = lv_email.
  lt_wa-rec_type = 'U'.
  lt_wa-com_type = 'SOTR'.
  APPEND lt_wa TO lt_rec.
  CLEAR  lt_wa.
*------ Call method to send the mail
  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = lt_obj_data_wa
      document_type              = 'RAW'
      commit_work                = 'X'
    TABLES
      object_content             = lt_text_itab
      receivers                  = lt_rec
    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.
    <log>
ENDIF.
Try this,
Regards,
-Syed.
Edited by: wahid hussain syed on May 14, 2009 8:55 AM