Send Mail to Internal Users

[faisal_altaf2]

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.