MAIL FROM SAP

Former Member — Thu, 19 Jun 2008 10:30:35 GMT

Hi GURUS.

i am trying to send a mail from sap

output is coming well but mail not going

why??

TABLES: RS38M.

DATA : BEGIN OF I_MAIL_TEXT OCCURS 0,

FIELD(72) TYPE C,

END OF I_MAIL_TEXT.

DATA : V_TEXT(72) TYPE C.

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK MAIL WITH FRAME TITLE TEXT-014.

SELECTION-SCREEN BEGIN OF LINE.

Checkbox for sending Mail.

PARAMETERS: P_MAIL AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN COMMENT (17) TEXT-001.

SELECTION-SCREEN COMMENT (7) TEXT-002.

SELECTION-SCREEN POSITION 33.

PARAMETERS: P_EMAIL(60) TYPE C LOWER CASE

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

PARAMETERS: SUBJECT(60) TYPE C DEFAULT

'Test mail from SAP by vasu = ZVSEND_MAIL'.

SELECTION-SCREEN SKIP 1.

PARAMETERS: P_PROG LIKE RS38M-PROGRAMM DEFAULT SY-REPID.

PARAMETERS: P_MFILE(60) TYPE C LOWER CASE DEFAULT

'E:\usr\sap\ESM\DVEBMGS00\data\vas1.txt'.

SELECTION-SCREEN END OF BLOCK MAIL.

************************************************************************

Sending a SAP mail to User

IF NOT P_MAIL IS INITIAL.

PERFORM POP_MAIL.

PERFORM MAILING.

ENDIF.

************************************************************************

&----

*& Form MAILING

&----

text

----

FORM MAILING.

*CALL FUNCTION 'RS_SEND_MAIL_FOR_SPOOLLIST'

EXPORTING

SPOOLNUMBER = SY-SPONO

MAILNAME = 'test'
MAILTITEL = 'test mail'
USER = P_UNAME "sy-uname
TABLES
TEXT = I_CHECK
EXCEPTIONS
ERROR = 1
OTHERS = 2.

*Local Data Declaration

DATA : COMND(200) TYPE C.

DATA : TAB(200) TYPE C OCCURS 100 WITH HEADER LINE.

OPEN DATASET P_MFILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC NE 0.

MESSAGE E004(ZP) WITH 'Unable to Open File : ' P_MFILE.

ENDIF.

LOOP AT I_MAIL_TEXT.

TRANSFER I_MAIL_TEXT TO P_MFILE.

ENDLOOP.

CLOSE DATASET P_MFILE.

*Logic for sending email

TRANSLATE P_EMAIL TO LOWER CASE.

CONCATENATE 'cat' P_MFILE '| mail -s "' SUBJECT '"' P_EMAIL
INTO COMND SEPARATED BY SPACE.

Sending Mail with Attachment.
CONCATENATE 'uuencode' P_MFILE 'TEST.XLS'

CONCATENATE 'uuencode' P_MFILE 'TEST.TXT'

'| mail -s "' SUBJECT '"' P_EMAIL

INTO COMND SEPARATED BY SPACE.

CALL 'SYSTEM' ID 'COMMAND' FIELD COMND

ID 'TAB' FIELD TAB-SYS.

ID 'TAB' FIELD RESULT[].

DELETE DATASET P_MFILE.

write

LOOP AT I_MAIL_TEXT.

WRITE: /2 I_MAIL_TEXT-FIELD.

ENDLOOP.

CLEAR SY-TFILL.

DESCRIBE TABLE TAB LINES SY-TFILL.

WRITE: /2 SY-TFILL.

ENDFORM. " MAILING

&----

*& Form POP_MAIL

&----

FORM POP_MAIL.

READ REPORT P_PROG INTO I_MAIL_TEXT.

CLEAR V_TEXT.