sap mail express

REPORT YVENKATESH_SEND_EXPRESS_MAIL .

*---------------------------------------------------------------------*

* Internal Tables *

*---------------------------------------------------------------------*

* For Sending the express mail

DATA: ITAB_OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE,

ITAB_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE,

ITAB_OBJPARA LIKE SELC OCCURS 0 WITH HEADER LINE,

ITAB_OBJPARB LIKE SOOP1 OCCURS 0 WITH HEADER LINE,

ITAB_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.

*---------------------------------------------------------------------*

* Work Areas *

*---------------------------------------------------------------------*

* For Sending the express mail

DATA: W_OBJECT_HD_CHANGE LIKE SOOD1.

* counters

DATA: W_OK_COUNT(10) TYPE N.

DATA: W_ERR_COUNT(10) TYPE N.

DATA: W_TOT_COUNT(10) TYPE N.

*---------------------------------------------------------------------*

* start-of-selection *

*---------------------------------------------------------------------*

START-OF-SELECTION.

W_OK_COUNT = 200.

W_ERR_COUNT = 300.

W_TOT_COUNT = 500.

*---------------------------------------------------------------------*

* End-of-selection *

*---------------------------------------------------------------------*

END-OF-SELECTION.

* Initialize the fields

CLEAR: W_OBJECT_HD_CHANGE.

CLEAR: ITAB_OBJCONT, ITAB_OBJHEAD, ITAB_OBJPARA,

ITAB_OBJPARB, ITAB_RECEIVERS.

REFRESH: ITAB_OBJCONT, ITAB_OBJHEAD, ITAB_OBJPARA,

ITAB_OBJPARB, ITAB_RECEIVERS.

* Fill the message text

CONCATENATE 'Number of records processed:' W_TOT_COUNT

INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE.

APPEND ITAB_OBJCONT.

CONCATENATE 'Number of records processed Correctly:' W_OK_COUNT

INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE.

APPEND ITAB_OBJCONT.

CONCATENATE 'Number of records Errored Out:' W_ERR_COUNT

INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE.

APPEND ITAB_OBJCONT.

* Fill w_object_hd_change structure

W_OBJECT_HD_CHANGE-OBJLA = SY-LANGU.

W_OBJECT_HD_CHANGE-OBJNAM = SY-REPID.

W_OBJECT_HD_CHANGE-OBJDES = 'Job ABC results'.

W_OBJECT_HD_CHANGE-OBJSNS = 'F'.

W_OBJECT_HD_CHANGE-VMTYP = 'T'.

W_OBJECT_HD_CHANGE-SKIPS = 'X'.

W_OBJECT_HD_CHANGE-ACNAM = 'SP01'. "Transaction to execute Special-Code

W_OBJECT_HD_CHANGE-OBJCP = 'X'.

* Specify the receivers

ITAB_RECEIVERS-RCDAT = SY-DATUM.

ITAB_RECEIVERS-RCTIM = SY-UZEIT.

ITAB_RECEIVERS-RECNAM = SY-UNAME. "Send to UserId"

ITAB_RECEIVERS-RTUNAM = SY-UNAME.

ITAB_RECEIVERS-SNDEX = 'X'. "Express mail message.

APPEND ITAB_RECEIVERS.

* Specify the spool info. "Special-Code

ITAB_OBJPARA-NAME = 'SPI'. "Special-Code

ITAB_OBJPARA-LOW = SY-SPONO. "Special-Code

APPEND ITAB_OBJPARA. "Special-Code

CALL FUNCTION 'SO_OBJECT_SEND'

EXPORTING

OBJECT_HD_CHANGE = W_OBJECT_HD_CHANGE

OBJECT_TYPE = 'RAW'

OWNER = SY-UNAME

TABLES

OBJCONT = ITAB_OBJCONT

OBJHEAD = ITAB_OBJHEAD

OBJPARA = ITAB_OBJPARA

OBJPARB = ITAB_OBJPARB

RECEIVERS = ITAB_RECEIVERS

EXCEPTIONS

OTHERS = 01.