Email read and delivery receipt

Question

Hi,
I an sending a mail from SAP to the employees outlook and the sender is the common mail box which is entered on selction screen.
Our requirement is that the common email box should recieve read and delivery receipt for the mail.
Please tell me how to do it.
I am uisng the following code to send the mail.
    DATA : lt_att_content_hex TYPE solix_tab,
           lv_subject         TYPE so_obj_des,
           lv_async           TYPE c,
          " lx_email           TYPE type_email,
           lv_email           TYPE adr6-smtp_addr.
    DATA:  lx_document_bcs TYPE REF TO cx_document_bcs VALUE IS INITIAL.
    CLASS  cl_bcs DEFINITION LOAD.
    DATA:  lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
Message body and subject
    DATA:  lt_message_body TYPE bcsy_text VALUE IS INITIAL,
           lo_document     TYPE REF TO cl_document_bcs VALUE IS INITIAL.
Create recipient
    DATA:  lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL.
    lo_send_request = cl_bcs=>create_persistent( ).
               TRY.
    lo_send_request->asynchronous(
      RECEIVING
        result = lv_async ).
                CATCH cx_send_req_bcs .
               ENDTRY.
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer     = pdf_xstring "PDF file from function module
      TABLES
        binary_tab = lt_att_content_hex.
    CONCATENATE  ': ' pn-begda+0(4) 'Benefit. Statement' INTO lv_subject
    SEPARATED BY space.
    DATA: lx_string TYPE string.
Message Body
    APPEND ' Body' to lt_message_body.
    lo_document = cl_document_bcs=>create_document(    i_type = 'HTM'
                                                       i_text = lt_message_body
                                                       i_subject = lv_subject ).
    TRY.
        lo_document->add_attachment(
                      EXPORTING
                      i_attachment_type = 'PDF'
                      i_attachment_subject = lv_subject
                      i_att_content_hex = lt_att_content_hex ).
      CATCH cx_document_bcs INTO lx_document_bcs.
    ENDTRY.
Add attachment
Pass the document to send request
    lo_send_request->set_document( lo_document ).
    lo_recipient = cl_cam_address_bcs=>create_internet_address( 'XYZ@XYZ' ).
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' ).
Create sender
    DATA: lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
          l_send TYPE adr6-smtp_addr.
    l_send = p_email.
    lo_sender = cl_cam_address_bcs=>create_internet_address( l_send ).
Set sender
    lo_send_request->set_sender(
    EXPORTING
    i_sender = lo_sender ).
   TRY.
    lo_send_request->set_status_attributes(
      EXPORTING
         i_requested_status = 'A'
         i_status_mail      = 'A' )
    CATCH cx_send_req_bcs .
   ENDTRY.
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.
    MESSAGE 'The form has been emailed to the Manager' TYPE 'S'.
    CLEAR lt_message_body

Answer 1

Hi,
For reciepts to work the basis setting needs to be activated.
SCOT->Settings->Confirmation of Receipts