Issue in sending the file as attachment

Question

I am using functional module 'SO_NEW_DOCUMENT_ATT_SEND_API1' to send the email with attachment.
If the file type is 'RAW', the records are getting displayed as that of the source file. For the other file types, all the records are getting displayed in a single line in the output. Please let me know the solution for this.

Answer 1

Hi Saranya,
Chk this example:
  DATA :  DS_OBJPACK TYPE SOPCKLSTI1,
          DS_OBJHEAD TYPE SOLISTI1,
          DS_OBJBIN TYPE SOLISTI1,
          DS_OBJTXT TYPE SOLISTI1,
          DS_RECLIST TYPE SOMLRECI1.
*--MAIL related Internal tables
  DATA: DS_XDOCCHNG TYPE SODOCCHGI1,                     " document
                                                         " attributes
        DT_OBJPACK TYPE STANDARD TABLE OF SOPCKLSTI1,    " attachment
                                                         " table
        DT_OBJHEAD TYPE STANDARD TABLE OF SOLISTI1,      " objectheader
                                                         " table
        DT_OBJBIN TYPE STANDARD TABLE OF SOLISTI1,       " binary table
        DT_OBJTXT TYPE STANDARD TABLE OF SOLISTI1,       " object text
        DT_RECLIST TYPE STANDARD TABLE OF SOMLRECI1.     " mail
  " recipients
  DATA: DL_TEXT       TYPE CHAR50,
        DL_TABLELINES TYPE SY-TABIX,
        DL_STARTDATE(10)  TYPE C,
        DL_ENDDATE(10)    TYPE C,
        DL_SUBJECT(100)    TYPE C, "sin_obj_de,  Subject for Mail
        DL_SDATE      TYPE CHAR10,
        DL_DDATE      TYPE CHAR10,
        DL_CDATE     TYPE CHAR10,
        DL_DATE     TYPE CHAR10,
        DL_FDATE     TYPE CHAR10,
        DL_SYDATE     TYPE CHAR10.
*subject of the mail
*if delivery date in entered
IF NOT S_CONDAT[] IS INITIAL.
   WRITE S_CONDAT-LOW TO DL_STARTDATE MM/DD/YYYY.
   WRITE S_CONDAT-HIGH TO DL_ENDDATE MM/DD/YYYY.
   IF S_CONDAT-HIGH IS INITIAL.
     CONCATENATE 'Capital FutIssue- Dtd Btn'(007)
                 DL_STARTDATE
                 DL_STARTDATE
                 INTO DL_SUBJECT SEPARATED BY SPACE.
   ELSE.
     CONCATENATE 'Capital FutIssue- Dtd Btn'(007)
                 DL_STARTDATE
                 'and'
                 DL_ENDDATE
                 INTO DL_SUBJECT SEPARATED BY SPACE.
   ENDIF.
ELSE.
  WRITE SY-DATUM TO DL_SYDATE MMDDYY.
  CONCATENATE 'Capital FutIssue- Exectd on'(008)
             DL_SYDATE
             INTO DL_SUBJECT SEPARATED BY SPACE.
ENDIF.
*-- Populate mail id
  CHECK S_USERID[] IS NOT INITIAL." OR P_DLIST IS NOT INITIAL.
  IF NOT S_USERID[] IS INITIAL.
    LOOP AT S_USERID.
      CONCATENATE S_USERID-LOW '@ntmcon02.emn.com'(009) INTO
                                DS_RECLIST-RECEIVER.
      DS_RECLIST-REC_TYPE = 'U'.
      APPEND DS_RECLIST TO DT_RECLIST.
    ENDLOOP.
  ENDIF.
*-- Mail subject line
  CLEAR: DS_XDOCCHNG.
  DS_XDOCCHNG-OBJ_NAME = 'HEADING'.
  DS_XDOCCHNG-OBJ_DESCR = DL_SUBJECT.
*-- Mail body
CONCATENATE TEXT-010  SPACE INTO DS_OBJTXT SEPARATED BY SPACE.
  DS_OBJTXT = TEXT-010.
  APPEND DS_OBJTXT TO DT_OBJTXT.
*-- Populate the attachment text.
*-- Header
  CONCATENATE TEXT-036
              TEXT-026
              TEXT-053
              TEXT-052
              TEXT-037
              TEXT-018
              TEXT-019
              TEXT-022
              TEXT-021
              TEXT-017
              TEXT-023
              TEXT-024
              TEXT-025
              TEXT-027
              TEXT-028
              TEXT-020
              TEXT-029
              TEXT-030
              TEXT-038
              TEXT-046
              TEXT-047
              TEXT-048
              TEXT-049
              TEXT-031
              TEXT-032
              TEXT-034
              TEXT-035
              INTO DS_OBJBIN
              SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
  APPEND DS_OBJBIN TO DT_OBJBIN.
  CLEAR  DS_OBJBIN.
*--Body
  CLEAR: DS_FINAL.
  LOOP AT DT_FINAL INTO DS_FINAL.
    DG_MENGE   = DS_FINAL-MENGE.
    DG_CMOQTY  = DS_FINAL-CMOQTY.
    DG_WEMNG   = DS_FINAL-RECV_QTY.
    DG_BALANCE = DS_FINAL-BALANCE.
    DG_DAYS    = DS_FINAL-DAYDIFF.
    WRITE DS_FINAL-CONSDT TO DL_DATE MM/DD/YYYY NO-ZERO.
    WRITE DS_FINAL-SLFDT TO DL_SDATE MM/DD/YYYY NO-ZERO .
    WRITE DS_FINAL-EINDT TO DL_DDATE MM/DD/YYYY NO-ZERO.
    WRITE DS_FINAL-AEDAT TO DL_CDATE MM/DD/YYYY NO-ZERO.
Calling conversion exit to display WBS in external format
    PERFORM CONV_EXIT_ABPSN_OUT CHANGING DS_FINAL-WBS.
    CONCATENATE    DL_DATE
                   DL_DDATE
                   DS_FINAL-DAYDIFF
                   DS_FINAL-EXPEDITE
                   DS_FINAL-FLTDT
                   DS_FINAL-AUFNR
                   DS_FINAL-CMOITEM
                   DG_CMOQTY
                   DG_BALANCE
                   DG_MENGE
                   DG_WEMNG
                   DS_FINAL-EBELN
                   DL_CDATE
                   DL_SDATE
                   DS_FINAL-EBELP
                   DS_FINAL-TXZ01
                   DS_FINAL-MATNR
                   DS_FINAL-MAKTX
                   DS_FINAL-WBS
                   DS_FINAL-INDOOR
                   DS_FINAL-FOOTPRINT
                   DS_FINAL-WEIGHT
                   DS_FINAL-STORAGE
                   DS_FINAL-LIFNR
                   DS_FINAL-NAME1
                   DS_FINAL-EKGRP
                   DS_FINAL-AFNAM
         INTO DS_OBJBIN
      SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
    TRANSLATE DS_OBJBIN USING ', '.
   CONCATENATE CL_ABAP_CHAR_UTILITIES=>NEWLINE DS_OBJBIN INTO DS_OBJBIN
    APPEND DS_OBJBIN TO DT_OBJBIN.
    CLEAR  DS_OBJBIN.
  ENDLOOP.
**-- Populate packing list for body text
  DS_OBJPACK-TRANSF_BIN = ''.
  DS_OBJPACK-HEAD_START = 1.
  DS_OBJPACK-HEAD_NUM   = 0.
  DS_OBJPACK-BODY_START = 1.
  DS_OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND DS_OBJPACK TO DT_OBJPACK.
  CLEAR DS_OBJPACK.
*-- Get total no.of lines of Object table(attachment)
  CLEAR : DL_TABLELINES.
  DESCRIBE TABLE DT_OBJBIN LINES DL_TABLELINES.
  DL_TEXT = DL_SUBJECT.
*-- Packing list for attachment
  DS_OBJPACK-TRANSF_BIN = 'X'.
  DS_OBJPACK-HEAD_START = 1.
  DS_OBJPACK-HEAD_NUM = 1.
  DS_OBJPACK-BODY_START = 1.
  DS_OBJPACK-BODY_NUM = DL_TABLELINES .
  DS_OBJPACK-DOC_TYPE = 'XLS'.
  DS_OBJPACK-OBJ_NAME = ' '.
  DS_OBJPACK-OBJ_DESCR = DL_TEXT.
  DS_OBJPACK-DOC_SIZE = DL_TABLELINES * 255.
  APPEND DS_OBJPACK TO DT_OBJPACK.
  CLEAR  DS_OBJPACK.
*-- Sending the EMail document in given format
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = DS_XDOCCHNG
      PUT_IN_OUTBOX              = 'X'
      COMMIT_WORK                = 'X'
    TABLES
      PACKING_LIST               = DT_OBJPACK
     OBJECT_HEADER              = IT_OBJHEAD
      CONTENTS_BIN               = DT_OBJBIN
      CONTENTS_TXT               = DT_OBJTXT
      RECEIVERS                  = DT_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 NE 0 .
    WRITE:/ SY-SUBRC , 'Mail document not sent'(004).
  ELSE.
    MESSAGE S000 WITH 'Mail sent successfully'(012).
  ENDIF.
Thanks,
Keerthi.