HTML in outlook and SOST emails not same

[sanjay_deshpande4]

HI Experts,

HTML in outlook and SOST emails not same:

Text in SOST:

Email as below:

COde:

********************************
  MOVE '<table width="750" BORDER=2>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  MOVE '<tbody> <tr>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.

***************Code for prod Info*************************

  DATA: lv_str1(500) TYPE c.
  lv_str1 = i_zswf_zre-prodh.
  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>Prod Info</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' lv_str1 '</FONT></td>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.

[GrahamRobbo]

Hi Sanjay,

email clients are very specific and opinionated about rendering HTML. And there are variations across different ones.

The fact your HTML renders in SOST does not mean it is well-formed. In fact you seem to be missing the borders on the cells that didn't display so I think your HTML is most likely not well-formed.

I would create the HTML is a text editor and 100% check that all open tags also have a closing tag. You can even test parse it in a XML-parser to double-check.

Then code your ABAP to produce the same HTML payload.

There are also online resources that help with this - especially handling the vagaries of MS Outlook.

Cheers
Graham Robbo

[Sandra_Rossi]

Please share the generated HTML code. Probably it's not well formed as Graham says.

[Sandra_Rossi]

To obtain the generated HTML code, start the debugger, display the variable lt_objcont1 and copy/paste its content here.

[sanjay_deshpande4]

Below was missing at the end of code, Thanks everybody for helping. MOVE '</tbody></table>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1. MOVE ' </FONT></P> </BODY></HTML>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1.

[sanjay_deshpande4 · Accepted solution]

Dear  Sandra and GrahamRobbo,

Kindly consider the code:

FUNCTION zsd_senf_email_wf.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_VBELN) TYPE  VBELN
*"     REFERENCE(I_ZSWF_ZRE) TYPE  ZSWF_ZRE
*"----------------------------------------------------------------------
  DATA: i_objcont TYPE STANDARD TABLE OF  so_txttab.
  DATA: lt_objcont1 TYPE STANDARD TABLE OF soli .
  DATA: lt_objcont1_wa LIKE LINE OF lt_objcont1.
  DATA: ls_vbak TYPE vbak.
  DATA: lv_vbeln TYPE vbeln.
****************************************

  DATA : zcl_wf_sd_qt_mailobjects1 TYPE REF TO zcl_wf_sd_qt_mailobjects1.
  DATA : it_objcont TYPE soli OCCURS 100.
  DATA : objcont TYPE soli OCCURS 100.
  DATA : l_subject(50).
  DATA : s_object_hd_change TYPE sood1,
         s_folder_id TYPE soodk,
         l_forwarder LIKE soud-usrnam,
         s_object_fl_change TYPE sofm1,
         s_object_id TYPE soodk,
         l_objecttype LIKE sood-objtp VALUE 'RAW',
         l_outboxflg LIKE sonv-flag ,
         l_owner LIKE soud-usrnam,
         l_storeflag LIKE sonv-flag,
         s_object_id_new TYPE soodk,
         l_senttoall LIKE sonv-flag VALUE 'X',
         l_office_object_key LIKE swotobjid-objkey,
         w_approval_flag(7),
         w_bk_status TYPE vbak-zzbookstat. " Insertion KRDK966663


  DATA : k_u               VALUE 'U',                      "Value 'U'
         k_int(3)          VALUE 'INT',                    "Value 'INT'
         k_mail(20)        VALUE '@kla-tencor.com',           "COPA suffix
         k_ddr(3)          VALUE 'DDR',                    "Value 'DDR'
         k_f               VALUE 'F',                      "Value 'F'
         k_raw(3)          VALUE 'RAW',              "Office Object Type
         k_release_code(2) VALUE '01',               "Default Release Code
         k_space           VALUE ' ',                      "Value ' '
         k_status(3)       VALUE '200'.                    "Status

  CLEAR : it_objcont,l_subject,l_outboxflg,l_objecttype,
          l_forwarder,s_object_fl_change,s_object_id,l_storeflag,l_owner,
          s_object_id_new,l_office_object_key,w_bk_status.
  REFRESH : it_objcont.
  DATA : lv_item(200) TYPE c.
  TYPES: BEGIN OF ty_vbap1,
        spart TYPE spart,
        abgru TYPE abgru,
  END OF ty_vbap1.
  DATA : lt_vbap TYPE STANDARD TABLE OF ty_vbap1.
  DATA : ls_vbap TYPE ty_vbap1.
  DATA: lt_tspat TYPE STANDARD TABLE OF tspat,
        ls_tspat TYPE tspat.
  DATA lv_sap_gui_path TYPE string.
  DATA : lt_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
  DATA : lt_doc_chng       LIKE sodocchgi1,
       l_tab_lines       TYPE  i.
  DATA: lt_objpack         LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA: lt_objhead         LIKE solisti1   OCCURS 1 WITH HEADER LINE.
  DATA: lv_erdat(10) TYPE c.

  DATA: ls_addr3_val TYPE  addr3_val,
      ls_usr03 TYPE  usr03.
  DATA: lt_email TYPE STANDARD TABLE OF string.
  DATA: ls_email TYPE string.
  DATA: ls_kna1 TYPE kna1.
  DATA: ls_adr6 TYPE adr6.
  CREATE OBJECT zcl_wf_sd_qt_mailobjects1.
  lv_vbeln = i_zswf_zre-vbeln.
*******************************************
  MOVE '<HTML> <BODY bgColor=#ccffcc> '
   TO lt_objcont1_wa-line.
  APPEND lt_objcont1_wa TO lt_objcont1.

*For the systems other than production only.
  IF syst-sysid NE 'KRP'.
    CONCATENATE '<p><font face="Elephant" size="6" color="RED">'
    'Test Email. No Action Required!</font></p>' INTO lt_objcont1_wa.
    APPEND lt_objcont1_wa TO lt_objcont1.
  ENDIF.


********************************
  MOVE '<table width="750" BORDER=2>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  MOVE '<tbody> <tr>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.

******************************
** FIRST ROW
  MOVE '<td width="150"><strong><FONT face=Arial size=2>ZRE Order Number</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="650">' '<FONT face=Arial size=2>' lv_vbeln '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.

**Second row
  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>ZRE Create Date</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  WRITE i_zswf_zre-erdat TO lv_erdat DD/MM/YYYY.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' lv_erdat '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
** Third ROW

  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>ZRE Creator</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' i_zswf_zre-ernam '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
** fourth ROW
  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>Customer Fab</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' i_zswf_zre-name1_we '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.

** Fifth ROW
  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>Customer Sold-To</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' i_zswf_zre-name1_ag '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
*  CLEAR lv_fab.
*--- Display Bundle Deal number for booking status- SUB6 (Submit for PROV change) only
** sixth ROW

  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>Order Administrator</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' i_zswf_zre-name1_zo '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.


* Seventh row

  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>PO Number</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=2>' i_zswf_zre-bstkd '</td></tr></FONT>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
********************

*********************
  DATA: lv_str1(500) TYPE c.
  lv_str1 = i_zswf_zre-prodh.
  MOVE '<tr><td width="375"><strong><FONT face=Arial size=2>Prod Info</strong></FONT></td>' TO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
  CONCATENATE '<td width="375">' '<FONT face=Arial size=1.95>' lv_str1 '</FONT></td>' INTO lt_objcont1_wa.
  APPEND lt_objcont1_wa TO lt_objcont1.
*******************

  CREATE OBJECT zcl_wf_sd_qt_mailobjects1.



  CLEAR lt_receivers.
*  READ TABLE lt_email INTO ls_email INDEX 1.
  lt_receivers-receiver =   i_zswf_zre-smtp_addr_cr..
  lt_receivers-rec_type = 'U'.
  lt_receivers-express   = 'X'.
  APPEND lt_receivers.

  lt_receivers-receiver =  i_zswf_zre-smtp_addr.
  lt_receivers-rec_type = 'U'.
  lt_receivers-express   = 'X'.
  APPEND lt_receivers.
****************
  DESCRIBE TABLE lt_objcont1 LINES l_tab_lines.
  lt_doc_chng-doc_size  =  ( ( l_tab_lines - 1 )
                          * 255 ).
  lt_doc_chng-obj_name  = 'SAPoffice'.
  CONCATENATE 'ZRE' lv_vbeln 'submitted for Booking' INTO l_subject SEPARATED BY space.
  lt_doc_chng-obj_descr = l_subject.
  lt_doc_chng-obj_prio  = '1'.
  lt_doc_chng-priority  = '1'.


*--Fill object package table
  CLEAR lt_objpack-transf_bin.
  lt_objpack-head_start = 1.
  lt_objpack-head_num   = 0.
  lt_objpack-body_start = 1.
  lt_objpack-body_num   = l_tab_lines.
  lt_objpack-obj_descr  = l_subject.
  lt_objpack-obj_langu  = 'E'.
  lt_objpack-doc_type   = 'HTM'.
  APPEND lt_objpack.

  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = lt_doc_chng
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = lt_objpack
      object_header              = lt_objhead
*     CONTENTS_HEX               = IT_OBJBIN
      contents_txt               = lt_objcont1
      receivers                  = lt_receivers
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  IF sy-subrc NE  0.
  ENDIF.
*commit-work.
ENDFUNCTION.

[sanjay_deshpande4 · Accepted solution]

Below was missing, Thanks everybody for helping. MOVE '</tbody></table>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1. MOVE ' </FONT></P> </BODY></HTML>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1.

[Sandra_Rossi · Accepted solution]

Could you post your comment as a separate answer please? Thank you for the feedback.

[sanjay_deshpande4]

Below was missing at the end and is the solution, Thanks everybody for helping. MOVE '</tbody></table>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1. MOVE ' </FONT></P> </BODY></HTML>' TO lt_objcont1_wa. APPEND lt_objcont1_wa TO lt_objcont1