Need to attavh a file with email message

Question

Hi All,
I need to attach a file to the email message, for the same I am using the function module SO_OBJECT_SEND.
but coudl not succeed.
Can any one have insight over the function module that how I can use it for a attching a mail to email message.
Please suggest your thoughts on the same.
Thansk,
Sandy.

Answer 1

Try with FM SO_NEW_DOCUMENT_ATT_SEND_API1
Sample code
  data: IS_DOCDATA   type SODOCCHGI1,
        IS_RECEIVERS type SOMLRECI1,
        IS_RECEIVERS_COPY type SOMLRECI1,
        IT_RECEIVERS type table of SOMLRECI1,
        IS_CONTENT   type SOLISTI1,
        IT_CONTENT   type table of SOLISTI1,
*500369789+
        l_txt(255)    type c,
        lt_objpack    TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
        lt_objhead    TYPE TABLE OF solisti1   WITH HEADER LINE,
        lt_objtxt     TYPE TABLE OF solisti1   WITH HEADER LINE,
        l_tab_lines TYPE i,
        l_att_type  LIKE soodk-objtp.
*500369789+
  IS_DOCDATA-OBJ_NAME = 'MAIL'.
  IS_DOCDATA-PRIORITY = 5.
  IS_DOCDATA-OBJ_LANGU = SY-LANGU.
  IS_DOCDATA-NO_CHANGE = 'X'.
  IS_DOCDATA-OBJ_DESCR = SY-CPROG.
  loop at IT_MESSAGE into IS_MESSAGE.
    clear : IS_CONTENT, l_txt.  "500369789+
    move is_message-line to l_txt. "500369789+
   move IS_MESSAGE-LINE to IS_CONTENT-LINE. "500369789-
    move l_txt to IS_CONTENT-LINE. "500369789+
    append IS_CONTENT to IT_CONTENT.
  endloop.
*---select_email_address
  select single
         EMAILADDR
         CCEMAILADDR
    into (IS_RECEIVERS-RECEIVER, IS_RECEIVERS_COPY-RECEIVER)
    from ZGL_EMAILCTRL
   where IDENT = ''
     and ZPROGRAM = 'Z_L_SO_CREA'
     and ACTIVE = 'X'.
  if IS_RECEIVERS-RECEIVER is not initial.
    IS_RECEIVERS-REC_TYPE = 'U'.
    IS_RECEIVERS_COPY-REC_TYPE = 'U'.
    IS_RECEIVERS_COPY-COPY = 'X'.
    append IS_RECEIVERS to IT_RECEIVERS.
    append IS_RECEIVERS_COPY to IT_RECEIVERS.
*500369789+
   lt_objhead-line = 'USA Order Report'.
   append lt_objhead.
   DESCRIBE TABLE lt_objhead LINES l_tab_lines.
   CLEAR lt_objpack-transf_bin.
   lt_objpack-doc_size = STRLEN( lt_objhead ).
   lt_objpack-head_start = 1.
   lt_objpack-head_num = 1.
   lt_objpack-body_start = 1.
   lt_objpack-body_num = 1.
   lt_objpack-doc_type = 'RAW'.
   APPEND lt_objpack.
   l_att_type = 'RAW'.
  DESCRIBE TABLE it_content LINES l_tab_lines.
  READ TABLE it_content into is_content INDEX l_tab_lines.
  lt_objpack-doc_size = ( l_tab_lines - 1 ) * 255.
  lt_objpack-doc_size = lt_objpack-doc_size + STRLEN( is_content ).
  lt_objpack-transf_bin = 'X'.
  lt_objpack-head_start = 1.
  lt_objpack-head_num = 2.
  lt_objpack-body_start = 1.
  lt_objpack-body_num = l_tab_lines.
  lt_objpack-doc_type = l_att_type.
  lt_objpack-obj_name = 'ATTACHMENT'.
  concatenate 'Usa' SY-DATUM6(2) SY-DATUM4(2) into
  lt_objpack-obj_descr.                   "#EC *
  APPEND lt_objpack.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
     EXPORTING
      document_data              = IS_DOCDATA
      commit_work                = 'X'
    TABLES
      packing_list               = lt_objpack
    object_header              = lt_objhead
      contents_txt               = lt_objhead
      contents_bin               = it_content
      receivers                  = it_receivers
    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.