Email sending: "sending report output directly to the body of the email"

Question

Hi
     I got one requirement.this is the enhancement to already exisitng report.when user clicks on send email check box,report has to be display and this report output has to be send to email of the particular vendor. it has be seen directly in the body of the mail.not as attachement.Report output is in ALV format.Data is stored in internal table t_data.can anyone suggest what is the procedure for this.

Answer 1

Hi i have tried the same thing and it works very fine,
i will share my code, you just follow exactly, hopefully you can solve the issue..
you refer clearly the body of the mail,
it should solve your issue/
FORM send_email .
    DATA  lt_message     TYPE            bcsy_text.
    DATA  lv_mail_title  TYPE            so_obj_des.
    DATA  document       TYPE REF TO     cl_document_bcs.
    DATA  recipient      TYPE REF TO     if_recipient_bcs.
    DATA  send_request   TYPE REF TO     cl_bcs.
    DATA  sent_to_all    TYPE            os_boolean.
    DATA  bcs_execption  TYPE REF TO     cx_bcs.
    DATA  wf_string(200)  TYPE            c.
*    DATA  wf_string      TYPE            string.
    DATA  doc_execption  TYPE REF TO     cx_document_bcs.
    DATA lv_status(20)    TYPE c.
    DATA lv_count_email TYPE i.
    DATA lv_temp_stepcount TYPE c.
    LOOP AT wt_email INTO wa_email.
      TRY.
          CLEAR send_request.
          send_request = cl_bcs=>create_persistent( ).
*Create Title
          lv_mail_title = 'Report Title'.
*Create Message(EMAIL Body)
          REFRESH lt_message.
          APPEND '<p><b>Dear Sir/Madam,</b></p>' TO lt_message.
          APPEND '<p>The following report shows the status of </p>' TO lt_message.
          APPEND '<br>' TO lt_message.
          APPEND '<table border= "1" color = 2>' TO lt_message.
          CLEAR wf_string.
          CONCATENATE '<th><tr>'
                      '<td>Vendor  </td>'
                      '<td>Vendor Name</td>'
                      '<td>Coloun 1</td>'
                      '<td>Coloum 2</td>'
                      '</tr></th>' INTO wf_string.
          APPEND wf_string TO lt_message.
          LOOP AT wt_itbl INTO wa_itbl WHERE vendor = wa_email-vendor. "-> Define your Condition here wt_email( should contains vendor and its respective email id)
           CLEAR wf_string.
            CONCATENATE '<tr><td>' wa_itbl-vendor '</td>' INTO wf_string.
            APPEND wf_string TO lt_message.
            CONCATENATE '<td>' wa_itbl-Vendor_name '</td>' INTO wf_string.
            APPEND wf_string TO lt_message.
            CONCATENATE '<td>' wa_itbl-COL2 '</td></tr>' INTO wf_string.
            APPEND wf_string TO lt_message.
            CONCATENATE '<td>' wa_itbl-COL3 '</td></tr>' INTO wf_string.
            APPEND wf_string TO lt_message.
          ENDLOOP.
          APPEND '</table>' TO lt_message.
          APPEND '<br>' TO lt_message.
          APPEND '<p><b>Thank You</b></p>' TO lt_message.
*Create Document
          CLEAR  document.
          TRY.
              CALL METHOD cl_document_bcs=>create_from_text
                EXPORTING
                  i_text         = lt_message
                  i_documenttype = 'HTM'
                  i_subject      = lv_mail_title
                RECEIVING
                  result         = document.
            CATCH cx_document_bcs INTO doc_execption.
          ENDTRY.
*Add document to email
          send_request->set_document( document ).
*Add recipients to send request
          IF wa_email-smtp_addr IS NOT INITIAL.
            recipient = cl_cam_address_bcs=>create_internet_address(
                      i_address_string = wa_email-smtp_addr ).
            send_request->add_recipient( i_recipient = recipient ).
          ENDIF.
*Send Email
          CALL METHOD send_request->send
            RECEIVING
              result = sent_to_all.
          COMMIT WORK.
          IF sent_to_all EQ 'X'.
            lv_count_email = lv_count_email + 1.
          ENDIF.
        CATCH cx_bcs INTO bcs_execption.
      ENDTRY.
    ENDLOOP.
    IF sent_to_all = 'X'.
      SKIP 2.
      FORMAT COLOR COL_GROUP INTENSIFIED ON.
      ULINE /(10).
      WRITE: / 'Remark : '.
      ULINE /(10).
      FORMAT RESET.
      WRITE: /  'Email Message Sent Succesfully'.
      RETURN.
    ENDIF.
  ENDFORM.