Send Mail to Internal Users

A day before yesterday I got one requirement to send mail to internal users. It was my first experience for such requirement so I tried to search out the solution, after a little search I found some Function Modules for this, but my requirement was a proper application. So I stared working on it, now I have done with it and think to share with all you people.

Because I wanted to send mail to multiple user at the same time so I had to use Select Option with extension button so I used Sub Screen and for mail body text I used text editor. So I think it will be helpful especially for the beginners to understand the usage of Sub Screen and Text Editor. I did one more thing to add signature in text editor which can also be of your interest.

Download .nugg file using link bellow and install this to your system using SAPLink.
Download SAPLink .nugg

Note: After Installing to your system Please active all object included in .nugg. I have assign a T-Code ZIMAIL to this application which is also included in .nugg. you can change accordingly.

Main Screen

Main Program

REPORT zfsl_internal_mail_send.************************************************************************* LOCAL TYPEs *************************************************************************TYPES: BEGIN OF ty_line, line TYPE c LENGTH 255, END OF ty_line.************************************************************************* Declaration of Variables & Internal Tables *************************************************************************DATA: editor_container TYPE REF TO cl_gui_custom_container, ref_gui_textedit TYPE REF TO cl_gui_textedit, it_objcont LIKE STANDARD TABLE OF soli, wa_objcont LIKE soli, it_receiver LIKE STANDARD TABLE OF somlreci1, wa_receiver LIKE somlreci1, doc_data LIKE sodocchgi1, object_id LIKE sofolenti1-object_id, it_line TYPE TABLE OF ty_line, wa_line TYPE ty_line, tb_subject TYPE c LENGTH 60, name_first LIKE adrp-name_first, name_last LIKE adrp-name_last, ok_code_9001 LIKE sy-ucomm, field TYPE c LENGTH 50, line TYPE i, offset TYPE i.************************************************************************* Selection SubScreen *************************************************************************SELECTION-SCREEN: BEGIN OF SCREEN 0001 AS SUBSCREEN, BEGIN OF BLOCK a, BEGIN OF LINE, COMMENT 1(15) from MODIF ID sf.SELECT-OPTIONS sofrom FOR sy-uname NO INTERVALS NO-EXTENSION MATCHCODE OBJECT user_comp MODIF ID sf.PARAMETERS: name(30) MODIF ID sf.SELECTION-SCREEN: END OF LINE, BEGIN OF LINE, COMMENT 1(15) to .SELECT-OPTIONS: soto FOR sy-uname NO INTERVALS OBLIGATORY MATCHCODE OBJECT user_comp.SELECTION-SCREEN: END OF LINE, END OF BLOCK a, END OF SCREEN 0001.************************************************************************* INITIALIZATION *************************************************************************INITIALIZATION. IF sofrom[] IS INITIAL. sofrom-low = sy-uname. APPEND sofrom. SELECT SINGLE name_first name_last INTO (name_first , name_last) FROM v_usr_name WHERE bname = sofrom-low. IF sy-subrc = 0. CONCATENATE name_first name_last INTO name SEPARATED BY space. ENDIF. ENDIF. from = ‘From’. to = ‘To’.************************************************************************* AT SELECTION-SCREEN OUTPUT *************************************************************************AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF screen-group1 = ‘SF’. screen-input = 0. MODIFY SCREEN. ENDIF. ENDLOOP.************************************************************************* START-OF-SELECTION *************************************************************************START-OF-SELECTION. CALL SCREEN 9001.************************************************************************* PROCESS BEFORE OUTPUT **************************************************************************&———————————————————————**& Module STATUS_9001 OUTPUT*&———————————————————————** text*———————————————————————-*MODULE status_9001 OUTPUT. SET PF-STATUS ‘MAIN_PF_STATUS’ EXCLUDING ‘SAVE’. SET TITLEBAR ‘MAIN_TITLE’. IF editor_container IS INITIAL. PERFORM show_text_editor. ENDIF.ENDMODULE. ” STATUS_9001 OUTPUT*&———————————————————————**& Module CLEAR_OK_CODE_9001 OUTPUT*&———————————————————————** text*———————————————————————-*MODULE clear_ok_code_9001 OUTPUT. CLEAR: ok_code_9001.ENDMODULE. ” CLEAR_OK_CODE_9001 OUTPUT*&———————————————————————**& Module SET_CURSOR_FIELD_9001 OUTPUT*&———————————————————————** text*———————————————————————-*MODULE set_cursor_field_9001 OUTPUT. SET CURSOR FIELD field LINE line OFFSET offset.ENDMODULE. ” SET_CURSOR_FIELD_9001 OUTPUT************************************************************************* PROCESS AFTER INPUT **************************************************************************&———————————————————————**& Module EXIT_COMMAND_9001 INPUT*&———————————————————————** text*———————————————————————-*MODULE exit_command_9001 INPUT. CASE ok_code_9001. WHEN ‘BACK’ OR ‘EXIT’ OR ‘CANCEL’ . LEAVE PROGRAM. ENDCASE.ENDMODULE. ” EXIT_COMMAND_9001 INPUT*&———————————————————————**& Module GET_CURSOR_FIELD_9001 INPUT*&———————————————————————** text*———————————————————————-*MODULE get_cursor_field_9001 INPUT. GET CURSOR FIELD field LINE line OFFSET offset.ENDMODULE. ” GET_CURSOR_FIELD_9001 INPUT*&———————————————————————**& Module SAVE_DATA_9001 INPUT*&———————————————————————** text*———————————————————————-*MODULE save_data_9001 INPUT. CASE ok_code_9001. WHEN ‘SAVE’. WHEN ‘SEND’. SELECT bname AS receiver INTO CORRESPONDING FIELDS OF TABLE it_receiver FROM usr01 WHERE bname IN soto. IF sy-subrc = 0. LOOP AT it_receiver INTO wa_receiver. wa_receiver-express = ‘X’. wa_receiver-rec_type = ‘B’. MODIFY it_receiver FROM wa_receiver INDEX sy-tabix. ENDLOOP. WRITE: tb_subject TO doc_data-obj_descr. CLEAR it_line[]. CALL METHOD ref_gui_textedit->get_text_as_r3table ” Get text from Text Editor in Internal Table IMPORTING table = it_line[] EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. IF it_line[] IS NOT INITIAL. LOOP AT it_line INTO wa_line. wa_objcont-line = wa_line-line. APPEND wa_objcont TO it_objcont. ENDLOOP. CALL FUNCTION ‘SO_NEW_DOCUMENT_SEND_API1’ EXPORTING document_data = doc_data IMPORTING new_object_id = object_id TABLES object_content = it_objcont receivers = it_receiver 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. MESSAGE: ‘Mail Have Sent Successfully’ TYPE ‘S’. LEAVE TO TRANSACTION sy-tcode. ELSE. MESSAGE: ‘Error Sending Mail try again’ TYPE ‘S’. ENDIF. ELSE. MESSAGE: ‘You can”t leave mail body empty’ TYPE ‘S’. ENDIF. ELSE. MESSAGE: ‘Select the Valid To List’ TYPE ‘S’. ENDIF. WHEN OTHERS. ENDCASE.ENDMODULE. ” SAVE_DATA_9001 INPUT*&———————————————————————**& Module USER_COMMAND_9001 INPUT*&———————————————————————** text*———————————————————————-*MODULE user_command_9001 INPUT.ENDMODULE. ” USER_COMMAND_9001 INPUT*&———————————————————————**& Form TEXTEDITOR*&———————————————————————** text*———————————————————————-*FORM show_text_editor. CREATE OBJECT editor_container EXPORTING container_name = ‘TXTEDITOR’ ” Custom Control Name on Screen EXCEPTIONS cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5. CREATE OBJECT ref_gui_textedit EXPORTING parent = editor_container wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position wordwrap_position = ‘253’ wordwrap_to_linebreak_mode = cl_gui_textedit=>true. IF name IS NOT INITIAL. ” For Append Signature in Text Editor APPEND INITIAL LINE TO: it_line, it_line. wa_line-line = ‘Regards,’. APPEND wa_line TO it_line. wa_line-line = name . APPEND wa_line TO it_line. ENDIF. CALL METHOD ref_gui_textedit->set_text_as_r3table ” Populate Text Editor with Internal Table EXPORTING table = it_line EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.ENDFORM. “TEXTEDITOR

Screen 9001 in Screen Painter

Flow Logic of Screen 9001

********************************************************************* PROCESS BEFORE OUTPUT *********************************************************************PROCESS BEFORE OUTPUT. CALL SUBSCREEN ss_users INCLUDING sy-cprog ‘0001’. MODULE status_9001. MODULE clear_ok_code_9001. MODULE set_cursor_field_9001.********************************************************************* PROCESS AFTER INPUT *********************************************************************PROCESS AFTER INPUT. CALL SUBSCREEN ss_users. MODULE exit_command_9001 AT EXIT-COMMAND. MODULE get_cursor_field_9001. MODULE it_operation_9001. MODULE save_data_9001. MODULE user_command_9001.

4 Comments

You must be Logged on to comment or reply to a post.

Marçal Oliveras July 21, 2010 at 4:48 am

Why you did this instead of using transaction SBWP?

Anyway I’m agree that’s interesting for begginers.

like (0)
1. Susan Keohan July 21, 2010 at 6:59 am
  
  I agree that many people think that Workflow is for sending mail – but it does a lot more than that.
  There are instances where I have recommended using a programmatic approach to notifications, rather than implementing a workflow solution. For example, if you need to send a notification for mass data changes – why would you use workflow? If the message does not need to be real time, or provide any additional functionality – such as getting a user involved in a process, this may not be an ideal candidate for workflow.
  Now I need to go download me some .nuggs 🙂
  Sue
  
  like (0)
Rich Heilman July 21, 2010 at 11:04 am

Hey, this functionality is delivered already. See transaction SO00. Or from the top level menu in SAPgui, choose “System”, then “Short Message”. Done.

No need for a custom program, but good practice for you, yes? 🙂

Regards,
Rich Heilman

like (0)
Sandra Rossi July 22, 2010 at 5:58 am

in the forum, each time I see someone has a weird issue with SO_*, I advise him/her to stop using these FMs, they are really error prone. SAP recommends to use CL_BCS now (since 6.10). There’s a SDN wiki for sending mails which provide many example programs (look only at the ones using CL_BCS).

like (0)