*----------------------------------------------------------------------*
*   INCLUDE ZXUSRU01                                                   *
*----------------------------------------------------------------------*
TABLES: ZZSYSUSR.
DATA: BEGIN OF USRLIST OCCURS 0.
        INCLUDE STRUCTURE TEMAIL.
DATA: END OF USRLIST.
DATA: SUBRC LIKE SY-SUBRC.

* Initiate event 'express mail' if he has messages
SELECT * FROM ZZSYSUSR WHERE BNAME EQ SY-UNAME AND
                             ZZENDDA GT SY-DATUM OR
                             ( BNAME EQ SY-UNAME AND
                               ZZENDDA EQ SY-DATUM AND
                               ZZENDZE GE SY-UZEIT ) .
ENDSELECT.
CHECK SY-DBCNT NE 0.
USRLIST-MANDANT = SY-MANDT.
USRLIST-USER = SY-UNAME.
APPEND USRLIST.

CALL FUNCTION 'TH_EXPRESS_MAIL'
     IMPORTING
          SUBRC         = SUBRC
     TABLES
          USRLIST       = USRLIST
     EXCEPTIONS
          BAD_PARAMETER = 1
          SEND_ERROR    = 2
          OTHERS        = 3.