Dear Friends,
Sending Email Internal Table Content Missing .
Here my piece of code . Pls help me out
LOOP AT gt_final1 INTO gw_final1.
*-mail attachment
CONCATENATE 'Dealer code' con_tab ' External Number of Claim' con_tab 'Number of Warranty Claim' con_tab 'Job card number'
con_tab 'External Object Number' con_tab 'Part Number' con_tab 'Part Description' con_tab 'Quantity' con_tab 'Value'
LOOP AT gt_final INTO gw_final WHERE kunag = gw_final1-kunag.
IF gw_final-kunag <> gw_final1-kunag.
EXIT.
ENDIF.
gv_fkimg = gw_final-fkimg .
gv_netwr = gw_final-netwr.
CONCATENATE lv_string con_tab gw_final-kunag con_tab gw_final-refno con_tab gw_final-clmno con_tab gw_final-zjob_card_num con_tab gw_final-relob_ext con_tab gw_final-matnr
con_tab gw_final-arktx con_tab gv_fkimg con_tab gv_netwr con_tab gw_final-aubel con_tab gw_final-vbeln con_tab gw_final-fkdat
con_cret INTO lv_string.
CALL FUNCTION 'ZGET_CONTACT_PRSNR_MAIL'
EXPORTING
kunnr = gw_final-kunag
abtnr = gw_final-abtnr
TABLES
gt_mail = gt_mail[].
CLEAR :gv_fkimg,gv_netwr,gw_final.
ENDLOOP.
TRY.
cl_bcs_convert=>string_to_solix(
EXPORTING
iv_string = lv_string
iv_codepage = '4103' "suitable for MS Excel, leave empty
iv_add_bom = 'X' "for other doc types
IMPORTING
et_solix = binary_data
ev_size = size ).
CATCH cx_bcs.
MESSAGE e445(so).
ENDTRY.
CONCATENATE 'Invoice Details' sy-datum INTO lv_string1.
LOOP AT gt_mail INTO gs_mail WHERE kunnr = gw_final1-kunag.
* mailto = gs_mail-smtp_addr.
TRY.
send_request = cl_bcs=>create_persistent( ).
send_mail = 'senderid'.
sender = cl_cam_address_bcs=>create_internet_address( send_mail ).
send_request->set_sender( sender ).
document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = main_text
i_subject = lv_string1 ). "#EC NOTEXT
* add the spread sheet as attachment to document object
document->add_attachment(
i_attachment_type = 'xls' "#EC NOTEXT
i_attachment_subject = 'Invoice Details' "#EC NOTEXT
i_attachment_size = size
i_att_content_hex = binary_content ).
* add document object to send request
send_request->set_document( document ).
* --------- add recipient (e-mail address) -----------------------
* create recipient object
recipient = cl_cam_address_bcs=>create_internet_address( gs_mail-smtp_addr ).
* add recipient object to send request
send_request->add_recipient( recipient ).
send_request->set_status_attributes( i_requested_status = 'N'
i_status_mail = 'N' ).
* ---------- send document ---------------------------------------
sent_to_all = send_request->send( i_with_error_screen = 'X' ).
COMMIT WORK.
IF sent_to_all IS INITIAL.
MESSAGE i500(sbcoms) WITH mailto.
ELSE.
MESSAGE s022(so).
ENDIF.
* ------------ exception handling ----------------------------------
* replace this rudimentary exception handling with your own one !!!
CATCH cx_bcs INTO bcs_exception.
MESSAGE i865(so) WITH bcs_exception->error_type.
ENDTRY.
SUBMIT rsconn01 WITH mode = 'INT'
AND RETURN.
ENDLOOP.
ENDLOOP.