Sending email using CL_BCS in the background with subject line 255 chars

Question

Hello Gurus,
       Following is the sample code,. When I run in the foreground, I am getting the mail, with proper subject line. However my output medium type is '5-'External Send#. When I am trying to run this in my output program, it is resulting in dump.
       When I keep 'COMMIT WORK',  I am getting a dump saying tText * Invalid COMMIT WORK in an update function module.*
       When I remove this 'COMMIT WORK', I am still getting the error, saying Screen output without connection to user. (The current ABAP program "SAPLSTXC" statements could not be executed.)
      Hoping for a quick solution.
Regards,
Shaheen
REPORT  Z_CL_BCS_TEST.
* Trying classes
DATA: send_request        TYPE REF TO cl_bcs.
DATA: li_main_text        TYPE bcsy_text,
      lw_main_text        LIKE LINE OF li_main_text.
DATA: document            TYPE REF TO cl_document_bcs.
DATA: recipient           TYPE REF TO if_recipient_bcs.
DATA: sender              TYPE REF TO if_sender_bcs.
DATA: l_mtitle            LIKE sodocchgi1-obj_descr.
DATA: sent_to_all         TYPE os_boolean.
DATA: bcs_exception       TYPE REF TO cx_bcs.
DATA: lv_sub TYPE string.
TRY.
*     -------- create persistent send request ------------------------
    send_request = cl_bcs=>create_persistent( ).
*     -------- create and set document---------------
*     Email title
    l_mtitle = 'attachment'.
    lv_sub = 'Email Title : I want to try for a subject which is more than 50 chars. will this work?'.
    CALL METHOD send_request->set_message_subject
      EXPORTING
        ip_subject = lv_sub.
*     Fill the body of the mail
    REFRESH li_main_text.
    lw_main_text = 'This is test email'.
    APPEND lw_main_text TO li_main_text.
    CLEAR: lw_main_text.
    lw_main_text = 'Regards'.
    APPEND lw_main_text TO li_main_text.
    CLEAR: lw_main_text.
*     Create Email Object
    document = cl_document_bcs=>create_document(
      i_type    = 'RAW'
      i_text    = li_main_text
      i_subject = l_mtitle ).
*     Add document object to send request
    send_request->set_document( document ).
*     add recipient (e-mail address)
    recipient =
        cl_cam_address_bcs=>create_internet_address(
              'Shaheen.Taori at solvay.com' ).           " changed the email id purposefully
*     Add recipient object to send request
    CALL METHOD send_request->add_recipient
      EXPORTING
        i_recipient = recipient
        i_express   = 'X'.
*     ---------- send document ---------------------------------------
*    sent_to_all = send_request->SEND_WITHOUT_DIALOG( I_WITH_ERROR_SCREEN = ' ').
    CALL METHOD send_request->SEND_WITHOUT_DIALOG.
*      EXPORTING
*        e_sent_to_all = 'X'.
*    IF sent_to_all IS INITIAL.
*      MESSAGE 'Erorr while sending email ' TYPE 'E'.
*      EXIT.
*    ENDIF.
      COMMIT WORK.
*   exception handling
  CATCH cx_bcs INTO bcs_exception.
    MESSAGE i865(so) WITH bcs_exception->error_type.
ENDTRY.

Answer 1

Try using method SEND instead of SEND_WITHOUT_DIALOG.
Also try calling method SET_SEND_IMMEDIATELY before calling method SEND.
Use below code lines,
send_request->set_send_immediately( i_send_immediately = 'X' ).
sent_to_all = send_request->send( i_with_error_screen = 'X' ).   " Instead of CALL METHOD send_request->SEND_WITHOUT_DIALOG.