Use Table and atthacment and sending mail

Question

Hi ,
With help from this forum i success in sending mail with internal and other program that send mail with attachment,
now the last thihng is to combin of the both,
i try do do it like this way (below) and i get 2 diifrent mail ,
Now i now that i give the mail adress twice and i write all thing twice and i not had to ,
but when i do it once it send just the : send_request , document, recipient...not with IO_....
i write it twice for the help.
i new In Abap OO how can i solve this ?
Regards
TRY.
    send_request = cl_bcs=>create_persistent( ).
    lo_send_request = cl_bcs=>create_persistent( ).
    lo_document = cl_document_bcs=>create_document( i_type = 'HTM'
                                                    i_text = lt_html[]
                                                    i_subject = 'Table' ).
    document = cl_document_bcs=>create_document( i_type    = 'RAW'
                                                 i_text    = lt_text
                                                 i_subject = 'Check this' ).
    APPEND 'Test Message' TO lt_text.
    document->add_attachment( EXPORTING i_attachment_type    =  'BIN'
                                        i_attachment_subject = mail_type
                                        i_att_content_hex    = lt_attach ).
    lo_send_request->set_document( lo_document ).
    send_request->set_document( document ).
    recipient = cl_cam_address_bcs=>create_internet_address( mailto ).
    lo_recipient = cl_cam_address_bcs=>create_internet_address( mailto ).
    send_request->add_recipient( i_recipient = recipient  i_express   = 'X' ).
    lo_send_request->add_recipient( i_recipient = lo_recipient  i_express = 'X' ).
    send_request->set_send_immediately( 'X' ).
    sent_to_all = send_request->send( i_with_error_screen = 'X' ).
    lo_send_request->add_recipient( EXPORTING i_recipient = lo_recipient
    i_express = 'X' ).
    lo_send_request->set_send_immediately( 'X' ).
    lv_sent_to_all = lo_send_request->send( 'X' ).
    COMMIT WORK.
  CATCH cx_bcs INTO bcs_exception.
    lv_error_txt = bcs_exception->get_text( ).
    WRITE:`Error : ` , lv_error_txt.
    EXIT.
ENDTRY
Regards

Answer 1

I close it,
i sorry but somehow i dont see this post after i send it for 20 minute