External Email error in SO_DOCUMENT_SEND_API1 from 4.6c to ECC

Question

Hi everyone,
We are using SO_DOCUMENT_SEND_API1 Funtion module in a program to send to external emails in 4.6c,now if we use the same program in ECC 6.0 it shows document_not_send (exceptions no. 2)
while debugging that Function module(SO_DOCUMENT_SEND_API1)  the bcs exception (CL_SEND_REQUEST_BCS) is occuring in Function Module SO_OBJECT_SEND 
(Error type : DNS_SREQ)
can anybody help to resolve this exception...
i found that the Function module(SO_DOCUMENT_SEND_API1)  is different
in both the systems (4.6c and ECC)

Answer 1

Hi,
Use this Code as-is.. this will work.. I am using in the Interface. logic. .now these are in PRD
*Send Log as E-Mail Attachment
*Get E-Mail ids from Table ZINT_PARAM
  SELECT intid
         parid1
         parid2
         pval1
         FROM zint_param
         INTO TABLE t_zint_param
         WHERE intid  = c_concur_empexp
         AND   parid1 = c_email.
*Attachment Heading
  CLEAR v_cnt.
*Get Week ending date
  CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
    EXPORTING
      date   = sy-datum
    IMPORTING
      sunday = v_lastdate.
  WRITE v_lastdate TO v_datum.
  CONCATENATE sy-uname text-010 v_datum INTO v_reportname SEPARATED BY space.
  v_name = sy-uname.
  CONDENSE v_name.
  LOOP AT t_log INTO s_log.
Code Replace by balal
    CONCATENATE
      s_log-xref1
      s_log-ref
      s_log-lifnr
      s_log-textgl
      s_log-type
      INTO s_attach-line SEPARATED BY c_tab.
    CONCATENATE c_cret s_attach-line INTO s_attach-line.
    CONDENSE s_attach-line.
    APPEND s_attach TO t_attach.
    CLEAR s_attach-line.
    CONCATENATE c_tab s_log-log INTO s_log-log.
    CONCATENATE  s_log-log
                 s_log-belnr
                 s_log-amount
          INTO s_attach-line SEPARATED BY c_tab.
    CONDENSE s_attach-line.
    APPEND s_attach TO t_attach.
    CLEAR s_attach.
    CLEAR s_log.
  ENDLOOP.
  CONDENSE s_attach-line.
  CONCATENATE space c_cret INTO s_attach-line.
  APPEND s_attach TO t_attach.
  CLEAR s_attach.
Body Message
  s_mailbody-line = space.
  APPEND s_mailbody TO t_mailbody.
  CLEAR s_mailbody.
  CLEAR v_datum.
  WRITE sy-datum TO v_datum.
  CONCATENATE  'Attached is the upload file for the Expense Reports Authorized on'(001) v_datum
  INTO s_mailbody-line SEPARATED BY space.
  CONCATENATE s_mailbody-line 'from Concur'(002) INTO s_mailbody-line SEPARATED BY space.
  APPEND s_mailbody TO t_mailbody.
  CLEAR s_mailbody.
*Subject
  CONCATENATE 'Expense Reports Authorized on'(003) v_datum INTO  v_subj SEPARATED BY space.
  t_send_request  = cl_bcs=>create_persistent( ).
  t_document  = cl_document_bcs=>create_document(
                i_type = c_raw
                i_text = t_mailbody
                i_importance = '1'
                i_subject =  v_subj ).
*Attachment
  CONCATENATE v_subj '.xls'(004) INTO v_subj.
  CALL METHOD t_document->add_attachment
    EXPORTING
      i_attachment_type    = 'XLS'
      i_attachment_subject = v_subj
      i_att_content_text   = t_attach.
*Receivers
  t_send_request->set_document( t_document ).
*Add Recipient E-mail Id's are available in this internal table
  LOOP AT t_zint_param INTO s_zint_param.
    v_mailid  = s_zint_param-pval1.
    t_recipient = cl_cam_address_bcs=>create_internet_address( v_mailid ).
    t_send_request->add_recipient(
      EXPORTING
        i_recipient = t_recipient
        i_express   = '' ).
    CLEAR : v_mailid ,s_zint_param.
  ENDLOOP.
*Send Mail
  t_send_request->set_send_immediately( 'X' ).
  t_send_request->send( ).
  COMMIT WORK.