All About Programming

  REPORT  ztest_email . *Prepare Mail Object DATA :   lo_send_request  TYPE  REF  TO  cl_bcs  VALUE  IS  INITIAL . CLASS  cl_bcs  DEFINITION  LOAD . DATA :  lo_document  TYPE  REF  TO  cl_document_bcs  VALUE  IS  INITIAL . DATA  :  i_text  TYPE  bcsy_text .  DATA  :  w_text  LIKE  LINE  OF  i_text .  DATA :  lo_sender  TYPE  REF  TO  if_sender_bcs  VALUE  IS  INITIAL .  DATA :  lo_recipient  TYPE  REF  TO  if_recipient_bcs  VALUE  IS  INITIAL .  PARAMETERS  :  p_email  TYPE  adr6 - smtp_addr .  PARAMETERS :  p_sub  TYPE  char50 .  PARAMETERS  :  p_send  AS  CHECKBOX .  START-OF-SELECTION .   lo_send_request  =  cl_bcs => create_persistent (  ) .   w_text - line  =  'Testing Email' .    APPEND  w_text  TO  i_text .    CLEAR  w_text .   w_text - line  =  'Testing email 2' .    APPEND  w_text  TO  i_text .    CLEAR  w_text .   lo_document  =  cl_document_bcs => create_document (    i_type  =  'TXT'    i_text  =   i_text    i_subject  =  p_sub  ) .    lo_send_

  Method AFTER_WI_CREATED    METHOD  AFTER_WI_CREATED .      DATA :  WORKITEM_ID    TYPE  SWR_STRUCT - WORKITEMID ,           LT_CONTAINER   TYPE  TABLE  OF  SWR_CONT ,           LS_CONTAINER   TYPE  SWR_CONT ,           ZBANFN         TYPE  BANFN ,           LSEBAN         TYPE  EBAN ,           LCL_V_WI_ID    TYPE  SWW_WIID ,   "Work Item ID           WF_ID          TYPE  SWW_WIID ,           LV_WID_TEXT    TYPE  CHAR12 ,           WF_ID_TEXT     TYPE  CHAR50 ,           SEND_REQUEST   TYPE  REF  TO  CL_BCS ,            TEXT           TYPE  BCSY_TEXT ,           BODY_TEXT      TYPE  SO_TEXT255 ,           DOCUMENT       TYPE  REF  TO  CL_DOCUMENT_BCS ,           SENDER         TYPE  REF  TO  CL_SAPUSER_BCS ,           RECIPIENT      TYPE  REF  TO  IF_RECIPIENT_BCS ,           BCS_EXCEPTION  TYPE  REF  TO  CX_BCS ,           SENT_TO_ALL    TYPE  OS_BOOLEAN ,           ZRELCODE       TYPE  CHAR2 .      CALL  METHOD  WI_CONTEXT -> GET_WORKITEM_ID       RECEIVING         RE_WORKI