API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 9th, 2018
128
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 2.79 KB | None | 0 0
raw download clone embed print report
  1.     CONSTANTS:
  2.       gc_subject TYPE so_obj_des VALUE 'from signtov.com with love'.
  3.     DATA:
  4.       gv_mlrec         TYPE so_obj_nam,
  5.       gv_sent_to_all   TYPE os_boolean,
  6.       lv_email         TYPE adr6-smtp_addr,
  7.       gv_subject       TYPE so_obj_des,
  8.       gv_text          TYPE bcsy_text,
  9.       gr_send_request  TYPE REF TO cl_bcs,
  10.       gr_bcs_exception TYPE REF TO cx_bcs,
  11.       gr_recipient     TYPE REF TO if_recipient_bcs,
  12.       gr_sender        TYPE REF TO cl_sapuser_bcs,
  13.       gr_document      TYPE REF TO cl_document_bcs,
  14.       lv_message_body TYPE string,
  15.       text_lines  TYPE STANDARD TABLE OF tline,
  16.       message_body          TYPE bcsy_text.
  17.     FIELD-SYMBOLS: <fs_text_lines>   TYPE tline.
  18.  
  19.     zcl_utils_for_workflow=>get_text_from_task_by_wi_id(
  20.      EXPORTING
  21.        wi_id = wi_id
  22.      IMPORTING
  23.        e_texts = text_lines ).
  24.  
  25.     CLEAR:  lv_message_body.
  26.  
  27.     LOOP AT text_lines ASSIGNING <fs_text_lines>.
  28.  
  29.       IF <fs_text_lines>-tdformat EQ '*'.
  30.         CONCATENATE  lv_message_body  <fs_text_lines>-tdline  INTO lv_message_body SEPARATED BY space.
  31.       ELSE.
  32.         CONCATENATE  lv_message_body  <fs_text_lines>-tdline  INTO lv_message_body.
  33.       ENDIF.
  34.  
  35.  
  36.     ENDLOOP.
  37.  
  38.     CONCATENATE '<html><body>'
  39.        lv_message_body  INTO lv_message_body.
  40.  
  41.     CONCATENATE  lv_message_body  '</body></html>'  INTO lv_message_body.
  42.  
  43.  
  44.     CALL FUNCTION 'CONVERT_STRING_TO_TABLE'
  45.       EXPORTING
  46.         i_string         = lv_message_body
  47.         i_tabline_length = 255
  48.       TABLES
  49.         et_table         = message_body.
  50.  
  51.  
  52. TRY.
  53.       "Create send request
  54.       gr_send_request = cl_bcs=>create_persistent( ).
  55.  
  56.  
  57.       "Email FROM...
  58.       gr_sender = cl_sapuser_bcs=>create( sy-uname ).
  59.       "Add sender to send request
  60.       CALL METHOD gr_send_request->set_sender
  61.         EXPORTING
  62.           i_sender = gr_sender.
  63.  
  64.  
  65.       "Email TO...
  66.       lv_email = 'ignatovsn@gmail.com'.
  67.       gr_recipient = cl_cam_address_bcs=>create_internet_address( lv_email ).
  68.       "Add recipient to send request
  69.       CALL METHOD gr_send_request->add_recipient
  70.         EXPORTING
  71.           i_recipient = gr_recipient
  72.           i_express   = 'X'.
  73.  
  74.  
  75.       "Email BODY
  76.       gr_document = cl_document_bcs=>create_document(
  77.                       i_type    = 'HTM'
  78.                       i_text    = message_body
  79.                       i_length  = '12'
  80.                       i_subject = gc_subject ).
  81.       "Add document to send request
  82.       CALL METHOD gr_send_request->set_document( gr_document ).
  83.  
  84.  
  85.       "Send email
  86.       CALL METHOD gr_send_request->send(
  87.         EXPORTING
  88.           i_with_error_screen = 'X'
  89.         RECEIVING
  90.           result              = gv_sent_to_all ).
  91.  
  92.       "Commit to send email
  93.       COMMIT WORK.
  94.  
  95. html_message = message_body.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!