STO mail : pdf attachment has an error 'file damage' when try to open it

Question

Dear expert,
I need to send an e-mail to the vendor with the sto list as attachment at the email.
I managed to send email to external addresee and made the pdf attachment, BUT somehow when I open the attachment it has an error says "Adobe Reader could not open xx.pdf because it is either not a supported file type or because the file has been damaged(for axample, it was sent as an email attachment and wasn't corectly decoded)."
Really need your experties to help me. Here is my abap coding to send email and do the pdf attachment at the new ouptput type to send email.
  TYPES: BEGIN OF lty_drad,
          doknr TYPE drad-doknr,
         END OF lty_drad,
         BEGIN OF lty_recpt,
           smtp_addr  TYPE ad_smtpadr,
         END   OF lty_recpt.
  DATA: lt_doc      TYPE STANDARD TABLE OF docs,
        lt_recpt    TYPE STANDARD TABLE OF lty_recpt,
        lt_tline    LIKE tline OCCURS 0 WITH HEADER LINE,
        lt_data     TYPE solix_tab,
        lt_docu     TYPE STANDARD TABLE OF lty_drad,
        lt_docfiles TYPE STANDARD TABLE OF bapi_doc_files2,
        lw_tline    LIKE LINE OF lt_tline,
        lw_docu     LIKE LINE OF lt_docu,
        lw_docfiles LIKE LINE OF lt_docfiles,
        lw_objdes   TYPE tnati-objdes,
        lt_text     TYPE bcsy_text,
        lw_recpt    TYPE adr6-smtp_addr,
        lw_adrnr    TYPE lfa1-adrnr,
        lw_object   TYPE drad-objky,
        lw_doknr    TYPE drad-doknr,
        lw_return   TYPE  bapiret2,
        lw_xcontent TYPE xstring,
        client    TYPE REF TO if_http_client,
         url       TYPE string,
         lw_subrc  TYPE sysubrc,
         response  TYPE REF TO if_http_response,
         lw_message1 TYPE string,
       sent_to_all TYPE os_boolean,
       bin_filesize type i.
  CONSTANTS: lc_dokar_srm TYPE drad-dokar VALUE 'SRM',
             lc_type      TYPE so_obj_tp  VALUE 'RAW'.
CLASS-DEFINITIONS
  DATA: send_request       TYPE REF TO cl_bcs.
  DATA: document           TYPE REF TO cl_document_bcs.
  DATA: sender             TYPE REF TO cl_sapuser_bcs.
  DATA: recipient          TYPE REF TO if_recipient_bcs.
  DATA: exception_info     TYPE REF TO if_os_exception_info,
        bcs_exception      TYPE REF TO cx_bcs.
  RANGES: lr_po_pr   FOR  drad-objky.
  DATA:   lw_banfn   TYPE ekpo-banfn,
          lw_bnfpo   TYPE ekpo-bnfpo.
  IF nast-nacha = '5'. "8
Create recipient and check if exist
   Get email ID
  start commented by sapnislina 21.12.06
   SELECT SINGLE adrnr FROM lfa1 INTO lw_adrnr
                WHERE lifnr = p_ekko-lifnr.
   IF sy-subrc NE 0.
     PERFORM protocol_update
       USING '303' 'Address of Vendor:' ekko-lifnr 'not found' space
     p_retco = sy-subrc.
     EXIT.
   ENDIF.
  end commented by sapnislina 21.12.06
   SELECT smtp_addr INTO CORRESPONDING FIELDS OF TABLE lt_recpt
        FROM adr6
       WHERE addrnumber = p_ekko-adrnr. "lw_adrnr.
    IF lt_recpt[] IS INITIAL.
      PERFORM protocol_update
        USING '303' 'Email address(es) does not exist for vendor'
        p_ekko-lifnr space space.
      p_retco = sy-subrc.
      EXIT.
    ENDIF.
    CALL FUNCTION 'CONVERT_OTF_2_PDF'
      EXPORTING
        use_otf_mc_cmd         = 'X'
      IMPORTING
        bin_filesize           = bin_filesize
      TABLES
        otf                    = otfdata[]
        doctab_archive         = lt_doc
        lines                  = lt_tline
      EXCEPTIONS
        err_conv_not_possible  = 1
        err_otf_mc_noendmarker = 2
        OTHERS                 = 3.
    IF sy-subrc <> 0.
    PERFORM protocol_update
        USING '303' 'PO Convertion from OTF to PDF failed'
              space space space.
      p_retco = sy-subrc.
      EXIT.
    ENDIF.
Get object description from mail title of output types
   SELECT SINGLE objdes INTO lw_objdes
          FROM tnati
          WHERE spras = sy-langu
          AND   kappl = nast-kappl
          AND   kschl = nast-kschl.
   CONCATENATE lw_objdes ekko-ebeln INTO lw_objdes SEPARATED BY
space
    DATA L_TXT(255) TYPE C.
    DATA L_TXT2(255) TYPE C.
    CONCATENATE 'STO' EKPO-EBELN 'Created for' EKPO-WERKS '/'
EKPO-LGORT
    'Supply Plant' EKKO-RESWK into l_txt separated by space.
    lw_objdes = l_txt.
    CONCATENATE 'STO' EKKO-EBELN INTO L_TXT2 SEPARATED BY SPACE.
    APPEND L_TXT2 TO LT_TEXT.
   APPEND lw_objdes TO lt_text.
Instantiate
    CLASS cl_cam_address_bcs DEFINITION LOAD.
    CLASS cl_abap_char_utilities DEFINITION LOAD.
insert by sapnislina 22.12.06
  DATA : CONTENT_OUT TYPE SOLIX,
         LINE_WIDTH_SRC TYPE I,
         POS_OUT TYPE I,
         POS_IN TYPE I,
         LEN_OUT TYPE I.
  DATA OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
  DATA : BEGIN OF CONTENT_IN,
            LINE TYPE TLINE,
            DUMMY TYPE TLINE,
         END OF CONTENT_IN.
  TYPES PDF_RAW TYPE X LENGTH 268.
  FIELD-SYMBOLS <PDF_BIN> TYPE PDF_RAW.
  DESCRIBE FIELD CONTENT_IN-LINE LENGTH LINE_WIDTH_SRC IN BYTE MODE.
  REFRESH lt_data.
  CLEAR CONTENT_OUT.
  POS_OUT = 0.
  LOOP AT OTFDATA INTO CONTENT_IN-LINE.
    ASSIGN CONTENT_IN TO <PDF_BIN> CASTING.
    MOVE <PDF_BIN> TO CONTENT_OUT-LINE+POS_OUT.
    ADD LINE_WIDTH_SRC TO POS_OUT.
    WHILE POS_OUT >= 255.
      APPEND CONTENT_OUT TO lt_data.
      CLEAR CONTENT_OUT.
      SUBTRACT 255 FROM POS_OUT.
      IF POS_OUT > 0.
        POS_IN = LINE_WIDTH_SRC - POS_OUT.
        MOVE <PDF_BIN>+POS_IN TO CONTENT_OUT-LINE.
      ENDIF.
    ENDWHILE.
  ENDLOOP.
  IF POS_OUT > 0.
  APPEND CONTENT_OUT TO lt_data.
  ENDIF.
end inserted by sapnislina 22.12.06
starting to create attachment to mail
    TRY.
       CLEAR send_request .
Create persistent send request
        send_request = cl_bcs=>create_persistent( ).
Build the document
        document = cl_document_bcs=>create_document(
                            i_type    = lc_type  "RAW
                            i_text    = lt_text  "def of output type
                            i_length  = '12'
                            i_subject = lw_objdes ).
Attached the document object
        CALL METHOD document->add_attachment
          EXPORTING
            i_attachment_type    = 'PDF'
            i_attachment_subject = lw_objdes "definition of output
type
            i_attachment_size    = '12'
            i_att_content_hex    = lt_data.
completed first part to attached PO (pdf format) as attachment
Now attach the PO related attachments to the mail..
.... need to read from table DRAD and get all the attachment per PO
     at run time
     REFRESH: lr_po_pr."lt_return.
        CLEAR:   lr_po_pr,lw_return.
        MOVE  'ICP'  TO  lr_po_pr.
     CLEAR: lw_object.
completed second part for PO related attachments
Now prepare to send mail
Add document to send request
     CALL METHOD send_request->set_document( document ).
Get sender object
     sender = cl_sapuser_bcs=>create( sy-uname ).
Add sender
     CALL METHOD send_request->set_sender
       EXPORTING
         i_sender = sender.
     LOOP AT lt_recpt INTO lw_recpt
                      WHERE NOT smtp_addr IS INITIAL.
      recipient = cl_cam_address_bcs=>create_internet_address(
lw_recpt ).
Add recipient with its respective attributes to send request
        CALL METHOD send_request->add_recipient
          EXPORTING
            i_recipient = recipient
            i_express   = 'X'.
        CLEAR recipient.
     ENDLOOP.
Send the document
    CALL METHOD send_request->send
      RECEIVING
        result              = sent_to_all.
Catch any exception
      CATCH cx_bcs INTO bcs_exception.
          CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
            EXPORTING
              msg_arbgb = bcs_exception->msgid
              msg_nr    = bcs_exception->msgno
              msg_ty    = bcs_exception->msgty
              msg_v1    = bcs_exception->msgv1
              msg_v2    = bcs_exception->msgv2
              msg_v3    = bcs_exception->msgv3
              msg_v4    = bcs_exception->msgv4
            EXCEPTIONS
              OTHERS    = 1.
          p_retco = sy-subrc.
    ENDTRY.
  ENDIF.
  IF NOT result-tdfaxid  IS INITIAL OR                      " 422131
     NOT result-tdmailid IS INITIAL.                        " 422131
    CLEAR syst-msgv1.                                       " 422131
    IF NOT result-tdfaxid IS INITIAL.                       " 422131
      syst-msgv1 = result-tdfaxid.                          " 422131
    ELSEIF result-tdmailid IS INITIAL.                      " 422131
      syst-msgv1 = result-tdmailid.                         " 422131
    ENDIF.                                                  " 422131
    CALL FUNCTION 'NAST_PROTOCOL_UPDATE'                    " 422131
         EXPORTING                                          " 422131
              msg_arbgb = 'VN'                              " 422131
              msg_nr    = '095'                             " 422131
              msg_ty    = 'I'                               " 422131
              msg_v1    = syst-msgv1                        " 422131
         EXCEPTIONS                                         " 422131
              OTHERS    = 1.                                " 422131
  ENDIF.                                                    " 422131
  IF result-userexit EQ 'C' OR
      result-userexit EQ 'E'.
    p_retco = '9'.
  ENDIF.
ENDFORM.                               " ENDE
end inserted
Regards
Nislina

Answer 1

Hi Nislina,
Could you please let me know how do you solve this issue.
Code:
if lt_binary[] is not initial.
*     add attachment to document
         call method document->add_attachment
           exporting
             i_attachment_type      = 'PDF'            
             i_attachment_subject = 'My Attachment'
             i_att_content_hex      = lt_binary.
  endif.
Thanks & Regard's
Sateesh