Create attachment of a file stored on the app server for mail

Question

Hello All:
I am working on sending a mail with attachemnts (file from the app server), i am aware of numerous solutions posted on the forum ....i am  able to create an attachment and send mail. the problem i am facing is the attachment is corrupted . can some one guide me as what i am ding wrong . here's the code
DATA: REC(80) TYPE C.
    DATA: L_SIZE TYPE DRAO-ORLN.
    DATA: L_LINES TYPE I.
    DATA: L_DATA_TAB TYPE TABLE OF RCGREPFILE.
    DATA: L_DATA_TAB1 TYPE TABLE OF RCGREPFILE.
    DATA: L_DATA_WA TYPE RCGREPFILE.
    DATA: N_FILE TYPE RCGIEDIAL-IEFILE.
    P_FILE = '/usr/sap/MIE/SYS/global/PDFSpools/30978.pdf'.
    N_FILE = P_FILE.
    CONCATENATE 'C:temp' RQ2NAME '.pdf' INTO ELPATH.
*   Read Data from the App server
    OPEN DATASET  P_FILE FOR INPUT IN BINARY MODE .
    DO.
      READ DATASET P_FILE INTO REC.
      IF SY-SUBRC NE 0.
        EXIT.
      ELSE.
        L_ANN = REC.
        APPEND  L_ANN TO T_PDF .
      ENDIF.
    ENDDO.
    CLOSE DATASET P_FILE.
*   How do i get the filesize ?
    CLEAR L_ANN.
    DESCRIBE TABLE T_PDF LINES LIN_TEXT.
    LOOP AT T_PDF INTO L_ANN.
      APPEND L_ANN TO T_ANN.
    ENDLOOP.
*    Using this i get the file size
*    CALL FUNCTION 'C13Z_RAWDATA_READ'
*      EXPORTING
*        I_FILE           = N_FILE
*      IMPORTING
*        E_FILE_SIZE      = L_SIZE
*        E_LINES          = L_LINES
*      TABLES
*        E_RCGREPFILE_TAB = L_DATA_TAB
*      EXCEPTIONS
*        NO_PERMISSION    = 1
*        OPEN_FAILED      = 2
*        OTHERS           = 3.
*    CLEAR L_ANN.
*    DESCRIBE TABLE L_DATA_TAB LINES LIN_TEXT.
*    LOOP AT L_DATA_TAB INTO L_DATA_WA.
*      L_ANN-LINE = L_DATA_WA-ORBLK.
*      APPEND L_ANN TO T_ANN.
*    ENDLOOP.
    DOC_CHNG-OBJ_NAME   = 'URGENT'.
    DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.
    DOC_CHNG-OBJ_DESCR  = TEXTS.
    DOC_CHNG-SENSITIVTY = 'O'.
*   DOC_CHNG-DOC_SIZE   = LIN_TEXT * 255.
    CLEAR OBJPACK-TRANSF_BIN.
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM   = 0.
    OBJPACK-BODY_START = 1.
*   OBJPACK-BODY_NUM   = LIN_TEXT.
    OBJPACK-DOC_TYPE   = 'RAW'.
    APPEND OBJPACK.
    NOMFITXER = ELPATH.
    CALL FUNCTION 'SPLIT_FILENAME'
      EXPORTING
        LONG_FILENAME  = NOMFITXER
      IMPORTING
        PURE_EXTENSION = EXTENSIO.
    OBJPACK-TRANSF_BIN = 'X'.
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM   = 1.
    OBJPACK-BODY_START = 1.
    OBJPACK-BODY_NUM   = LIN_TEXT.
    OBJPACK-DOC_TYPE   = EXTENSIO.
    OBJPACK-OBJ_NAME   = RQ2NAME.
    CONCATENATE RQ2NAME EXTENSIO
      INTO NOMFITXER SEPARATED BY '.'.
    OBJPACK-OBJ_DESCR = NOMFITXER.
    OBJPACK-DOC_SIZE  = L_SIZE * 255.
    APPEND OBJPACK.
    CALL FUNCTION 'BAPI_USER_GET_DETAIL'
      EXPORTING
        USERNAME = SY-UNAME
      TABLES
        RETURN   = BAPIRETUR
        ADDSMTP  = DADESUSER.
    READ TABLE BAPIRETUR WITH KEY TYPE = 'E'.
    IF SY-SUBRC NE 4.
    ELSE.
      READ TABLE DADESUSER INDEX 1.
*     REMITENT = DADESUSER-E_MAIL.
      REMITENT = SY-UNAME.
    ENDIF.
    TEXTS = 'TEST MAIL'.
    APPEND TEXTS.
    DESTINATARIS-RECEIVER   = SY-UNAME.
    DESTINATARIS-REC_TYPE   = 'B'.
    DESTINATARIS-EXPRESS    = 'X'.
*   DESTINATARIS-COM_TYPE   = 'INT'.
*   DESTINATARIS-NOTIF_DEL  = 'X'.
*   DESTINATARIS-NOTIF_NDEL = 'X'.
    APPEND DESTINATARIS.
    CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
         DOCUMENT_DATA                    = DOC_CHNG
         PUT_IN_OUTBOX                    = 'X'
         SENDER_ADDRESS                   = REMITENT
*        SENDER_ADDRESS_TYPE              = 'SMTP'
         COMMIT_WORK                      = ' '
       IMPORTING
         SENT_TO_ALL                      = ENVIAT
*        NEW_OBJECT_ID                    =
*        SENDER_ID                        =
       TABLES
         PACKING_LIST                     = OBJPACK
*        OBJECT_HEADER                    =
         CONTENTS_BIN                     = T_ANN
         CONTENTS_TXT                     = TEXTS
*        CONTENTS_HEX                     =
*        OBJECT_PARA                      =
*        OBJECT_PARB                      =
        RECEIVERS                        = DESTINATARIS
      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.
Message was edited by: Poornanand Mandalika. Code was formatted using the <b>Code</b> button!!

Answer 1

Assuming you are using Apache?
You could place your Word docs in the same folder as your current Apex images directory (or a sub-directory off it) then reference them with a URL of the form http://yourserver/i/sample_word_file.doc. Alternatively you could add a new Alias entry to your dads.conf file (found in your Apache/modplsql/conf directory) to expose the folder on your webserver that contains your Word files via a URL such as http://yourserver/word_docs/
E.g.
Alias /word_docs/ "c:\my_docs\technical_word_docs/"
Andy