REPORT ZSBEN001.
TABLES: ZZSYSUSR, ZZSYSMES, USR01.
SELECT-OPTIONS: BNAME FOR ZZSYSUSR-BNAME.
PARAMETERS: MESS_NO(4), ENDDA LIKE SY-DATUM, ENDZE LIKE SY-UZEIT.
DATA: BEGIN OF USRLIST OCCURS 0.
        INCLUDE STRUCTURE TEMAIL.
DATA: END OF USRLIST.
DATA: SUBRC LIKE SY-SUBRC.

SELECT SINGLE * FROM ZZSYSMES WHERE ZZINDEX EQ MESS_NO.
IF SY-SUBRC NE 0.
  WRITE: / ' Table ZZSYSMES does not contain this message number'.
  EXIT.
ENDIF.
IF ENDDA LT SY-DATUM AND ENDZE LE SY-UZEIT.
  WRITE: / ' False Datum or time'.
  EXIT.
ENDIF.
SELECT * FROM USR01 WHERE BNAME IN BNAME.
  ZZSYSUSR-BNAME = USR01-BNAME.
  ZZSYSUSR-ZZINDEX = MESS_NO.
  ZZSYSUSR-ZZENDDA = ENDDA.
  ZZSYSUSR-ZZENDZE = ENDZE.
  MODIFY ZZSYSUSR.
  USRLIST-MANDANT = SY-MANDT.
  USRLIST-USER = ZZSYSUSR-BNAME.
  APPEND USRLIST.
ENDSELECT.

CALL FUNCTION 'TH_EXPRESS_MAIL'
     IMPORTING
          SUBRC         = SUBRC
     TABLES
          USRLIST       = USRLIST
     EXCEPTIONS
          BAD_PARAMETER = 1
          SEND_ERROR    = 2
          OTHERS        = 3.
WRITE: / 'Error No:', SUBRC.