How to send program output as mail in HTML format

Question

Hi Friends,
I have a BDc which runs in background and its been Stored in my system and displayed as HTML format.
My requirement is now i want that Same HTML file which i am displaying to be sent as a mail in HTML format itself..Kindly help me on this
Thanks in advance
kishore

Answer 1

Hi,
Below sample program might give you idea on sending HTML attachment.
TYPES: BEGIN OF t_sal_ord,
           vbeln TYPE vbeln_va,
           posnr TYPE posnr_va,
           auart TYPE auart,
           vkorg TYPE vkorg,
           matnr TYPE matnr,
         END OF t_sal_ord.
  DATA: i_sal_ord TYPE STANDARD TABLE OF t_sal_ord,
        i_header TYPE STANDARD TABLE OF w3head,
        i_fields TYPE STANDARD TABLE OF w3fields,
        i_html TYPE STANDARD TABLE OF w3html,
        wa_header TYPE w3head.
  DATA: i_fcat TYPE lvc_t_fcat,
        wa_fcat TYPE lvc_s_fcat.
  DATA: g_send_request TYPE REF TO cl_bcs,
        g_document TYPE REF TO cl_document_bcs,
        g_recipient TYPE REF TO cl_cam_address_bcs,
        g_cx_bcs TYPE REF TO cx_bcs,
        g_sent_to_all TYPE os_boolean.
  DATA: g_lines TYPE i,
        g_size TYPE so_obj_len.
  PARAMETERS: p_vkorg TYPE vkorg OBLIGATORY,
              p_mailad TYPE ad_smtpadr OBLIGATORY.
START-OF-SELECTION.
  SELECT a~vbeln b~posnr a~auart a~vkorg b~matnr
    INTO TABLE i_sal_ord
    UP TO 20 ROWS
    FROM vbak AS a
    INNER JOIN vbap AS b
    ON a~vbeln  = b~vbeln
    WHERE a~vkorg = p_vkorg.
  wa_fcat-coltext = 'SalesOrd#'.
  APPEND wa_fcat TO i_fcat.
  wa_fcat-coltext = 'Item#'.
  APPEND wa_fcat TO i_fcat.
  wa_fcat-coltext = 'OrdType'.
  APPEND wa_fcat TO i_fcat.
  wa_fcat-coltext = 'Sales.Org'.
  APPEND wa_fcat TO i_fcat.
  wa_fcat-coltext = 'Material'.
  APPEND wa_fcat TO i_fcat.
  LOOP AT i_fcat INTO wa_fcat.
    wa_header-text = wa_fcat-coltext.
    CALL FUNCTION 'WWW_ITAB_TO_HTML_HEADERS'
      EXPORTING
        field_nr = sy-tabix
        text     = wa_header-text
        size     = '2'
        fgcolor  = 'BLACK'
        bgcolor  = 'VIOLET'
        font     = 'CALIBRI'
      TABLES
        header   = i_header.
    CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT'
      EXPORTING
        field_nr = sy-tabix
        size     = '2'
        fgcolor  = 'BLACK'
        bgcolor  = 'WHITE'
        font     = 'CALIBRI'
      TABLES
        fields   = i_fields.
  ENDLOOP.
  wa_header-text = 'Sales Order Details'.
  wa_header-size = '2'.
  wa_header-font = 'CALIBRI'.
  CALL FUNCTION 'WWW_ITAB_TO_HTML'
   EXPORTING
*     TABLE_ATTRIBUTES       = 'BORDER=1'
     table_header           = wa_header
*     ALL_FIELDS             = 'X'
    TABLES
      html                   = i_html
      fields                 = i_fields
      row_header             = i_header
      itable                 = i_sal_ord.
  TRY .
      g_send_request = cl_bcs=>create_persistent( ).
      g_document = cl_document_bcs=>create_document(
                    i_type  = 'RAW'
*                i_text  = i_content[]  " Body for Mail
                    i_subject = 'Sales Order Details' ).
      DESCRIBE TABLE i_html LINES g_lines.
      g_size = g_lines * 2 * 255.
      CALL METHOD g_document->add_attachment
        EXPORTING
          i_attachment_type    = 'HTM'
          i_attachment_subject = 'Sales Order Details'
          i_attachment_size    = g_size
          i_att_content_text   = i_html[].
      g_send_request->set_document( g_document ).
g_recipient = cl_cam_address_bcs=>create_internet_address( p_mailad ).
      g_send_request->add_recipient(
         EXPORTING
           i_recipient = g_recipient
           i_express = 'X' ).
      g_send_request->set_send_immediately( 'X' ).
      g_send_request->send(
          EXPORTING
            i_with_error_screen = 'X'
          RECEIVING
            result = g_sent_to_all ).
      COMMIT WORK.
    CATCH cx_bcs INTO g_cx_bcs.
      WRITE:/ g_cx_bcs->error_type.
  ENDTRY.
Kind Regards
Eswar