Convert any structure to Internal table format, Field text and values<\/p>\r\n\r\n\r\n\r\n
data: stru_descr type ref to cl_abap_structdescr.\r\n data: dummy.\r\n data: data_structure type abap_abstypename.\r\n data: lt_components type abap_compdescr_tab.\r\n data: ls_email_data type zemail_data.\r\n data: ls_fieldvalue(60000) type c. \" Nvbug 1909188\r\n field-symbols: <value> type any,\r\n <component> type abap_compdescr.\r\n\r\n stru_descr ?= cl_abap_typedescr=>describe_by_data( i_str_data ).\r\n data_structure = stru_descr->absolute_name.\r\n split data_structure at '=' into dummy data_structure.\r\n append lines of stru_descr->components to lt_components.\r\n loop at lt_components assigning <component> WHERE type_kind ne 'h' .\r\n\r\n assign component <component>-name of structure i_str_data to <value>.\r\n ls_email_data-fieldname = <component>-name.\r\n write <value> to ls_fieldvalue.\r\n condense ls_fieldvalue.\r\n ls_email_data-structure = data_structure .\r\n ls_email_data-fieldvalue = ls_fieldvalue.\r\n append ls_email_data to et_mail_data.\r\n\r\n endloop.\r\n<\/code><\/pre>\r\n<\/div>\r\n\r\n\r\n\r\nConver Body to HTML template<\/p>\r\n\r\n\r\n\r\n
\r\nSELECT SINGLE * FROM zemail_temp\r\n INTO ls_zemail_temp\r\n WHERE templ = i_templ\r\n AND langu = i_langu.\r\n IF sy-subrc <> 0.\r\n SELECT SINGLE * FROM zemail_temp\r\n INTO ls_zemail_temp\r\n WHERE templ = i_templ\r\n AND langu = ' ' .\r\n CHECK sy-subrc EQ 0.\r\n ENDIF.\r\n\r\n\r\n xdocument = ls_zemail_temp-temp_data.\r\n encoding = ls_zemail_temp-encoding.\r\n\r\n TRY.\r\n btf = cl_btf=>get_reference( ).\r\n btf_document = btf->create_document( sy-langu ).\r\n btf_document->set_content( text = xdocument encoding = encoding ).\r\n lv_crm_doc = zcl_email_btf_document=>get_reference( ).\r\n lv_crm_doc->set_document( btf_document ).\r\n lv_crm_doc->collect_fields_tidy( IMPORTING ev_error = lv_error_string er_field_adm = lo_admin ).\r\n lo_admin = lv_crm_doc->collect_fields( ).\r\n lt_fields = lo_admin->get_all_fields( ).\r\n lv_crm_doc->collect_links_tidy( IMPORTING er_link_adm = lv_link_adm ev_error = lv_error_string ).\r\n lt_links = lv_link_adm->get_all_links( cl_btf_link=>co_element_a ).\r\n lt_img = lv_link_adm->get_all_links( cl_btf_link=>co_element_img ).\r\n IF NOT lt_img IS INITIAL.\r\n APPEND LINES OF lt_img TO lt_links.\r\n ENDIF.\r\n CATCH cx_btf_runtime_error INTO l_exception.\r\n CATCH cx_btf_parameter_error INTO lp_exception.\r\n\r\n ENDTRY.\r\n\r\n\r\n LOOP AT lt_fields INTO ls_field.\r\n CLEAR: lv_name.\r\n lv_name = ls_field-field->get_name( ).\r\n LOOP AT mail_data INTO ls_mail_data WHERE structure = ls_zemail_temp-structure AND\r\n fieldname = lv_name.\r\n\r\n ls_field-field->set_value( ls_mail_data-fieldvalue ).\r\n\r\n TRY.\r\n ls_field-field->set_replace( t_yes ).\r\n lv_replace_flag = 'X'.\r\n\r\n CATCH cx_btf_parameter_error .\r\n ENDTRY.\r\n ENDLOOP.\r\n ENDLOOP.\r\n IF lv_replace_flag = 'X'.\r\n TRY.\r\n lv_crm_doc->replace_fields_tidy( EXPORTING ir_field_adm = lo_admin\r\n IMPORTING ev_error = lv_error_string ).\r\n CATCH cx_btf_runtime_error.\r\n CATCH cx_btf_parameter_error.\r\n ENDTRY.\r\n ENDIF.\r\n\r\n\r\n LOOP AT lt_links INTO ls_link.\r\n lv_name = ls_link-link->get_link_in( ).\r\n IF lv_name(6) = 'about:'.\r\n LOOP AT mail_data INTO ls_mail_data WHERE structure = ls_zemail_temp-structure AND\r\n fieldname = lv_name+6.\r\n CHECK ls_mail_data-aboutlink IS NOT INITIAL.\r\n ls_link-link->set_link_out( ls_mail_data-aboutlink ).\r\n ls_link-link->set_link_changemode( cl_btf_link=>co_changemode_replace ).\r\n lv_link_flag = 'X'.\r\n\r\n\r\n ENDLOOP.\r\n ELSEIF lv_name(5) = 'data:'.\r\n READ TABLE mail_data INTO ls_mail_data WITH KEY structure = ls_zemail_temp-structure\r\n fieldname = lv_name+5.\r\n IF sy-subrc = 0.\r\n DATA(lv_img) = |data:image\/bmp;base64,{ ls_mail_data-fieldvalue }|.\r\n ls_link-link->set_link_out( lv_img ).\r\n ls_link-link->set_link_changemode( cl_btf_link=>co_changemode_replace ).\r\n lv_link_flag = 'X'.\r\n ENDIF.\r\n ELSE.\r\n ls_link-link->set_link_out( lv_string ).\r\n ENDIF.\r\n\r\n\r\n ENDLOOP.\r\n\r\n IF lv_link_flag = 'X'.\r\n\r\n TRY.\r\n lv_crm_doc->replace_links_tidy( EXPORTING ir_link_adm = lv_link_adm\r\n IMPORTING ev_error = lv_error_string ).\r\n CATCH cx_btf_runtime_error .\r\n ENDTRY.\r\n ENDIF.\r\n\r\n\r\n\r\n\r\n btf_document->get_content( IMPORTING text = xdocument encoding = encoding ).\r\n\r\n xdocument_length = xstrlen( xdocument ).\r\n\r\n CALL FUNCTION 'CRM_IC_XML_XSTRING2STRING'\r\n EXPORTING\r\n inxstring = xdocument\r\n IMPORTING\r\n outstring = cdocument.\r\n\r\n\r\n REPLACE ALL OCCURRENCES OF '<br>' IN cdocument WITH '<br>'.<\/code><\/pre>\r\n<\/div>\r\n\r\n\r\n\r\nSend Email with HTML body<\/p>\r\n\r\n\r\n\r\n
\r\n DATA : btf TYPE REF TO if_btf.\r\n DATA : btf_document TYPE REF TO if_btf_document.\r\n DATA : lv_crm_doc TYPE REF TO zcl_email_btf_document.\r\n DATA : l_exception TYPE REF TO cx_btf_runtime_error.\r\n DATA : ls_zemail_temp TYPE zemail_temp.\r\n DATA : xdocument TYPE xstring.\r\n DATA : encoding TYPE string.\r\n DATA : lp_exception TYPE REF TO cx_btf_parameter_error.\r\n DATA : lo_admin TYPE REF TO zcl_email_btf_field_adm.\r\n DATA : lv_error_string TYPE string.\r\n DATA : lt_fields TYPE zcrmt_im_btf_field_table.\r\n DATA : ls_field TYPE zcrmt_im_btf_field.\r\n DATA : lv_name TYPE string.\r\n DATA : lv_replace_flag TYPE flag.\r\n DATA : lv_link_flag TYPE flag.\r\n DATA : lv_link_adm TYPE REF TO zcl_email_btf_link_adm.\r\n DATA : lt_links TYPE zcrmt_im_btf_link_table.\r\n DATA : lt_img TYPE zcrmt_im_btf_link_table.\r\n DATA : ls_link TYPE zcrmt_im_btf_link.\r\n DATA : codepage TYPE cpcodepage.\r\n DATA : cdocument TYPE string.\r\n DATA : cdocument_row(1000) TYPE c.\r\n DATA : cdocument_table LIKE TABLE OF cdocument_row.\r\n DATA : cdocument_length TYPE i.\r\n DATA : cdocument_offset TYPE i.\r\n DATA : xdocument_length TYPE i.\r\n DATA : ls_recepients TYPE zmail_recepients.\r\n DATA : ls_mail_data TYPE zemail_data.\r\n DATA : ls_attachments TYPE zemail_attachment.\r\n DATA : l_attachment_type TYPE so_obj_tp.\r\n DATA : l_attachment_typ1 TYPE text255.\r\n DATA : l_attach_type_len TYPE i.\r\n DATA : l_attachment_subject TYPE so_obj_des.\r\n DATA : l_attachment_size TYPE so_obj_len.\r\n DATA : l_att_content_hex TYPE solix_tab.\r\n DATA : lv_length TYPE i.\r\n DATA : l_dummy TYPE c.\r\n DATA : lt_email_address TYPE bcsy_smtpa.\r\n DATA : lv_type TYPE so_obj_tp VALUE 'HTM'.\r\n DATA : lt_mail_text TYPE bcsy_text.\r\n DATA : lt_header TYPE bcsy_text.\r\n DATA : l_send_request TYPE REF TO cl_bcs.\r\n DATA : l_document TYPE REF TO cl_document_bcs.\r\n DATA : l_sender TYPE REF TO if_sender_bcs.\r\n DATA : l_recipient TYPE REF TO if_recipient_bcs.\r\n DATA : l_exception_info TYPE REF TO if_os_exception_info.\r\n DATA : l_bcs_exception TYPE REF TO cx_bcs.\r\n DATA : lv_num_rows TYPE i.\r\n DATA : lv_text_length TYPE so_obj_len.\r\n DATA : lv_sender_address TYPE ad_smtpadr.\r\n DATA : l_uname TYPE sy-uname.\r\n DATA : lv_reciever_address TYPE ad_smtpadr.\r\n DATA : lv_subject TYPE so_obj_des.\r\n DATA : lv_text_line TYPE soli,\r\n l_attachment_header TYPE soli_tab.\r\n\r\n SELECT SINGLE * FROM zemail_temp INTO ls_zemail_temp WHERE templ = i_templ AND langu = i_langu.\r\n IF sy-subrc <> 0.\r\n SELECT SINGLE * FROM zemail_temp INTO ls_zemail_temp WHERE templ = i_templ AND langu = ' ' .\r\n ENDIF.\r\n\r\n\r\n CHECK sy-subrc EQ 0.\r\n\r\n xdocument = ls_zemail_temp-temp_data.\r\n encoding = ls_zemail_temp-encoding.\r\n\r\n TRY.\r\n btf = cl_btf=>get_reference( ).\r\n btf_document = btf->create_document( sy-langu ).\r\n btf_document->set_content( text = xdocument encoding = encoding ).\r\n lv_crm_doc = zcl_email_btf_document=>get_reference( ).\r\n lv_crm_doc->set_document( btf_document ).\r\n lv_crm_doc->collect_fields_tidy( IMPORTING ev_error = lv_error_string er_field_adm = lo_admin ).\r\n lo_admin = lv_crm_doc->collect_fields( ).\r\n lt_fields = lo_admin->get_all_fields( ).\r\n lv_crm_doc->collect_links_tidy( IMPORTING er_link_adm = lv_link_adm ev_error = lv_error_string ).\r\n lt_links = lv_link_adm->get_all_links( cl_btf_link=>co_element_a ).\r\n lt_img = lv_link_adm->get_all_links( cl_btf_link=>co_element_img ).\r\n IF NOT lt_img IS INITIAL.\r\n APPEND LINES OF lt_img TO lt_links.\r\n ENDIF.\r\n CATCH cx_btf_runtime_error INTO l_exception.\r\n CATCH cx_btf_parameter_error INTO lp_exception.\r\n\r\n ENDTRY.\r\n\r\n\r\n LOOP AT lt_fields INTO ls_field.\r\n CLEAR: lv_name.\r\n lv_name = ls_field-field->get_name( ).\r\n LOOP AT mail_data INTO ls_mail_data WHERE structure = ls_zemail_temp-structure AND\r\n fieldname = lv_name.\r\n\r\n ls_field-field->set_value( ls_mail_data-fieldvalue ).\r\n\r\n TRY.\r\n ls_field-field->set_replace( t_yes ).\r\n lv_replace_flag = 'X'.\r\n\r\n CATCH cx_btf_parameter_error .\r\n ENDTRY.\r\n ENDLOOP.\r\n ENDLOOP.\r\n IF lv_replace_flag = 'X'.\r\n TRY.\r\n lv_crm_doc->replace_fields_tidy( EXPORTING ir_field_adm = lo_admin\r\n IMPORTING ev_error = lv_error_string ).\r\n CATCH cx_btf_runtime_error.\r\n CATCH cx_btf_parameter_error.\r\n ENDTRY.\r\n ENDIF.\r\n\r\n\r\n LOOP AT lt_links INTO ls_link.\r\n lv_name = ls_link-link->get_link_in( ).\r\n CHECK lv_name(6) = 'about:'.\r\n LOOP AT mail_data INTO ls_mail_data WHERE structure = ls_zemail_temp-structure AND\r\n fieldname = lv_name+6.\r\n CHECK ls_mail_data-aboutlink IS NOT INITIAL.\r\n ls_link-link->set_link_out( ls_mail_data-aboutlink ).\r\n ls_link-link->set_link_changemode( cl_btf_link=>co_changemode_replace ).\r\n lv_link_flag = 'X'.\r\n ENDLOOP.\r\n\r\n\r\n ENDLOOP.\r\n\r\n IF lv_link_flag = 'X'.\r\n\r\n TRY.\r\n lv_crm_doc->replace_links_tidy( EXPORTING ir_link_adm = lv_link_adm\r\n IMPORTING ev_error = lv_error_string ).\r\n CATCH cx_btf_runtime_error .\r\n ENDTRY.\r\n ENDIF.\r\n\r\n\r\n\r\n\r\n btf_document->get_content( IMPORTING text = xdocument encoding = encoding ).\r\n\r\n xdocument_length = xstrlen( xdocument ).\r\n\r\n CALL FUNCTION 'CRM_IC_XML_XSTRING2STRING'\r\n EXPORTING\r\n inxstring = xdocument\r\n IMPORTING\r\n outstring = cdocument.\r\n\r\n REPLACE ALL OCCURRENCES OF '<' IN cdocument WITH '<'.\r\n REPLACE ALL OCCURRENCES OF '>' IN cdocument WITH '>'.\r\n\r\n CALL FUNCTION 'SCMS_STRING_TO_FTEXT'\r\n EXPORTING\r\n text = cdocument\r\n TABLES\r\n ftext_tab = lt_mail_text.\r\n\r\n\r\n\r\n TRY.\r\n* Create persistent send request\r\n l_send_request = cl_bcs=>create_persistent( ).\r\n\r\n* Create document\r\n DESCRIBE TABLE lt_mail_text LINES lv_num_rows.\r\n lv_num_rows = lv_num_rows * 255.\r\n MOVE lv_num_rows TO lv_text_length.\r\n lv_subject = mail_subject.\r\n l_document = cl_document_bcs=>create_document(\r\n i_type = lv_type\r\n i_text = lt_mail_text\r\n i_length = lv_text_length\r\n i_subject = lv_subject\r\n i_importance = '1' ). \"#EC *\r\n\r\n\r\n\r\n* Add attachment for the mail\r\n LOOP AT mail_attachments INTO ls_attachments.\r\n CLEAR : l_attachment_type,\r\n l_attachment_subject,\r\n l_attachment_size,\r\n l_att_content_hex,\r\n l_attachment_header,\r\n lv_length.\r\n\r\n SPLIT ls_attachments-file_name AT '.' INTO l_dummy l_attachment_typ1.\r\n l_attachment_type = l_attachment_typ1.\r\n\r\n l_attach_type_len = strlen( l_attachment_typ1 ).\r\n IF l_attach_type_len GT 3.\r\n CONCATENATE '<(>&< )>SO_FILENAME=' ls_attachments-file_name INTO lv_text_line.\r\n APPEND lv_text_line TO l_attachment_header.\r\n ENDIF.\r\n\r\n TRANSLATE l_attachment_type TO UPPER CASE.\r\n l_attachment_subject = ls_attachments-file_name.\r\n CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'\r\n EXPORTING\r\n buffer = ls_attachments-filedata\r\n IMPORTING\r\n output_length = lv_length\r\n TABLES\r\n binary_tab = l_att_content_hex.\r\n l_attachment_size = lv_length.\r\n TRY.\r\n CALL METHOD l_document->add_attachment\r\n EXPORTING\r\n i_attachment_type = l_attachment_type\r\n i_attachment_subject = l_attachment_subject\r\n i_attachment_size = l_attachment_size\r\n i_att_content_hex = l_att_content_hex.\r\n CATCH cx_document_bcs .\r\n ENDTRY.\r\n ENDLOOP.\r\n\r\n\r\n\r\n* Add document to send request\r\n CALL METHOD l_send_request->set_document( l_document ).\r\n\r\n\r\n* Get sender object\r\n IF i_sender IS INITIAL.\r\n lv_sender_address = sy-uname.\r\n ELSEIF NOT i_sender-uname IS INITIAL.\r\n lv_sender_address = i_sender-uname.\r\n ELSEIF NOT i_sender-email IS INITIAL.\r\n lv_sender_address = i_sender-email.\r\n ENDIF.\r\n\r\n IF lv_sender_address CA '@'.\r\n TRANSLATE lv_sender_address TO UPPER CASE.\r\n l_sender = cl_cam_address_bcs=>create_internet_address( lv_sender_address ).\r\n ELSE.\r\n l_uname = lv_sender_address .\r\n l_sender = cl_sapuser_bcs=>create( l_uname ).\r\n ENDIF.\r\n\r\n* Add sender\r\n CALL METHOD l_send_request->set_sender\r\n EXPORTING\r\n i_sender = l_sender.\r\n\r\n* Create recipient\r\n LOOP AT to_mail_recipients INTO ls_recepients .\r\n\r\n IF ls_recepients-email IS NOT INITIAL.\r\n TRANSLATE ls_recepients-email TO UPPER CASE.\r\n lv_reciever_address = ls_recepients-email.\r\n l_recipient = cl_cam_address_bcs=>create_internet_address( lv_reciever_address ).\r\n ELSE.\r\n l_uname = ls_recepients-uname.\r\n l_recipient = cl_sapuser_bcs=>create( l_uname ).\r\n ENDIF.\r\n\r\n\r\n* Add recipient with its respective attributes to send request\r\n CALL METHOD l_send_request->add_recipient\r\n EXPORTING\r\n i_recipient = l_recipient\r\n i_express = ' '\r\n i_copy = ' '\r\n i_blind_copy = ' '.\r\n\r\n ENDLOOP.\r\n\r\n LOOP AT cc_mail_recipients INTO ls_recepients .\r\n\r\n IF ls_recepients-email IS NOT INITIAL.\r\n TRANSLATE ls_recepients-email TO UPPER CASE.\r\n lv_reciever_address = ls_recepients-email.\r\n l_recipient = cl_cam_address_bcs=>create_internet_address( lv_reciever_address ).\r\n ELSE.\r\n l_uname = ls_recepients-uname.\r\n l_recipient = cl_sapuser_bcs=>create( l_uname ).\r\n ENDIF.\r\n\r\n\r\n* Add recipient with its respective attributes to send request\r\n CALL METHOD l_send_request->add_recipient\r\n EXPORTING\r\n i_recipient = l_recipient\r\n i_express = ' '\r\n i_copy = 'X'\r\n i_blind_copy = ' '.\r\n\r\n ENDLOOP.\r\n\r\n LOOP AT bcc_mail_recipients INTO ls_recepients .\r\n\r\n IF ls_recepients-email IS NOT INITIAL.\r\n TRANSLATE ls_recepients-email TO UPPER CASE.\r\n lv_reciever_address = ls_recepients-email.\r\n l_recipient = cl_cam_address_bcs=>create_internet_address( lv_reciever_address ).\r\n ELSE.\r\n l_uname = ls_recepients-uname.\r\n l_recipient = cl_sapuser_bcs=>create( l_uname ).\r\n ENDIF.\r\n\r\n\r\n* Add recipient with its respective attributes to send request\r\n CALL METHOD l_send_request->add_recipient\r\n EXPORTING\r\n i_recipient = l_recipient\r\n i_express = ' '\r\n i_copy = ' '\r\n i_blind_copy = 'X'.\r\n\r\n ENDLOOP.\r\n\r\n l_send_request->set_message_subject( mail_subject ).\r\n\r\n* Send document\r\n CALL METHOD l_send_request->send( ).\r\n\r\n IF i_send = 'X'.\r\n\r\n COMMIT WORK .\r\n ENDIF.\r\n\r\n CATCH cx_bcs INTO l_bcs_exception.\r\n EXIT.\r\n ENDTRY.<\/code><\/pre>\r\n<\/div>\r\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","question-category":[158],"question_tags":[178,398,399,396,397,392,394,395,177,393],"class_list":["post-7676","question","type-question","status-publish","hentry","question-category-abap","question_tags-abap","question_tags-cl_bcs","question_tags-cl_bcscreate_persistent","question_tags-cl_cam_address_bcscreate_internet_address","question_tags-cl_sapuser_bcscreate","question_tags-convert-structure-to-internal-table","question_tags-html-email-body-abap","question_tags-internal-table-to-html","question_tags-sap","question_tags-send-email-abap"],"_links":{"self":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/question\/7676","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/question"}],"about":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/types\/question"}],"author":[{"embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7676"}],"wp:attachment":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7676"}],"wp:term":[{"taxonomy":"question-category","embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fquestion-category&post=7676"},{"taxonomy":"question_tags","embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fquestion_tags&post=7676"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}