Sending mail with excel more than 255 character in a line

Question

Dears,
In my program , I use SO_NEW_DOCUMENT_ATT_SEND_API1  to send email with EXCEL attacment.
But when i want output a line more than 255 characters  in the excel I met the problem, it only appeared 255 characters
describe table mailbin lines tab_lines.
    mailpack-transf_bin = c_checked.
    mailpack-head_start = 1.
    mailpack-head_num = 1.
    mailpack-body_start = 1.
    mailpack-body_num = tab_lines.
    mailpack-doc_type = c_xls.
    mailpack-obj_name = space.
    mailpack-obj_descr = lv_mail_title. "the excel file name
    mailpack-doc_size = tab_lines * 255.
    append mailpack.
* Sending the document
      call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
        exporting
          document_data              = maildata
          put_in_outbox              = space
          commit_work                = c_checked
        tables
          packing_list               = mailpack
          object_header              = mailhead
          contents_bin               = mailbin
          contents_txt               = mailtxt
          receivers                  = mailrec
        exceptions
          too_many_receivers         = 1
          document_not_sent          = 2
          operation_no_authorization = 4
          others                     = 99.
But i have to output those characters in one line.
Anyone could help me?
Thanks a lot.
Sincerely,
Julie

Answer 1

data: objpack    like sopcklsti1 occurs 2 with header line.
data: objhead    like solisti1 occurs 1 with header line.
data: objbin     like solisti1 occurs 10 with header line,
        is_objbin  type  solisti1 .
data: objtxt     like solisti1 occurs 10 with header line,
        is_objtxt  type solisti1 .
  data: l_tab(1)   type c value cl_abap_char_utilities=>horizontal_tab,
       con_cret   type c value cl_abap_char_utilities=>cr_lf.
data: tab_lines  like sy-tabix,
        : tab_lines1 like sy-tabix.
  data : lenth_string type string,
        s_string     type string.
data : L type i, i type i,cplen type i, balance type i,
before describe table mailbin lines tab_lines ... Use below logic.
Loop at your_internaltable.
concatenate field_1
            field_2
            field_3
       into lenth_string separated by l_tab.
concatenate  lenth_string con_cret into lenth_string.  
concatenate s_string lenth_string into s_string.
endloop.
       L = strlen( s_string ).
       i = 0.
       cplen = 255.
       balance = l.
    do.
      if balance <= 0.
        exit.
      endif.
      if balance < 255.
        cplen = balance.
      else.
        cplen = 255.
      endif.
      objbin = s_string+i(cplen).
      i = i + cplen.
      balance = balance - cplen.
      append objbin.
    enddo. 
...... after this use ur exesting code....describe table mailbin lines tab_lines and so
    describe table objbin lines tab_lines1.
    clear objpack-transf_bin.
    objpack-transf_bin = ' '.
    objpack-head_start = 1.
    objpack-head_num = 1.
    objpack-body_start = 1.
    objpack-body_num = tab_lines1.
    objpack-obj_langu = 'E'.
    objpack-doc_type = 'XLS'.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    exporting
-tables
      packing_list               = objpack
      object_header              = objhead
      contents_bin               = objbin
      receivers                  = reclist
Regards,
Sri.
Edited by: sridhar arjunan on Jul 28, 2009 4:22 PM
Edited by: sridhar arjunan on Jul 28, 2009 4:23 PM