Convert ABAP Report to HTML & Send External Email Attachment

Question

Hi,
I have a requirement described as below. A report is scheduled to run in the background creates a spool, to be converted to HTML format and send to Third Parties (External Email ID's) via Email. Please let me know whether the requirement is not clear. Can you please suggest me a suitable SAP Solution for this requirement?
Thanks,
Kannan.SA

Answer 1

Hi,
See below simple report to convert the internal table data to a HTML format data and stores in a internal table and then pass that internal table as an attachment to the external email using function module SO_NEW_DOCUMENT_ATT_SEND_API1.
You need for create a spool also.
REPORT  Z_HTML                                                      .
include <icon>.
types: begin of msg,
         type      like icon-id,
         text(140) type c,
       end of msg.
constants: gc_marked type c value 'X',
           gc_ok     like icon-id  value '@5B@'.
data:
   gt_msg         type standard table of msg,
   gs_msg         like line of  gt_msg,
   gv_msg(138)    type c,
*-- html
   html_container type ref to cl_gui_custom_container,
   html_control   type ref to cl_gui_html_viewer,
   my_row_header like w3head   occurs 10 with header line,
   my_fields     like w3fields occurs 10 with header line,
   my_header     like w3head,
   my_html       type standard table of w3html  ,
   ok_code       like sy-ucomm.
  Start of Selection                                              *
start-of-selection.
    clear gv_msg.
    gv_msg = 'MESSAGES for HTML'.
    do 3 times.
      perform message using  gc_ok gv_msg .
    enddo.
  End of   Selection                                              *
end-of-selection.
    set screen 0100.
*&      Form  message
form message using    p_type
                      p_text.
  clear gs_msg.
  gs_msg-type  = p_type.
  gs_msg-text  = p_text.
  append gs_msg to gt_msg.
endform.                    " MESSAGE
*&      Module  STATUS_0100  OUTPUT
module status_0100 output.
  perform convert_itab_html.
  set titlebar '100' .
  set pf-status 'MAIN100'.
  create object html_container
      exporting
          container_name = 'CONTAINER'.
  create object html_control
       exporting
            parent    = html_container
            saphtmlp  = gc_marked      .
  data: assigned_url type url.
  call method html_control->load_data
EXPORTING
   URL                  = url
   TYPE                 = 'text'
   SUBTYPE              = 'html'
   SIZE                 = 0
   ENCODING             =
   CHARSET              =
    importing
      assigned_url         = assigned_url
    changing
      data_table           = my_html
EXCEPTIONS
   DP_INVALID_PARAMETER = 1
   DP_ERROR_GENERAL     = 2
   CNTL_ERROR           = 3
   others               = 4
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  call method html_control->show_url
    exporting
      url                    = assigned_url
   FRAME                  =
   IN_PLACE               = ' X'
EXCEPTIONS
   CNTL_ERROR             = 1
   CNHT_ERROR_NOT_ALLOWED = 2
   CNHT_ERROR_PARAMETER   = 3
   DP_ERROR_GENERAL       = 4
   others                 = 5
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  exit  INPUT
module exit input.
  leave program.
endmodule.                 " exit  INPUT
*&      Module  user_command_0100  INPUT
      text
module user_command_0100 input.
  case ok_code.
    when 'EXIT' or 'BACK'.
      leave program.
    when others.
      call method cl_gui_cfw=>dispatch.
  endcase.
endmodule.                 " user_command_0100  INPUT
*&      Form  convert_itab_html
form convert_itab_html.
  data: lv_tabix like sy-tabix.
*-- table header
  call function 'WWW_ITAB_TO_HTML_HEADERS'
    exporting
      field_nr = 1
      text     = 'Type'
      fgcolor  = 'navy'
      bgcolor  = 'red'
      font     = 'Arial'
    tables
      header   = my_row_header.
  call function 'WWW_ITAB_TO_HTML_HEADERS'
    exporting
      field_nr = 2
      text     = 'Message'
      fgcolor  = 'navy'
      bgcolor  = 'red'
      font     = 'Arial'
    tables
      header   = my_row_header.
*-- table rows
  clear lv_tabix.
  loop at gt_msg into gs_msg.
    lv_tabix = sy-tabix.
        call function 'WWW_ITAB_TO_HTML_LAYOUT'
          exporting
            field_nr = 1
            line_nr  = lv_tabix
            icon     = gc_marked
          tables
            fields   = my_fields.
        call function 'WWW_ITAB_TO_HTML_LAYOUT'
          exporting
            field_nr = 2
            line_nr  = lv_tabix
            fgcolor  = 'red'
            bgcolor  = 'black'
            font     = 'Arial'
            size     = '2'
          tables
            fields   = my_fields.
  endloop.
*-- header
  move 'Messages during program run' to my_header-text.
  move 'Arial'                       to my_header-font.
  move '2'                           to my_header-size.
  move 'Centered'                    to my_header-just.
  move 'red'                         to my_header-bg_color.
  move 'blue'                        to my_header-fg_color.
  refresh my_html.
  call function 'WWW_ITAB_TO_HTML'
   exporting
     table_header = my_header
   all_fields   = ' '
    tables
      html         = my_html
      fields       = my_fields
      row_header   = my_row_header
      itable       = gt_msg.
endform.                    "convert_itab_html