sap 发送mesage_SAP系统中发送公告的几种办法

刚刚在闪存里看到朋友在闪存里提到：如何在SAP系统发送公告的T-CODE,觉得今后可能会用到，所以顺便在网上搜索了一下相关资料。由于时间关系，太晚了，得休息了，在此我就不再一个个抠图了，直接借用一下别人的文章，将此方法记录了下来，希望今后有用得到的地方……

1、SM02创建消息，并设定有效期。当用户刷新窗口或打开窗口时会显示。

这个消息对client中的所有用户有效

2、So00中创建“到期邮件”

So00中创建一个普通邮件，在下面选择收件人，收件人后面有三个可选项，选中第一个(闪电标志)：到期邮件

邮件发出后，当用户刷新窗口或打开窗口时会显示。

3、用ABAP程序创建系统提示：这个提示的效果像是SAP系统出错时的提示，用户体验可能不够好，代码如下：

*&---------------------------------------------------------------------*

*& Report  YSENDMSG                                                    *

*&---------------------------------------------------------------------*

REPORT  ysendmsg  MESSAGE-ID zsd.

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

太晚了，以上方法还没来得及试运行，所以大家就自便吧，我得赶紧去睡觉了，不然明天起不来喽！88