Send mail from SAP to external mail id sample code

DATA   :    LV_MAILSUB  TYPE SO_OBJ_DES VALUE 'Test Mail',
      LO_DOCUMENT      TYPE REF TO CL_DOCUMENT_BCS VALUE IS INITIAL,
            LO_RECIPIENT     TYPE REF TO IF_RECIPIENT_BCS VALUE IS INITIAL,
*             LO_SEND_REQUEST TYPE REF TO CL_BCS VALUE IS INITIAL,
             LO_SEND_REQUEST TYPE REF TO CL_BCS VALUE IS INITIAL,
             T_ATT_CONTENT_HEX TYPE SOLIX_TAB.
CLASS CL_BCS DEFINITION LOAD.
LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).

LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
I_TYPE = 'RAW'
I_TEXT = LT_MAIL_TEXT
I_SUBJECT = LV_MAILSUB ).

TRY .
    LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).
  CATCH CX_ROOT.

ENDTRY.

DATA: LO_SENDER TYPE REF TO IF_SENDER_BCS VALUE IS INITIAL.
LO_SENDER = CL_SAPUSER_BCS=>CREATE( SY-UNAME ).

LO_SEND_REQUEST->SET_SENDER(
EXPORTING
I_SENDER = LO_SENDER ).
LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
                           'divyap@mouritech.com' ).
* SET RECIPIENT
LO_SEND_REQUEST->ADD_RECIPIENT(
EXPORTING
I_RECIPIENT = LO_RECIPIENT
I_EXPRESS = 'X'
I_COPY = ' ').

LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
                         'swetha.creddy@yahoo.com' ).
LO_SEND_REQUEST->ADD_RECIPIENT(
EXPORTING
I_RECIPIENT = LO_RECIPIENT
I_EXPRESS = 'X'
I_COPY = 'X').


* SEND EMAIL
DATA: LV_SENT_TO_ALL(1) TYPE C VALUE IS INITIAL.
LO_SEND_REQUEST->SEND(
EXPORTING
I_WITH_ERROR_SCREEN = 'X'
RECEIVING
RESULT = LV_SENT_TO_ALL ).
COMMIT WORK.