Problem in sending a mail in Excel Format

Question

Hi Experts,
          i have created one report which send a mail to the customer in Excel format. For that Report, i have used on function module for downloading .
  the Coding is like this,
   CALL FUNCTION 'WS_DOWNLOAD'
         EXPORTING
              FILENAME = 'C:\YD1.XLS'
              FILETYPE = 'DAT'
         TABLES
              DATA_TAB = ITAB_RESULT
              FIELDNAMES = IOUTHEAD.
  After Downloading i have send the XLS File to the Customer using user Function Module.
  My Problem is,
        I have attached the Excel to the Custmer.
But the Excel File not displaying the headers . But In my Business Workplace(sbwp) the Attached Excel file displaying the header and the Details . in SBWP it is displaying correctly. But when the Customer's Place(SyStem) the particular Excel File not displaying the Headers.
   where and what is the error in my report?
Regards,
Neptune.M

Answer 1

HI
GOOD
CHECK OUT THIS LINK,
http://www.thespot4sap.com/Articles/SAP_Mail_UNIX.asp
CODE
FORM SEND_MAIL.
  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.
  DATA: OBJTXT    LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
  DATA: RECLIST   LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
  DATA: DOC_CHNG  LIKE SODOCCHGI1.
  DATA: TAB_LINES LIKE SY-TABIX.
  DATA L_NUM(3).
Creation of the document to be sent
File Name
  DOC_CHNG-OBJ_NAME = 'SENDFILE'.
Mail Subject
  DOC_CHNG-OBJ_DESCR = 'Delivered Mail'.
Mail Contents
  OBJTXT = 'Object text'.
  APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creation of the entry for the compressed document
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  OBJPACK-DOC_TYPE = 'RAW'.
  APPEND OBJPACK.
Creation of the document attachment
  LOOP AT ITAB_DATA.
    CONCATENATE ITAB_DATA-PRODUCTOR
                ITAB_DATA-VBELN
                ITAB_DATA-POSNR
                ITAB_DATA-MATNR INTO OBJBIN.
    APPEND OBJBIN.
  ENDLOOP.
  DESCRIBE TABLE OBJBIN LINES TAB_LINES.
  OBJHEAD = 'ORDERS'.
  APPEND OBJHEAD.
Creation of the entry for the compressed attachment
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'TXT'.
  OBJPACK-OBJ_NAME   = 'WEBSITE'.
  OBJPACK-OBJ_DESCR  = 'ORDERS.TXT'.
  OBJPACK-DOC_SIZE   = TAB_LINES * 255.
  APPEND OBJPACK.
Completing the recipient list
target recipent
  clear RECLIST.
  RECLIST-RECEIVER = '[email protected]'.
  RECLIST-EXPRESS  = 'X'.
  RECLIST-REC_TYPE = 'U'.
  APPEND RECLIST.
copy recipents
  clear RECLIST.
  RECLIST-RECEIVER = '[email protected]'.
  RECLIST-EXPRESS  = 'X'.
  RECLIST-REC_TYPE = 'U'.
  RECLIST-COPY     = 'X'.
  APPEND RECLIST.
Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            DOCUMENT_DATA              = DOC_CHNG
       TABLES
            PACKING_LIST               = OBJPACK
            OBJECT_HEADER              = OBJHEAD
            CONTENTS_BIN               = OBJBIN
            CONTENTS_TXT               = OBJTXT
            RECEIVERS                  = RECLIST
       EXCEPTIONS
            TOO_MANY_RECEIVERS         = 1
            DOCUMENT_NOT_SENT          = 2
            OPERATION_NO_AUTHORIZATION = 4
            OTHERS                     = 99.
ENDFORM.                    " SEND_MAIL
THANKS
MRUTYUN