Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Function Module

Former Member
0 Likes
660

Is there any FM that sends messgaes to distribution List of the Users(not to Individual Receipients) ..

Thanks

Vicky

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
605

You can use the FM <b>'SO_NEW_DOCUMENT_ATT_SEND_API1'</b>.

Check the below code, it will send mail to the distribution list.

DATA: lws_docdata LIKE sodocchgi1,

li_objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,

li_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,

li_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,

li_objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,

li_objhex LIKE solix OCCURS 10 WITH HEADER LINE,

li_reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.

DATA: lws_tab_lines TYPE i,

lws_doc_size TYPE i,

lws_att_type LIKE soodk-objtp.

CLEAR: lws_docdata, li_objpack, li_objhead, li_objtxt, li_objbin,

li_objhex, li_reclist, lws_tab_lines, lws_doc_size, lws_att_type.

REFRESH: li_objpack, li_objhead, li_objtxt, li_objbin, li_objhex,

li_reclist.

lws_docdata-obj_name = text-019. "EUC

CONCATENATE co_01 text-018 co_10 text-018 ws_conf_year

INTO ws_conf_date.

CONCATENATE text-006 ws_conf_date INTO lws_docdata-obj_descr

SEPARATED BY space.

CONCATENATE text-007 ws_conf_date text-008 INTO li_objtxt

SEPARATED BY space.

APPEND li_objtxt.

CONCATENATE text-009 text-010 ws_conf_date INTO li_objtxt

SEPARATED BY space.

APPEND li_objtxt.

DESCRIBE TABLE li_objtxt LINES lws_tab_lines.

READ TABLE li_objtxt INDEX lws_tab_lines.

lws_docdata-doc_size = ( lws_tab_lines - 1 ) * 255 +

STRLEN( li_objtxt ).

CLEAR li_objpack-transf_bin.

li_objpack-head_start = 1.

li_objpack-head_num = 0.

li_objpack-body_start = 1.

li_objpack-body_num = lws_tab_lines.

li_objpack-doc_type = text-020. "RAW

APPEND li_objpack.

li_reclist-receiver = text-014. "SGD_BUS_ANLT

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

li_reclist-receiver = text-013. "SGD_SAL_MNGR

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

li_reclist-receiver = text-012. "SGD_SAL_SUPT

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

  • li_reclist-receiver = sy-uname.

  • li_reclist-rec_type = text-022. "B

  • APPEND li_reclist.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = lws_docdata

put_in_outbox = c_x

commit_work = c_x

TABLES

packing_list = li_objpack

object_header = li_objhead

contents_bin = li_objbin

contents_txt = li_objtxt

receivers = li_reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8.

IF sy-subrc <> 0.

ENDIF.

Regards,

Prakash.

5 REPLIES 5
Read only

Former Member
0 Likes
605

hi vicky

u can tru FM-- MESSAGE_SEND_AS_MAIL.

REGARDS

jai

Read only

Former Member
0 Likes
605

hi vicky

u can tru FM-- MESSAGE_SEND_AS_MAIL.

this has a table 'RECEIVERS' for users.

REGARDS

jai

Read only

Former Member
0 Likes
605
Read only

Former Member
0 Likes
606

You can use the FM <b>'SO_NEW_DOCUMENT_ATT_SEND_API1'</b>.

Check the below code, it will send mail to the distribution list.

DATA: lws_docdata LIKE sodocchgi1,

li_objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,

li_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,

li_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,

li_objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,

li_objhex LIKE solix OCCURS 10 WITH HEADER LINE,

li_reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.

DATA: lws_tab_lines TYPE i,

lws_doc_size TYPE i,

lws_att_type LIKE soodk-objtp.

CLEAR: lws_docdata, li_objpack, li_objhead, li_objtxt, li_objbin,

li_objhex, li_reclist, lws_tab_lines, lws_doc_size, lws_att_type.

REFRESH: li_objpack, li_objhead, li_objtxt, li_objbin, li_objhex,

li_reclist.

lws_docdata-obj_name = text-019. "EUC

CONCATENATE co_01 text-018 co_10 text-018 ws_conf_year

INTO ws_conf_date.

CONCATENATE text-006 ws_conf_date INTO lws_docdata-obj_descr

SEPARATED BY space.

CONCATENATE text-007 ws_conf_date text-008 INTO li_objtxt

SEPARATED BY space.

APPEND li_objtxt.

CONCATENATE text-009 text-010 ws_conf_date INTO li_objtxt

SEPARATED BY space.

APPEND li_objtxt.

DESCRIBE TABLE li_objtxt LINES lws_tab_lines.

READ TABLE li_objtxt INDEX lws_tab_lines.

lws_docdata-doc_size = ( lws_tab_lines - 1 ) * 255 +

STRLEN( li_objtxt ).

CLEAR li_objpack-transf_bin.

li_objpack-head_start = 1.

li_objpack-head_num = 0.

li_objpack-body_start = 1.

li_objpack-body_num = lws_tab_lines.

li_objpack-doc_type = text-020. "RAW

APPEND li_objpack.

li_reclist-receiver = text-014. "SGD_BUS_ANLT

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

li_reclist-receiver = text-013. "SGD_SAL_MNGR

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

li_reclist-receiver = text-012. "SGD_SAL_SUPT

li_reclist-rec_type = text-021. "C

APPEND li_reclist.

  • li_reclist-receiver = sy-uname.

  • li_reclist-rec_type = text-022. "B

  • APPEND li_reclist.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = lws_docdata

put_in_outbox = c_x

commit_work = c_x

TABLES

packing_list = li_objpack

object_header = li_objhead

contents_bin = li_objbin

contents_txt = li_objtxt

receivers = li_reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8.

IF sy-subrc <> 0.

ENDIF.

Regards,

Prakash.

Read only

Former Member
0 Likes
605

Hi Vicky,

You can use the Function module SM02_ADD_MESSAGE and send messages to the users logged on to a particular Application server. This is the way of broadcasting the message.

Hope this helps.