Hi Guys,
I've created code that will send an e-mail to an external user who will reply to a different sender. I've tested this code in a 4.7 system and it works perfectly, but when I moved it to an ECC system I get this short dump: UNCAUGHT_EXCEPTION - CX_OS_OBJECT_NOT_FOUND.
I've added the code below. Does anyone have any suggestions?
PARAMETERS: P_MAIL TYPE AD_SMTPADR DEFAULT '[email protected]'.
LW_HTML-LINE = 'This is Line 1'.
APPEND LW_HTML TO IT_HTML.
CLEAR LW_HTML.
LW_HTML-LINE = 'This is Line 2'.
APPEND LW_HTML TO IT_HTML.
CLEAR LW_HTML.
**---create persistent send request
OBJ_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
*---Email Subject
LV_SUBJECT = 'TESTMAIL'. "text-016'.
*---Create Document
LV_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
I_TYPE = 'HTM' "'RAW'
I_TEXT = IT_HTML
I_SUBJECT = LV_SUBJECT ).
**---Add document to send request
CALL METHOD obj_send_request->set_document( lv_document ).
*---Set sender
LV_SENDER_MAIL = '[email protected]'.
LV_SENDER = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
LV_SENDER_MAIL ).
CALL METHOD OBJ_SEND_REQUEST->SET_SENDER
EXPORTING
I_SENDER = LV_SENDER.
*---Add recipient (e-mail address)
LV_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
P_MAIL ).
*---Add recipient with its respective attributes to send request
CALL METHOD OBJ_SEND_REQUEST->ADD_RECIPIENT
EXPORTING
I_RECIPIENT = LV_RECIPIENT
I_EXPRESS = 'X'.
CALL METHOD OBJ_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
COMMIT WORK.
*---Send document ---------------------------------------
TRY.
CALL METHOD OBJ_SEND_REQUEST->SEND(
EXPORTING
I_WITH_ERROR_SCREEN = 'X'
RECEIVING
RESULT = LV_SENT_TO_ALL ).
IF LV_SENT_TO_ALL = 'X'.
COMMIT WORK.
WRITE: / 'Email successfully sent'.
ELSE.
WRITE: / 'Error while sending an email'.
ENDIF.
CATCH CX_SEND_REQ_BCS.
WRITE: / 'Error while sending an email'.
ENDTRY.
Bluesky
