Automatic mail sending at good receipt

Question

Hello friends
When a goods receipt against a PO (movement type 101) is done into any plant , an e-mail should be sent to ‘[email protected] ’ stating:
Material # XXXX quantity XXX has been received into Plant XXXX (field WERKS) Storage Location XXXX (field LGORT) and the date received in.
Plz suggest how to do this.
what are the tables that can be used
wat are the fms that can be used etc
where this can be configuered,, or done thru ABAP

Answer 1

Hi,
1.create an enhancement project using enhancement number:MBCF0005..
in CMOD and in the below fuction module exit you can add you logic to send the mail.
<b>EXIT_SAPM07DR_001.</b> in INCLUDE ZXMBCU05 .
2.you can get all the required data in the MSEG table.
3. you can use the following fuction module to send the email.
'SO_NEW_DOCUMENT_ATT_SEND_API1'
below is the sample code..
REPORT ZPAVAN_EXAMPLE.
DATA: OBJPACK     LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
      OBJHEAD     LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      OBJBINLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      OBJTXTLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      RECLISTLIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
      DOC_CHNGLIKE SODOCCHGI1,
      TAB_LINES LIKE SY-TABIX.
PARAMETER P_EADDR LIKE RECLIST-RECEIVER.    "EXTERNAL E-MAIL ADDRESS
DOC_CHNG-OBJ_NAME = 'SENDFILE'.
DOC_CHNG-OBJ_DESCR = 'SEND EXTERNAL MAIL'.
OBJTXT = 'LINE 1 OF MESSAGE'.
APPEND OBJTXT.
OBJTXT = 'LINE 2 OF MESSAGE'.
APPEND OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-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 = 'RAW'.
APPEND OBJPACK.
RECLIST-RECEIVER = P_EADDR.
RECLIST-REC_TYPE = 'U'.
APPEND RECLIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
     EXPORTING
          DOCUMENT_DATA              = DOC_CHNG
          PUT_IN_OUTBOX              = 'X'
     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 = 3
          OTHERS                     = 4.
IF SY-SUBRC EQ 0.
  WRITE:/ 'E-MAIL MESSAGE SENT TO', P_EADDR.
ELSE.
  WRITE:/ 'COULD NOT SEND E-MAIL TO', P_EADDR.
ENDIF.
thanks and Regards,
Pavankumar