Send email through sap..

Question

Hi,
I want to send an email to the user if an operation fails i.e., i should send an error msg by mail..
how can I do this??
i tried using SO_DOCUMENT_SEND_API1..
But its not working as its for mail with attachment...
what is the FM to send without attachment...and what i need to pass to the FM..
any pointers are helpful...
thanks.

Answer 1

Hi,
Following report is the sample report for sending the mail.
TABLES: TBTCP, ZGT001L.
*PARAMETERS TEST(5).
DATA: TJOBNAME LIKE TBTCP-JOBNAME VALUE '321 PENDING AT FPS',
      SPOOLID LIKE TSP01-RQIDENT, V_LGORT LIKE MSEG-LGORT,
      V_REPORT TYPE RSVAR-REPORT, V_VARIANT TYPE RSVAR-VARIANT.
DATA: BEGIN OF VVALUES OCCURS 0.
        INCLUDE STRUCTURE RSPARAMS.
DATA END OF VVALUES.
DATA : BEGIN OF T_RECEIVERS OCCURS 0.
        INCLUDE STRUCTURE SOMLRECI1.
DATA END OF T_RECEIVERS.
DATA: BEGIN OF T_TBTCP,
*      jobname like tbtcp-jobname,
*      jobcount like tbtcp-jobcount,
      LISTIDENT LIKE TBTCP-LISTIDENT,
      SDLDATE LIKE TBTCP-SDLDATE,
      SDLTIME LIKE TBTCP-SDLTIME,
      VARIANT LIKE TBTCP-VARIANT,
      END OF T_TBTCP,
      ITAB_SPOOL LIKE STANDARD TABLE OF T_TBTCP,
      WA_SPOOL LIKE T_TBTCP.
DATA: PLIST LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: DOCUMENT_DATA LIKE SODOCCHGI1.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: SO_ALI LIKE SOLI OCCURS 100 WITH HEADER LINE,
      REAL_TYPE LIKE SOODK-OBJTP,
      SP_LANG LIKE TST01-DLANG, LINE_SIZE TYPE I VALUE 255,
      V_NAME LIKE SOEXTRECI1-RECEIVER.
DATA: GD_EVENTID LIKE TBTCM-EVENTID,
      GD_EVENTPARM LIKE TBTCM-EVENTPARM,
      GD_EXTERNAL_PROGRAM_ACTIVE LIKE TBTCM-XPGACTIVE,
      GD_JOBCOUNT LIKE TBTCM-JOBCOUNT,
      GD_JOBNAME LIKE TBTCM-JOBNAME,
      GD_STEPCOUNT LIKE TBTCM-STEPCOUNT,
      GD_ERROR    TYPE SY-SUBRC,
      GD_RECIEVER TYPE SY-SUBRC.
START-OF-SELECTION.
  PERFORM GET_SPOOL_REQNUMBER USING TJOBNAME. " CHANGING SPOOLID.
  PERFORM SEND_MAIL.
*  PERFORM REMOVE_BLANK_SPOOLS.
*&      Form  GET_SPOOL_REQNUMBER
*       text
*      -->P_0111   text                                                *
*      <--P_UU  text                                                   *
FORM GET_SPOOL_REQNUMBER USING P_0111.
  SELECT A~LISTIDENT B~STRTDATE B~STRTTIME A~VARIANT
   FROM TBTCP AS A INNER JOIN TBTCO AS B
        ON A~JOBNAME EQ B~JOBNAME AND
           A~JOBCOUNT EQ B~JOBCOUNT AND
           A~STEPCOUNT EQ B~STEPCOUNT
   INTO TABLE ITAB_SPOOL
      WHERE A~JOBNAME = P_0111 AND B~STRTDATE EQ SY-DATUM.
ENDFORM.                    " GET_SPOOL_REQNUMBER
*&      Form  send_mail
*       text
*  -->  p1        text
*  <--  p2        text
FORM SEND_MAIL .
* Get the spool data.
  LOOP AT ITAB_SPOOL INTO WA_SPOOL.
    REFRESH : SO_ALI, PLIST, T_RECEIVERS.
    CLEAR : SO_ALI, PLIST, V_NAME, DOCUMENT_DATA, T_RECEIVERS, SPOOLID,
            V_REPORT, V_VARIANT, V_LGORT.
    IF WA_SPOOL-LISTIDENT <> '0'.
      MOVE WA_SPOOL-LISTIDENT TO SPOOLID.
      CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
        EXPORTING
          RQIDENT              = SPOOLID
          FIRST_LINE           = 1
          LAST_LINE            = 0
          DESIRED_TYPE         = ' '
        IMPORTING
          REAL_TYPE            = REAL_TYPE
          SP_LANG              = SP_LANG
        TABLES
          BUFFER               = SO_ALI
        EXCEPTIONS
          NO_SUCH_JOB          = 1
          JOB_CONTAINS_NO_DATA = 2
          SELECTION_EMPTY      = 3
          NO_PERMISSION        = 4
          CAN_NOT_ACCESS       = 5
          READ_ERROR           = 6
          TYPE_NO_MATCH        = 7
          OTHERS               = 8.
* Check the return code.
      IF SY-SUBRC <> 0.
        MESSAGE S208(00) WITH 'Error'.
        LEAVE LIST-PROCESSING.
      ENDIF.
DATA : DATE LIKE SY-DATUM,
       DATE1(10) TYPE C.
* Prepare the data.
CLEAR OBJTXT.
REFRESH OBJTXT.
OBJTXT = 'PLEASE CHECK THE LIST OF PENDING ACKNOWLEDGEMENT'.
APPEND OBJTXT.
CONCATENATE 'ISSUE STORAGE LOCATION :' WA_SPOOL-VARIANT INTO OBJTXT.
APPEND OBJTXT.
DATE = SY-DATUM - 1.
CONCATENATE DATE+6(2) '-' DATE+4(2) '-' DATE+0(4) INTO DATE1.
CONCATENATE 'POSTING DATE           :' DATE1 INTO OBJTXT.
APPEND OBJTXT.
OBJTXT = ''.
APPEND OBJTXT.
CLEAR PLIST.
REFRESH PLIST.
PLIST-TRANSF_BIN = SPACE.
PLIST-HEAD_START = 1.
PLIST-HEAD_NUM = 0.
PLIST-BODY_START = 1.
DESCRIBE TABLE OBJTXT LINES PLIST-BODY_NUM.
PLIST-DOC_TYPE = 'RAW'.
APPEND PLIST.
CLEAR PLIST.
*      PLIST-TRANSF_BIN = 'X'.
*      PLIST-HEAD_START = 0.
*      PLIST-HEAD_NUM = 0.
*      PLIST-BODY_START = 0.
*      PLIST-BODY_NUM = 0.
*      PLIST-DOC_TYPE = 'RAW'.
      PLIST-OBJ_DESCR = WA_SPOOL-VARIANT.
*      APPEND PLIST.
      PLIST-TRANSF_BIN = 'X'.
      PLIST-HEAD_START = 0.
      PLIST-HEAD_NUM = 0.
      PLIST-BODY_START = 1.
      DESCRIBE TABLE SO_ALI LINES PLIST-BODY_NUM.
      PLIST-DOC_TYPE = REAL_TYPE.
* Get the size.
      READ TABLE SO_ALI INDEX PLIST-BODY_NUM.
      PLIST-DOC_SIZE = ( PLIST-BODY_NUM - 1 ) * LINE_SIZE + STRLEN( SO_ALI ).
      APPEND PLIST.
***get the values of the variant
      MOVE : WA_SPOOL-VARIANT TO V_VARIANT.
      SELECT * FROM TBTCP WHERE JOBNAME EQ TJOBNAME ORDER BY SDLDATE.
        MOVE TBTCP-PROGNAME TO V_REPORT.
      ENDSELECT.
      CALL FUNCTION 'RS_VARIANT_VALUES_TECH_DATA'
        EXPORTING
          REPORT                     = V_REPORT
          VARIANT                    = V_VARIANT
*         SEL_TEXT                   = ' '
*         MOVE_OR_WRITE              = 'W'
*         SORTED                     = ' '
*         EXECUTE_DIRECT             =
*       IMPORTING
*         TECHN_DATA                 =
        TABLES
          VARIANT_VALUES             = VVALUES
       EXCEPTIONS
         VARIANT_NON_EXISTENT       = 1
         VARIANT_OBSOLETE           = 2
         OTHERS                     = 3.
      LOOP AT VVALUES.
        CASE VVALUES-SELNAME.
          WHEN 'P_ILGORT'.
            MOVE VVALUES-LOW TO V_LGORT.
        ENDCASE.
      ENDLOOP.
      SELECT SINGLE MAILID FROM ZGT001L INTO ZGT001L-MAILID WHERE WERKS EQ '1000' AND LGORT EQ V_LGORT.
      IF SY-SUBRC EQ 0.
        T_RECEIVERS-RECEIVER = ZGT001L-MAILID.
        T_RECEIVERS-REC_TYPE = 'U'.
        APPEND T_RECEIVERS.
      SELECT SINGLE INVCODE FROM ZGT001L INTO ZGT001L-INVCODE WHERE WERKS EQ '1000' AND LGORT EQ V_LGORT.
      IF ZGT001L-INVCODE = 'SOU1'.
        T_RECEIVERS-RECEIVER = 'emailaddress'.
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
      ELSE.
      ENDIF.
        T_RECEIVERS-RECEIVER = 'emailaddress'.
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
        T_RECEIVERS-RECEIVER = 'emailaddress'.
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
        T_RECEIVERS-RECEIVER = 'emailaddress'.
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
      ENDIF.
      IF NOT SP_LANG IS INITIAL.
        DOCUMENT_DATA-OBJ_LANGU = SP_LANG.
      ELSE.
        DOCUMENT_DATA-OBJ_LANGU = SY-LANGU.
      ENDIF.
      V_NAME = SY-UNAME.
* Subject.
CONCATENATE 'List of Pending Acknowledgement from St. Loc.:' WA_SPOOL-VARIANT
            INTO DOCUMENT_DATA-OBJ_DESCR.
*      DOCUMENT_DATA-OBJ_DESCR = 'List of Pending Acknowledgement'.
* Send the email.
      CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
        EXPORTING
          DOCUMENT_DATA              = DOCUMENT_DATA
          SENDER_ADDRESS             = V_NAME
          SENDER_ADDRESS_TYPE        = 'B'
        TABLES
          PACKING_LIST               = PLIST
          CONTENTS_BIN               = SO_ALI
          CONTENTS_TXT               = OBJTXT
          RECEIVERS                  = T_RECEIVERS
        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 E208(00) WITH 'Error in sending email'.
      ENDIF.
      COMMIT WORK.
* Send the email immediately.
      SUBMIT RSCONN01
      WITH MODE = 'INT'
      AND RETURN.
      IF SY-SUBRC EQ 0.
        WRITE 'To get the spool no'.
        CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
          IMPORTING
            EVENTID                 = GD_EVENTID
            EVENTPARM               = GD_EVENTPARM
            EXTERNAL_PROGRAM_ACTIVE = GD_EXTERNAL_PROGRAM_ACTIVE
            JOBCOUNT                = GD_JOBCOUNT
            JOBNAME                 = GD_JOBNAME
            STEPCOUNT               = GD_STEPCOUNT
          EXCEPTIONS
            NO_RUNTIME_INFO         = 1
            OTHERS                  = 2.
        IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
        WRITE : / 'Spool id of the job that is sent', SPOOLID,
                 GD_EVENTID,
                 GD_EVENTPARM,
                 GD_EXTERNAL_PROGRAM_ACTIVE,
                 GD_JOBCOUNT,
                 GD_JOBNAME,
                 GD_STEPCOUNT.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " send_mail
*&      Form  remove_blank_spools
*       text
*  -->  p1        text
*  <--  p2        text
*FORM REMOVE_BLANK_SPOOLS .
*  LOOP AT ITAB_SPOOL INTO WA_SPOOL.
*    MOVE WA_SPOOL-LISTIDENT TO SPOOLID.
*    CALL FUNCTION 'RSPO_ISELECT_TSP01'
*      EXPORTING
*        RFCSYSTEM        = SY-SYSID
*        RQIDENT          = SPOOLID
**   FORUPDATE        = ' '
*     IMPORTING
*       TSP01_ELEM       = W_INFO
*     EXCEPTIONS
*       ERROR            = 1
*       OTHERS           = 2.
*    CALL FUNCTION 'RSPO_IRETURN_RAW_DATA'
*      EXPORTING
*        RQ                 = W_INFO
*      TABLES
*       LINE_BUFFER        = W_DATA
*    PAGE_INDEX         = W_PAGES
**       LINE_BUFFER2       =
*     EXCEPTIONS
*       ERROR              = 1
*       OTHERS             = 2.
*    IF W_INFO-RQDOCTYPE = 'LIST'.
*      CALL FUNCTION 'RSPO_R_GET_TOC_SPOOLREQ'
*        EXPORTING
*          RQIDENT = SPOOLID
*        TABLES
*          TOCDESC = W_TODESC
*        EXCEPTIONS
*          ERROR   = 1
*          OTHERS  = 2.
*      CALL FUNCTION 'RSPO_SPOOLDATA_WRITE_INIT'.
**      READ TABLE W_DATA WITH KEY DATA_LINE = 'List contains no data'.
*      LOOP AT W_DATA.
*        IF W_DATA-DATA_LINE CP 'List contains no data'.
*        ENDIF.
*      ENDLOOP.
*    ENDIF.
*  ENDLOOP.
*ENDFORM.                    " remove_blank_spools
Thanks,
Sankar M