Send Email with Attachment in BSP?

Question

Hello,
     I have trouble about sending Email in BSP .
     I don't know how to <b>Send Email with attachment in BSP</b> . Please give me some advice .
    Thank you very much!

Answer 1

Here is a sample application..
<b>Layout</b>
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content design="design2003" >
  <htmlb:page title="Send Mail with Attachment " >
    <htmlb:form id           = "form1"
                encodingType = "multipart/form-data" >
      <htmlb:label for  = "MAILTO"
                   text = "Mail to" />
      <htmlb:inputField id    = "MAILTO"
                        size  = "20"
                        value = "<%= mail_to %>"
                        type  = "string" />
      <htmlb:fileUpload id          = "myUpload"
                        onUpload    = "HandleUpload"
                        upload_text = "Attach"
                        size        = "90" />
    </htmlb:form>
  </htmlb:page>
</htmlb:content>
<b>Page attributes:</b>
mail_to     TYPE     ADR6-SMTP_ADDR     E-Mail Address
<b> Event handler OnInputprocessing..</b>
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD,
      file_content TYPE XSTRING,
      file_length TYPE STRING,
      file_mime_type TYPE STRING,
      file_name TYPE STRING.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
                       request = request
                       id      = 'myUpload'
                       name    = 'fileUpload' ).
if fileUpload is not INITIAL.
  file_name      = fileUpload->file_name.
  file_mime_type = fileUpload->file_content_type.
  file_length    = fileUpload->file_length.
  file_content   = fileUpload->file_content.
  mail_to = request->get_form_field( `MAILTO` ).
* Send mail part..
  CLASS cl_bcs DEFINITION LOAD.
  DATA:
        lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
  lo_send_request = cl_bcs=>create_persistent( ).
* Message body and subject
  DATA:
        lt_message_body TYPE bcsy_text VALUE IS INITIAL,
        lt_att_content_hex type solix_tab,
        lo_document TYPE REF TO cl_document_bcs VALUE IS INITIAL.
  APPEND 'Dear Vendor,' TO lt_message_body.
  append ' ' to lt_message_body.
  APPEND 'Please find the attached report.'
  TO lt_message_body.
  append ' ' to lt_message_body.
  APPEND 'Thank You,' TO lt_message_body.
  lo_document = cl_document_bcs=>create_document(
  i_type = 'RAW'
  i_text = lt_message_body
  i_subject = 'Visit report' ).
  data: data_tab type solix_tab,
  p_data type XSTRING.
* Pass the data of the document we have uploaded..
  p_data = file_content.
  call function 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer     = p_data
    TABLES
      binary_tab = data_tab.
  DATA: lx_document_bcs TYPE REF TO cx_document_bcs VALUE IS INITIAL.
  TRY.
      lo_document->add_attachment(
      EXPORTING
      i_attachment_type = 'PDF'
      i_attachment_subject = 'Visit Report'
      i_att_content_hex = data_tab ).
    CATCH cx_document_bcs INTO lx_document_bcs.
  ENDTRY.
* Add attachment
* Pass the document to send request
  lo_send_request->set_document( lo_document ).
* Create sender
  DATA:
  lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
  l_send type ADR6-SMTP_ADDR value '[email protected]'.
* Set sender
  l_send = mail_to.
  lo_sender = cl_cam_address_bcs=>create_internet_address( l_send ).
  lo_send_request->set_sender(
  EXPORTING
  i_sender = lo_sender ).
* Create recipient
  DATA:
  lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL.
  lo_recipient = cl_sapuser_bcs=>create( sy-uname ).
** Set recipient
  lo_send_request->add_recipient(
  EXPORTING
  i_recipient = lo_recipient
  i_express = 'X' ).
  lo_send_request->add_recipient(
  EXPORTING
  i_recipient = lo_recipient
  i_express = 'X' ).
* Send email
  DATA: lv_sent_to_all(1) TYPE c VALUE IS INITIAL.
  lo_send_request->send(
  EXPORTING
  i_with_error_screen = 'X'
  RECEIVING
  result = lv_sent_to_all ).
  COMMIT WORK.
endif.
Hope this will be helpful.
Raja T