automatical mail generation

Former Member — Thu, 14 Feb 2008 06:54:25 GMT

hi all,

i got a requirement like whenever iam executing the program i need to send a computer generated mails to some persons.

how can i do it?

can u pls explain it asap.

if possible send me the code.

Re: automatical mail generation

Former Member — Thu, 14 Feb 2008 06:56:52 GMT

Go to transaction SW03 and search for business objects related to ur requirement...

If u get it, u can use workflow to do this...

Its very simple...

Once u find out any business object, pls let me know...

I will help u to proceed further...

Re: automatical mail generation

Former Member — Thu, 14 Feb 2008 07:15:31 GMT

&---------------------------------------------------------------------
*& Report YMS_EXTERNALMAIL *
*& *
&---------------------------------------------------------------------
*& *
*& *
&---------------------------------------------------------------------

REPORT YMS_EXTERNALMAIL .
*REPORT zsendemail .

PARAMETERS: PSUBJECT(40) TYPE C DEFAULT 'Hello',
P_EMAIL(40) TYPE C DEFAULT 'test@sapdev.co.uk' .

DATA: IT_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
IT_CONTENTS LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
IT_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
IT_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
GD_CNT TYPE I,
GD_SENT_ALL(1) TYPE C,
GD_DOC_DATA LIKE SODOCCHGI1,
GD_ERROR TYPE SY-SUBRC.

DATA: IT_MESSAGE TYPE STANDARD TABLE OF SOLISTI1 INITIAL SIZE 0
WITH HEADER LINE.

***********************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.

PERFORM POPULATE_MESSAGE_TABLE.

*Send email message, although is not sent from SAP until mail send
*program has been executed(rsconn01)
PERFORM SEND_EMAIL_MESSAGE.

*Instructs mail send program for SAPCONNECT to send email(rsconn01)
PERFORM INITIATE_MAIL_EXECUTE_PROGRAM.

&---------------------------------------------------------------------
*& Form POPULATE_MESSAGE_TABLE
&---------------------------------------------------------------------

Adds text to email text table


--------------------------------------------------------------------------------
FORM POPULATE_MESSAGE_TABLE.
APPEND 'Email line 1' TO IT_MESSAGE.
APPEND 'Email line 2' TO IT_MESSAGE.
APPEND 'Email line 3' TO IT_MESSAGE.
APPEND 'Email line 4' TO IT_MESSAGE.
ENDFORM. " POPULATE_MESSAGE_TABLE

&---------------------------------------------------------------------
*& Form SEND_EMAIL_MESSAGE
&---------------------------------------------------------------------

Send email message


--------------------------------------------------------------------------------
FORM SEND_EMAIL_MESSAGE.

Fill the document data. 
GD_DOC_DATA-DOC_SIZE = 1.

Populate the subject/generic message attributes 
GD_DOC_DATA-OBJ_LANGU = SY-LANGU.
GD_DOC_DATA-OBJ_NAME = 'SAPRPT'.
GD_DOC_DATA-OBJ_DESCR = PSUBJECT.
GD_DOC_DATA-SENSITIVTY = 'F'.


Describe the body of the message 
CLEAR IT_PACKING_LIST.
REFRESH IT_PACKING_LIST.
IT_PACKING_LIST-TRANSF_BIN = SPACE.
IT_PACKING_LIST-HEAD_START = 1.
IT_PACKING_LIST-HEAD_NUM = 0.
IT_PACKING_LIST-BODY_START = 1.
DESCRIBE TABLE IT_MESSAGE LINES IT_PACKING_LIST-BODY_NUM.
IT_PACKING_LIST-DOC_TYPE = 'RAW'.
APPEND IT_PACKING_LIST.


Add the recipients email address 
CLEAR IT_RECEIVERS.
REFRESH IT_RECEIVERS.
IT_RECEIVERS-RECEIVER = P_EMAIL.
IT_RECEIVERS-REC_TYPE = 'U'.
IT_RECEIVERS-COM_TYPE = 'INT'.
IT_RECEIVERS-NOTIF_DEL = 'X'.
IT_RECEIVERS-NOTIF_NDEL = 'X'.
APPEND IT_RECEIVERS.


Call the FM to post the message to SAPMAIL 
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = GD_DOC_DATA
PUT_IN_OUTBOX = 'X'
IMPORTING
SENT_TO_ALL = GD_SENT_ALL
TABLES
PACKING_LIST = IT_PACKING_LIST
CONTENTS_TXT = IT_MESSAGE
RECEIVERS = IT_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.


Store function module return code 
GD_ERROR = SY-SUBRC.


Get it_receivers return code 
LOOP AT IT_RECEIVERS.
ENDLOOP.
ENDFORM. " SEND_EMAIL_MESSAGE

&---------------------------------------------------------------------
*& Form INITIATE_MAIL_EXECUTE_PROGRAM
&---------------------------------------------------------------------


Instructs mail send program for SAPCONNECT to send email.


--------------------------------------------------------------------------------
FORM INITIATE_MAIL_EXECUTE_PROGRAM.
WAIT UP TO 2 SECONDS.
IF GD_ERROR EQ 0.
SUBMIT RSCONN01 WITH MODE = 'INT'
WITH OUTPUT = 'X'
AND RETURN.
ENDIF.
ENDFORM. " INITIATE_MAIL_EXECUTE_PROGRAM

Regards.

Re: automatical mail generation

Former Member — Thu, 14 Feb 2008 07:18:50 GMT

Check this link

http://www.sapdevelopment.co.uk/reporting/email/email_sapmail.htm

http://www.sapdevelopment.co.uk/reporting/email/emailhome.htm

<REMOVED BY MODERATOR>

Edited by: Alvaro Tejada Galindo on Feb 14, 2008 3:53 PM

topic automatical mail generation in Application Development and Automation Discussions

automatical mail generation

Re: automatical mail generation

Re: automatical mail generation

Re: automatical mail generation