Sending a pdf form through email

Question

Hi,
I want to send a pdf form through mail for this i have to write code(given below) but my problem is that
it send a xml file to vendor. i want to send its pdf form. how it is possible.........................
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING
    buffer                = fp_outputparams
  APPEND_TO_TABLE       = ' '
IMPORTING
  OUTPUT_LENGTH         =
  TABLES
    binary_tab            = lt_att_content_hex.
CLASS cl_bcs DEFINITION LOAD.
DATA:
lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
*--Create persistent send request
lo_send_request = cl_bcs=>create_persistent( ).
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.
APPEND 'Dear Vendor,' TO lt_message_body.
APPEND ' ' TO lt_message_body.
APPEND 'Please fill the attached form and send it back to us.' 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 = 'Vendor Payment Form' ).
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 = 'A Test Adobe Form').
               i_attachment_size =
               i_attachment_language = space
               i_att_content_text =
               i_attachment_header =
               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 ).
Create sender
DATA:
lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
l_send TYPE adr6-smtp_addr VALUE  '.............'.
lo_sender = cl_cam_address_bcs=>create_internet_address( l_send ).
Set sender
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.
MESSAGE 'The payment form has been emailed to the Vendor' TYPE 'I'.
Thanks in advance
Shri

Answer 1

Try below logic.
  DATA : it_objpack   TYPE STANDARD TABLE OF sopcklsti1 ,
         it_objtxt    TYPE STANDARD TABLE OF solisti1 ,
         it_objbin    TYPE STANDARD TABLE OF solisti1 ,
         it_reclist   TYPE STANDARD TABLE OF somlreci1 ,
         wa_doc_chng  TYPE sodocchgi1,
         wa_objhead   TYPE soli_tab,
         l_attachment TYPE i,
         l_testo      TYPE i.
  DATA:   wa_objpack TYPE sopcklsti1,
          wa_objtxt TYPE solisti1 ,
          wa_objbin TYPE  solisti1 ,
          wa_reclist TYPE  somlreci1 .
  CLEAR:  wa_reclist,
          wa_objhead,
          wa_objtxt,  it_objtxt[],
          wa_objbin,  it_objbin[],
          wa_objpack, it_objpack[].
Object with PDF.
  CLEAR wa_objbin.
  REFRESH it_objbin.
  it_objbin[] = gt_mess_att[].
  DESCRIBE TABLE it_objbin LINES l_attachment.
Object with main text of the mail.
  LOOP AT it_message INTO wa_message.
    wa_objtxt = wa_message. APPEND wa_objtxt TO it_objtxt.
  ENDLOOP.
  DESCRIBE TABLE it_objtxt LINES l_testo.
Document information.
  wa_doc_chng-obj_name = 'test'.
  wa_doc_chng-expiry_dat = sy-datum + 10.
  CONCATENATE 'Amex Settlement' ' '
                INTO wa_doc_chng-obj_descr .
doc_chng-sensitivty = 'F'.
  wa_doc_chng-sensitivty = 'P'.
  wa_doc_chng-obj_prio = '1'.
  wa_doc_chng-doc_size = l_testo * 255.
  CLEAR wa_objpack-transf_bin.
  wa_objpack-head_start = 1.
  wa_objpack-head_num   = 0.
  wa_objpack-body_start = 1.
  wa_objpack-body_num   = l_testo.
  wa_objpack-doc_type   = 'RAW'.
  APPEND wa_objpack TO it_objpack.
  CLEAR wa_reclist.
  wa_reclist-copy = 'X'.
  IF wa_email IS NOT INITIAL.
    wa_reclist-receiver = wa_email-value1.
    wa_reclist-express  = 'X'.
    wa_reclist-rec_type = 'U'.
    wa_reclist-notif_del = 'X'.
    wa_reclist-notif_ndel = 'X'.
    APPEND wa_reclist TO it_reclist.
   ENDLOOP.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = wa_doc_chng
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_objpack
        object_header              = wa_objhead
        contents_bin               = it_objbin
        contents_txt               = it_objtxt
        receivers                  = it_reclist
      EXCEPTIONS
        too_many_receivers         = 1
        document_not_sent          = 2
        document_type_not_exist    = 3
        operation_no_authorization = 4
        parameter_error            = 5
        x_error                    = 6
        enqueue_error              = 7
        OTHERS                     = 8.
    IF sy-subrc <> 0.
      WRITE 'Cannot send email'.
    ENDIF.
  ENDIF.