2008 Aug 06 7:16 AM
Hi Experts:
Who has used ' TH_EXPRESS_MAIL' before? could you please give me a hint aobut it?
Frank
2008 Aug 06 7:17 AM
Hi,
This may help you.
----
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.
Hi Experts:
Who has used ' TH_EXPRESS_MAIL' before? could you please give me a hint aobut it?
Frank
2008 Aug 06 7:17 AM
Hi,
This may help you.
----
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.
2008 Aug 06 8:00 AM
Hi mate:
I also search it 'TH_EXPRESS_MAIL' via google, but it doesn't say a lot for the function module, what result it may bring?