Code to pickup app.server file and Email the same!!!

Question

Hi,
I need to write an ABAP code to pickup a file in application server and Email the same file to the intended receipients--
Can i get the code pls?

Answer 1

Hi Simran,
Please search the forum. There are many sample codes available for reading data in application server and mail sending.
User statements OPEN DATASET, READ DATASET and CLOSE DATA SET to get the application server data. Check F1 on these. You will come to know many interesting things.
Below is the sample code for mail sending.
DATA: li_reclist  TYPE STANDARD TABLE OF somlreci1,
      li_objpack  TYPE STANDARD TABLE OF sopcklsti1,
      li_content  TYPE STANDARD TABLE OF solisti1,
      lwa_reclist TYPE somlreci1,
      lwa_objpack TYPE sopcklsti1,
      lwa_content TYPE solisti1,
      lwa_doc     TYPE sodocchgi1,
      l_lines     TYPE i.
REFRESH: li_reclist[], li_objpack[],
         li_content[].
CLEAR: lwa_reclist, lwa_objpack,
       lwa_content, lwa_doc.
lwa_reclist-receiver = "Give ur mail ID here.
lwa_reclist-rec_type = 'U'.
APPEND lwa_reclist TO li_reclist.
"Here Loop at ur internal table and populate the data
lwa_content = 'Please Check with your sales team for more details'.
APPEND lwa_content TO li_content.
CLEAR l_lines.
DESCRIBE TABLE li_content LINES l_lines.
READ TABLE li_content INTO lwa_content INDEX l_lines.
lwa_doc-doc_size = ( l_lines - 1 ) * 255 + STRLEN( lwa_content ).
lwa_doc-obj_langu  = 'E'.
CONCATENATE 'Sales order' vbak-vbeln 'deleted.' INTO lwa_doc-obj_descr
         SEPARATED BY space.
CLEAR lwa_objpack-transf_bin.
lwa_objpack-head_start = 1.
lwa_objpack-head_num = 0.
lwa_objpack-body_start = 1.
lwa_objpack-body_num = l_lines.
lwa_objpack-doc_type = 'RAW'.
APPEND lwa_objpack TO li_objpack.
*Sending the mail
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA                    = lwa_doc
*   PUT_IN_OUTBOX                    = ' '
   COMMIT_WORK                      = 'X'
* IMPORTING
*   SENT_TO_ALL                      =
*   NEW_OBJECT_ID                    =
  TABLES
    PACKING_LIST                     = li_objpack
*   OBJECT_HEADER                    =
*   CONTENTS_BIN                     =
   CONTENTS_TXT                     = li_content
*   CONTENTS_HEX                     =
*   OBJECT_PARA                      =
*   OBJECT_PARB                      =
    RECEIVERS                        = li_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 SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks,
Vinod.