SAP发送邮件(五)

DATA: list LIKE uinfo OCCURS 0 WITH HEADER LINE.
DATA: mess LIKE sm04dic-popupmsg.
PARAMETERS: p_mandt LIKE sy-mandt DEFAULT sy-mandt,
p_user LIKE sy-uname,
p_mess1(40),
p_mess2(40),
p_mess3(25),
p_sender LIKE sy-uname DEFAULT sy-uname,
p_time TYPE i DEFAULT '1'.

AT SELECTION-SCREEN.
PERFORM check.

START-OF-SELECTION.
CONCATENATE p_sender 'says:' p_mess1 p_mess2 p_mess3 INTO mess.
CONDENSE mess.
DO p_time TIMES.
CALL FUNCTION 'TH_POPUP'
EXPORTING
client = p_mandt
user = p_user
MESSAGE = mess.
ENDDO.
*---------------------------------------------------------------------
* FORM check
*---------------------------------------------------------------------
FORM check.
CALL FUNCTION 'TH_USER_LIST'
TABLES
list = list.
READ TABLE list WITH KEY bname = p_user mandt = p_mandt.
IF sy-subrc <> 0.
READ TABLE list WITH KEY bname = p_user.
MESSAGE e001 WITH 'the user not on this client, but in'
list-mandt.
ENDIF.
ENDFORM. " check