Email Template with Table in Email Body (SAP_Basis release 750 or above and S/4)

[yashoratna]

Introduction: In this article, I'll demonstrate, how we can draw an HTML table in an E-mail body by using an E-mail template with all the styles we can do in Microsoft Word and a simple way to do this.

In SAP_BASIS 750 and above releases or in S/4 systems, we have an Email template feature available along with a CDS view functionality.

Please visit the blog https://blogs.sap.com/2019/10/12/e-mail-templates-in-s4-hana/  to get the initial overview of the email template.

Step 1: We can create an Email template in the object navigator by navigating to the Email template option shown as per the image below.

Step 2: Next, simply create Email content (Email Body) in MS Word, along with a table including a header and only one blank row for table data.

Step 3: Now save the document in .htm format as per below.

Step 4: Next open the e-mail template and choose the 'Load local file' option.

Step 5: Moving further, identify where the blank table row is in the Body HTML content.

Step 6: Copy cell attributes to have in the code. Remove the blank table row <tr>.....</tr> along with its all cells and maintain a placeholder e.g. IT_FLIGHTS in Email Body.

Step 7: Replace IT_FLIGHTS in the code as per snippet.

DATA(lv_cell_attrib) = ` width=85 valign=top style='width:77.95pt;border-top:none;border-left:`

                         && `none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;`

                         && `mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;`

                         && `mso-border-alt:solid windowtext .5pt;background:white;mso-background-themecolor:`

                         && `background1;padding:0in 5.4pt 0in 5.4pt'>`

                         && `<p class=MsoNormal align=center style='text-align:center'><span`

                         && `style='mso-bidi-font-family:Calibri'><o:p>`.



  LOOP AT lt_sflights ASSIGNING FIELD-SYMBOL(<fs_sflights>).

    lv_content = |{ lv_content }<tr>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-carrid }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-connid }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-fldate }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-price }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-planetype }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-paymentsum }</o:p></span></p></td>|.

    lv_content = |{ lv_content }</tr>|.

  ENDLOOP.



REPLACE 'IT_FLIGHTS' WITH lv_content INTO lv_body_html.

 

Step 8: Next trigger an email to see the result. We can clearly see all the details are present in table format in the email body.

Code Snippet: Please refer complete code as below.

PARAMETERS : p_email TYPE ad_smtpadr.   "abc@gmail.com

CONSTANTS:

  lc_priority    TYPE bcs_docimp VALUE '1',

  lc_template_id TYPE smtg_tmpl_id VALUE 'ZTEST'.



DATA: lv_content TYPE string.



SELECT carrid,

        connid,

        fldate,

        price,

        planetype,

        paymentsum

        FROM sflight

        INTO TABLE @DATA(lt_sflights)

        UP TO 10 ROWS.

IF sy-subrc EQ 0.



  DATA(lo_email_api_ref) = cl_smtg_email_api=>get_instance( iv_template_id = lc_template_id ).

  DATA(lo_send_request_ref) = cl_bcs=>create_persistent( ).

  DATA(i_cds_key) = VALUE if_smtg_email_template=>ty_gt_data_key( ).



  " Get the RawHTML Content and Replace the palceholder with the INV Details in the email

  lo_email_api_ref->render( EXPORTING

                              iv_language = sy-langu

                              it_data_key = i_cds_key

                            IMPORTING

                              ev_subject = DATA(lv_subject)

                              ev_body_html = DATA(lv_body_html) ).



  DATA(lv_cell_attrib) = ` width=85 valign=top style='width:77.95pt;border-top:none;border-left:`

                         && `none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;`

                         && `mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;`

                         && `mso-border-alt:solid windowtext .5pt;background:white;mso-background-themecolor:`

                         && `background1;padding:0in 5.4pt 0in 5.4pt'>`

                         && `<p class=MsoNormal align=center style='text-align:center'><span`

                         && `style='mso-bidi-font-family:Calibri'><o:p>`.



  LOOP AT lt_sflights ASSIGNING FIELD-SYMBOL(<fs_sflights>).

    lv_content = |{ lv_content }<tr>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-carrid }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-connid }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-fldate }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-price }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-planetype }</o:p></span></p></td>|.

    lv_content = |{ lv_content }<td{ lv_cell_attrib && <fs_sflights>-paymentsum }</o:p></span></p></td>|.

    lv_content = |{ lv_content }</tr>|.

  ENDLOOP.



  REPLACE 'IT_FLIGHTS' WITH lv_content INTO lv_body_html.



  DATA(lv_body_html_soli) = cl_bcs_convert=>string_to_soli( lv_body_html ).  " Build HTML for Sending

  DATA(lo_multipart_ref) = NEW cl_gbt_multirelated_service( ).



  lo_multipart_ref->set_main_html(

      EXPORTING

        content     = lv_body_html_soli

        description = 'flightDetails' ).



*Create & Set the Email Document

  DATA(lo_doc_bcs_ref) = cl_document_bcs=>create_from_multirelated(

          EXPORTING

            i_subject          = CONV so_obj_des( lv_subject )               "Set the Email Subject

            i_importance       = lc_priority

            i_multirel_service = lo_multipart_ref ).



  lo_send_request_ref->set_document( lo_doc_bcs_ref  ).



*Populate sender name

  DATA(lo_sender_ref) = cl_sapuser_bcs=>create( sy-uname ).

  IF lo_sender_ref IS BOUND.

    lo_send_request_ref->set_sender( i_sender = lo_sender_ref ).

  ENDIF.



  DATA(lo_recipient_ref) = cl_cam_address_bcs=>create_internet_address( p_email ).

  IF lo_recipient_ref IS BOUND.

*Add recipient to send request

    lo_send_request_ref->add_recipient(

      EXPORTING

        i_recipient = lo_recipient_ref

        i_express   = abap_true ).

  ENDIF.



* Send email

  DATA(lv_sent_to_all) = lo_send_request_ref->send( ).



* If e-mail is successful then do commit work

  IF lv_sent_to_all = abap_true.

    COMMIT WORK AND WAIT.

  ENDIF.

ENDIF.

This concludes the functionality.

Thank you for reading the article. I truly hope you liked it. Please feel free to share your thoughts and suggestions.