SO_NEW_DOCUMENT_ATT_SEND_API1 pdf attachment sending thru mail ecc 6.0

Question

Hi All,
I'm using ECC 6.0 version, I'm trying to attach a pdf file to a mail using the function module SO_NEW_DOCUMENT_ATT_SEND_API1. But gtting error as "wasn't decoded correctly", but the same coding is working fine in 4.6 version. What changes i should do while using this function module in ECC 6.0 to get it corrected.
Thanks & Regards,
Sabu.

Answer 1

Hi ,
I tried with SBWP, I'm able to see the pdf file attached while sending from SBWP.
Please see the below coding
      FORM make_the_message                                         *
FORM make_the_message.
Create Message Body
Title and Description
  CLEAR : docdata,
          objtxt[],
          objpack[],
          objbin[].
  docdata-obj_name  = sy-repid.
  docdata-obj_descr = p_subj.
Main Text
  LOOP AT gt_text INTO objtxt.
    APPEND objtxt.
  ENDLOOP.
Write Packing List (Main)
  DESCRIBE TABLE objtxt LINES tab_lines.
  READ     TABLE objtxt INDEX tab_lines.
  docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
  CLEAR objpack-transf_bin.
  objpack-head_start = 1.
  objpack-head_num   = 0.
  objpack-body_start = 1.
  objpack-body_num   = tab_lines.
Sabu
  objpack-doc_type   = 'RAW'.
objpack-doc_type   = 'PDF'.
End Sabu
  APPEND objpack.
*Start of Upgrade ECC 6.0
  Data: l_mi_bytecount TYPE i.
*End of Upgrade ECC 6.0
Create Message Attachment (As read earlier from frontend)
Write Packing List (Attachment)
Handle the attached file.
  objbin[] = gt_pdffile[].
  att_type = 'PDF'.
  DESCRIBE TABLE objbin LINES tab_lines.
  READ     TABLE objbin INDEX tab_lines.
  objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
  objpack-transf_bin = 'X'.
  objpack-head_start = 1.
*****Sabu 8496
objpack-head_num   = 0.
  objpack-head_num   = 1.
End Sabu
  objpack-body_start = 1.
  objpack-body_num   = tab_lines.
*Start of Upgrade ECC 6.0
  objpack-doc_type   = att_type.
  objpack-obj_name   = 'ATTACHMENT.pdf'.
  objpack-obj_descr  = 'Attached Document'.
*End of Upgrade ECC 6.0
  APPEND objpack.
Create receiver list
Generate ALV list for either Customers/Vendors/Contact persons etc.
ENDFORM.                    "make_the_message
      FORM fill_the_distribution_list                               *
FORM fill_the_distribution_list USING i_test
                                      i_fax
                                      i_faxcntry
                                      i_email.
Just as a test...
  CLEAR: reclist, reclist[].
  IF i_test EQ 'X'.
    CASE 'X'.
      WHEN p_sndfax.
      By Fax
        rec_fax-rec_fax   = i_fax.
        rec_fax-rec_state = i_faxcntry.
Start of Changes 07/09/2008
       reclist-receiver  = rec_fax.
        ASSIGN reclist-receiver TO <fs_reclist> CASTING.
        <fs_reclist> = rec_fax.
       rec_fax = <fs_reclist>.
End of Changes 07/09/2008
        reclist-rec_type  = 'F'.
        APPEND reclist.
      WHEN p_sndint.
      By Email
        reclist-receiver = i_email.
        reclist-rec_type = 'U'.
        reclist-BLIND_COPY = 'X'.
        APPEND reclist.
    ENDCASE.
  ELSE.
  This is not a test....
    LOOP AT gt_detail INTO gs_detail.
      CHECK gs_detail-flag EQ icon_green_light.
      CASE 'X'.
        WHEN p_sndfax.
        By Fax
          rec_fax-rec_fax   = gs_detail-faxnr.
          rec_fax-rec_state = gs_detail-land1.
Start of Changes 07/09/2008
          ASSIGN reclist-receiver TO <fs_reclist> CASTING.
          <fs_reclist> = rec_fax.
          rec_fax = <fs_reclist>.
         reclist-receiver  = rec_fax
End of Changes 07/09/2008
          reclist-rec_type  = 'F'.
          APPEND reclist.
        WHEN p_sndint.
        By Email
          reclist-receiver = gs_detail-email.
          reclist-rec_type = 'U'.
          reclist-BLIND_COPY = 'X'.
          APPEND reclist.
      ENDCASE.
    ENDLOOP.
  ENDIF.
ENDFORM.                    "fill_the_distribution_list
      FORM send_the_messages                                        *
FORM send_the_messages.
Send Message
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
          document_data                    = docdata
          put_in_outbox                    = 'X'
          commit_work                      = 'X'
    IMPORTING
        SENT_TO_ALL                      =
        NEW_OBJECT_ID                    =
      TABLES
          packing_list                     = objpack
          object_header                    = objhead
          contents_bin                     = objbin
          contents_txt                     = objtxt
        OBJECT_PARA                      =
        OBJECT_PARB                      =
          receivers                        = 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.
    MESSAGE ID     'SO'
            TYPE   'S'
            NUMBER '023'
            WITH   docdata-obj_name.
  ELSE.
    PERFORM popup.
  ENDIF.
ENDFORM.                    "send_the_messages
Thanks & Regards,
Sabu