Schedule an automatic job

Question

Hey friends
plz give me idea of doing this using workflow or SM36. if possible provide code.
as soon as user enters a good receipt in MB01 or MIGO, an automatic mail should be send 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.
Please tell me how to do this as automatic.
i have found that data is stored in the MSEG table, but how to use it so that and automatic mail is send
Thanks
KVC

Answer 1

below program to sene an email to email id lists.
REPORT Z_NOTIFY_USER .
    Function          :  Send Workflow Message
    Author            :  Raj Ramamoorthy
    Date              :  07/09/2002
    Transaction code  :  SE38
    Function          :
            PROGRAM CHANGE HISTORY
  CHG DTE   PROJ     INT     DESCRIPTION OF PROGRAM CHANGE
  === ===   ====     ===     ============================
   Table Declarations
TABLES: SOLI.
   Data Declarations
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: SAPID     RADIOBUTTON GROUP ADDR,
            EMAIL_ID  RADIOBUTTON GROUP ADDR.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: ID  FOR SOLI-LINE NO INTERVALS.
SELECT-OPTIONS: CC  FOR SOLI-LINE NO INTERVALS.
SELECT-OPTIONS: BCC FOR SOLI-LINE NO INTERVALS.
*PARAMETERS:     SENDER LIKE SOUD-USRNAM.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-009.
PARAMETERS: SUB_LINE(60) TYPE C.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-008.
SELECT-OPTIONS:  TEXT1 FOR SOLI-LINE NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-009.
SELECTION-SCREEN BEGIN OF LINE.
parameters: P_ATTACH as checkbox.
selection-screen comment 3(30) text-010.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B5.
DATA: MAIL_CONTENT LIKE SOLI OCCURS 0 WITH HEADER LINE,
      SUBJECT_LINE LIKE SOOD1-OBJDES.
   Start of program processing
START-OF-SELECTION.
Get the Body of the Message from the selection screen or from
calling program
  LOOP AT TEXT1.
    MOVE   TEXT1-LOW TO MAIL_CONTENT-LINE.
    APPEND MAIL_CONTENT.
  ENDLOOP.
Subject of the Message
  MOVE  SUB_LINE TO SUBJECT_LINE.
call a routine to send the workflow message
  PERFORM SEND_EMAIL
          TABLES MAIL_CONTENT
          USING  SUBJECT_LINE.
*&      Form  SEND_EMAIL
Send Workflow message
FORM SEND_EMAIL TABLES OBJCONT STRUCTURE MAIL_CONTENT
                USING  TITLE   LIKE SOOD-OBJDES.
  DATA: RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE,
        TSOOD1 LIKE SOOD1,
        PACKING_LIST LIKE SOXPL OCCURS 0 WITH HEADER LINE,
        OBJCONT1 LIKE MAIL_CONTENT OCCURS 0 WITH HEADER LINE.
  DATA: BEGIN OF AT_HEADER OCCURS 1.
          INCLUDE STRUCTURE SOLI.
  DATA: END OF AT_HEADER.
  CLEAR: TSOOD1,
         RECEIVERS.
  REFRESH RECEIVERS.
  MOVE:  SY-LANGU       TO TSOOD1-OBJLA,
         'Email Notice' TO TSOOD1-OBJNAM,
         'C'            TO TSOOD1-OBJSNS,
         TITLE          TO TSOOD1-OBJDES.
       'SCHIAVONIR'   TO TSOOD1-OWNNAM.
loop through each ID and move them to recipient table
  LOOP AT ID.
    TRANSLATE ID-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            ' '          TO RECEIVERS-RECESC,
             ID-LOW      TO RECEIVERS-RECNAM,
            'X'          TO RECEIVERS-SNDEX.
    ELSE.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            'U'          TO RECEIVERS-RECESC,
            'U-'         TO RECEIVERS-RECNAM,
            ID-LOW       TO RECEIVERS-RECEXTNAM.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
loop through each CC and move them to recipient table
  LOOP AT CC.
    TRANSLATE CC-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            ' '          TO RECEIVERS-RECESC,
             CC-LOW      TO RECEIVERS-RECNAM,
            'X'          TO RECEIVERS-SNDEX,
            'X'          TO RECEIVERS-SNDCP.
    ELSE.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            'U'          TO RECEIVERS-RECESC,
            'U-'         TO RECEIVERS-RECNAM,
            CC-LOW       TO RECEIVERS-RECEXTNAM,
            'X'          TO RECEIVERS-SNDCP.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
loop through each BCC and move them to recipient table
  LOOP AT BCC.
    TRANSLATE BCC-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            ' '          TO RECEIVERS-RECESC,
             BCC-LOW     TO RECEIVERS-RECNAM,
            'X'          TO RECEIVERS-SNDEX,
            'X'          TO RECEIVERS-SNDBC.
    ELSE.
      MOVE: SY-DATUM     TO RECEIVERS-RCDAT,
            SY-UZEIT     TO RECEIVERS-RCTIM,
            'U'          TO RECEIVERS-RECESC,
            'U-'         TO RECEIVERS-RECNAM,
            BCC-LOW      TO RECEIVERS-RECEXTNAM,
            'X'          TO RECEIVERS-SNDBC.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
  AT_HEADER = SY-DATUM.
  APPEND AT_HEADER.
  AT_HEADER = SY-UZEIT.
  APPEND AT_HEADER.
IF SENDER EQ SPACE.
   SENDER = SY-UNAME.
ENDIF.
  IF P_ATTACH EQ 'X'.
    PACKING_LIST-HEAD_START = 1.
    PACKING_LIST-HEAD_NUM   = 2.
    PACKING_LIST-BODY_START = 1.
    PACKING_LIST-BODY_NUM   = 9999.
    PACKING_LIST-FILE_EXT   = 'TXT'.
    APPEND PACKING_LIST.
    CLEAR  PACKING_LIST.
    APPEND LINES OF OBJCONT TO OBJCONT1.
    REFRESH OBJCONT.
  ENDIF.
  CALL FUNCTION 'SO_OBJECT_SEND'
       EXPORTING
            OBJECT_HD_CHANGE           = TSOOD1
            OBJECT_TYPE                = 'RAW'
       TABLES
            OBJCONT                    = OBJCONT
            RECEIVERS                  = RECEIVERS
            ATT_HEAD                   = AT_HEADER
            ATT_CONT                   = OBJCONT1
            PACKING_LIST               = PACKING_LIST
       EXCEPTIONS
            ACTIVE_USER_NOT_EXIST      = 1
            COMMUNICATION_FAILURE      = 2
            COMPONENT_NOT_AVAILABLE    = 3
            FOLDER_NOT_EXIST           = 4
            FOLDER_NO_AUTHORIZATION    = 5
            FORWARDER_NOT_EXIST        = 6
            NOTE_NOT_EXIST             = 7
            OBJECT_NOT_EXIST           = 8
            OBJECT_NOT_SENT            = 9
            OBJECT_NO_AUTHORIZATION    = 10
            OBJECT_TYPE_NOT_EXIST      = 11
            OPERATION_NO_AUTHORIZATION = 12
            OWNER_NOT_EXIST            = 13
            PARAMETER_ERROR            = 14
            SUBSTITUTE_NOT_ACTIVE      = 15
            SUBSTITUTE_NOT_DEFINED     = 16
            SYSTEM_FAILURE             = 17
            TOO_MUCH_RECEIVERS         = 18
            USER_NOT_EXIST             = 19
            X_ERROR                    = 20
            OTHERS                     = 21.
ENDFORM.                               " SEND_EMAIL
Scheduling Job is :
First maintain variants for workflow program(Above Program)..
now come to Sm36 transaction ->define back ground job
Give the job name
and class and define job and here you will find how to set the background job
Reward Points if it is helpful
Thanks
Seshu