Problem in Attachment of the Mail

Question

Hi, I want to send the data in Internal Table as a text attachment to the SAP User Inbox. Problem I am facing is that, the records should go Line by Line i.e. each record should start from a new line but problem I am having is that, the next record starts in the same line where previous record has ended.
E.g. records should appear like this in file :
1. AAA XXX YYY ZZZ
2. XXX YYY ZZZ AAA
rather it is appearing like :
1. AAA XXX YYY ZZZ2. XXX YYY ZZZ AAA
I am giving the Code here to generate attachment and Mail I have used. Please help.
Data Declaration
data : begin of itab occurs 0,
         ws_line(600) type c,
       end of itab.
DATA : file_name TYPE string.
data : path like PCFILE-PATH.
data : extension(5) type c.
data : name(100) type c.
DATA : receiver TYPE somlreci1-receiver VALUE 'AHUJR0'.
DATA : BEGIN OF itab_str,
           text(290) TYPE c,
       END OF itab_str.
DATA: docdata LIKE sodocchgi1,
      objpack LIKE sopcklsti1  OCCURS 0 WITH HEADER LINE,
      objhead LIKE solisti1    OCCURS 0 WITH HEADER LINE,
      objtxt  LIKE solisti1    OCCURS 0 WITH HEADER LINE,
      objbin  LIKE itab_str    OCCURS 0 WITH HEADER LINE,
      objhex  LIKE solix       OCCURS 0 WITH HEADER LINE,
      reclist LIKE somlreci1   OCCURS 0 WITH HEADER LINE.
DATA: tab_lines TYPE i,
      doc_size TYPE i,
      att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
Function Called to Prepare & send mail
PERFORM ml_addrecp USING receiver 'B'.     "receiver contains SAP User Id
PERFORM doconv TABLES itab objbin.          "itab is the table containing Data
PERFORM ml_prepare USING 'X' 'txt' grn_file.  "grn_file is the name of attachment file
PERFORM ml_dosend.
Form ml_addrecp
FORM ml_addrecp USING preceiver prec_type.
CLEAR reclist.
reclist-receiver = preceiver.
reclist-rec_type = prec_type.
APPEND reclist.
ENDFORM. "ml_addrecp
Form doconv
FORM doconv TABLES mypdf STRUCTURE itab_str
                   outbin STRUCTURE itab_str.
Loop And Put Data
      LOOP AT mypdf.
          outbin = mypdf.
          APPEND outbin.
         CLEAR: outbin.
      ENDLOOP.
ENDFORM. "doconv
Form ml_prepare
FORM ml_prepare USING bypassmemory whatatt_type whatname.
IF bypassmemory = ''.
Fetch List From Memory
    CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        listobject = listobject
      EXCEPTIONS
        OTHERS = 1.
IF sy-subrc <> 0.
    MESSAGE ID '61' TYPE 'E' NUMBER '731'
    WITH 'LIST_FROM_MEMORY'.
ENDIF.
ENDIF.
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.
objpack-doc_type = 'TXT'.
APPEND objpack.
Packing Info Attachment
att_type = whatatt_type..
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.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = whatname.
APPEND objpack.
ENDFORM. "ml_prepare
Form ml_dosend.
FORM ml_dosend.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data = docdata
      put_in_outbox = 'X'
      commit_work = 'X' "used from rel. 6.10
    TABLES
      packing_list = objpack
      object_header = objhead
      contents_bin = objbin
      contents_txt = objtxt
      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.
ENDIF.
ENDFORM. "ml_dosend

Answer 1

Hi Ravi,
I also had the same problem, the solution to this is....  Instead of giving the TXT type to the attachment give as 'RAW' it will work...  it is working for me... note the place for the comment CHANGE I HAVE DONE in the code given by you...
objpack-doc_type = 'RAW'.  '' for the attachment instead of TXT...
Eg...
Packing Info Attachment
*att_type = whatatt_type..                          '" CHANGE I HAVE DONE
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.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
*objpack-doc_type = att_type.  " CHANGE I HAVE DONE
objpack-doc_type = 'RAW'.      " CHANGE I HAVE DONE
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = whatname.
APPEND objpack.
ENDFORM. "ml_prepare