topic Re: send an e-mail immediately in Application Development and Automation Discussions

send an e-mail immediately

Former Member — Thu, 15 Feb 2007 16:53:11 GMT

Hi,

I’m using SO_NEW_DOCUMENT_ATT_SEND_API1 to send e-mails, but I have to wait until the RSCONN01 is triggered. Does exist any way to send it immediately?

Thanks in advance,

Ricard.

Re: send an e-mail immediately

Former Member — Thu, 15 Feb 2007 16:54:58 GMT

Hi,

after that function module, write the code

SUBMIT RSCONN01 and RETURN.

Regards

Sudheer

Re: send an e-mail immediately

RichHeilman — Thu, 15 Feb 2007 16:55:33 GMT

Sure, you can fire the program immediatly after calling the function module.

submit RSCONN01 with mode = 'INT' and return.

Regards,

Rich Heilman

Re: send an e-mail immediately

Former Member — Thu, 15 Feb 2007 17:25:12 GMT

Thanks Sudheer and Rich.

If I run RSCONN01 I will send all the queued emails, and I only want to send mine.

Regards,

Ricard.

Re: send an e-mail immediately

RichHeilman — Thu, 15 Feb 2007 17:31:14 GMT

There is not a delivered and "clean" way of doing that. You would have to write something.

Regards,

Rich Heilman

Re: send an e-mail immediately

former_member194669 — Thu, 15 Feb 2007 17:41:26 GMT

Hi,

Try to use like this way

 

 data:
    lo_sender      type ref to cl_sapuser_bcs,
    ls_config      type salrtsconf,
    lo_reply_doc   type ref to cl_document_bcs,
    lo_alert_man   type ref to cl_alert_manager,
    lo_bcs         type ref to cl_bcs,
    l_rc           type sy-subrc.

* set sender
  lo_sender = cl_sapuser_bcs=>create( ls_config-alertuser ).

* add sender
  call method io_reply->setu_sender
    exporting
      i_sender = lo_sender.

* build document for reply
  lo_reply_doc = cl_document_bcs=>create_document(
                        i_type = 'RAW'
                        i_text = it_content
                        i_subject = ip_subject ).
* set document
  io_reply->setu_document( lo_reply_doc ).

* set send immediately flag
  lo_bcs->set_send_immediately( 'X' ).

* send
  io_reply->release( ).

endmethod.

Here check for " lo_bcs->set_send_immediately( 'X' )."

Thanks

aRs

Re: send an e-mail immediately

Former Member — Thu, 15 Feb 2007 18:51:08 GMT

Hi Oscar,

Go through the following Code

----

Test for send mail *
Philippe.c *

----

PARAMETERS: TEXT(10).

DATA: OBJCONT LIKE SOLISTI1 OCCURS 5 WITH HEADER LINE.

DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.

DATA: DOC_CHNG LIKE SODOCCHGI1,

ENTRIES LIKE SY-TABIX.

DATA: BEGIN OF OBJECT_PARA OCCURS 2.

INCLUDE STRUCTURE SOPARAI1.

DATA: END OF OBJECT_PARA.

PERFORM MAIL_ONLY.

*erform mail_call_transaction.

*erform mail_call_report.

----

FORM MAIL_ONLY *

----

........ *

----

FORM MAIL_ONLY.

fill the document

DOC_CHNG-OBJ_NAME = 'URGENT'.

DOC_CHNG-OBJ_DESCR = 'Test SAP MAPI'.

DOC_CHNG-SENSITIVTY = 'P'.

DOC_CHNG-PROC_SYST = 'TST'.

DOC_CHNG-PROC_CLINT = '010'.

message

OBJCONT = 'Ex changement des tapes'.

APPEND OBJCONT.

OBJCONT = 'demain !!!'.

APPEND OBJCONT.

DESCRIBE TABLE OBJCONT LINES ENTRIES.

READ TABLE OBJCONT INDEX ENTRIES.

DOC_CHNG-DOC_SIZE = ( ENTRIES - 1 ) * 255 + STRLEN( OBJCONT ).

fill the receiver list

RECLIST-REC_TYPE = 'B'.

RECLIST-EXPRESS = ' '.

RECLIST-RECEIVER = 'CHC'.

APPEND RECLIST.

reclist-receiver = 'CHC'.
append reclist.
send the document

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_TYPE = 'RAW'

DOCUMENT_DATA = DOC_CHNG

PUT_IN_OUTBOX = 'X'

TABLES

OBJECT_CONTENT = OBJCONT

RECEIVERS = RECLIST.

ENDFORM.

----

FORM MAIL_CALL_TRANSACTION *

----

FORM MAIL_CALL_TRANSACTION.

fill the document

DOC_CHNG-OBJ_NAME = 'URGENT'.

DOC_CHNG-OBJ_DESCR = 'Read at once !'.

DOC_CHNG-SENSITIVTY = 'P'.

DOC_CHNG-PROC_TYPE = 'T'.

DOC_CHNG-PROC_NAME = 'PA30'.

DOC_CHNG-PROC_SYST = SY-SYSID.

DOC_CHNG-PROC_CLINT = SY-MANDT.

OBJECT_PARA-NAME = 'PER'.

OBJECT_PARA-LOW = '00008515'.

APPEND OBJECT_PARA.

OBJCONT = 'Please, Check this person !!!'.

APPEND OBJCONT.

OBJCONT = 'Is it correct !'.

APPEND OBJCONT.

OBJCONT = TEXT.

APPEND OBJCONT.

DESCRIBE TABLE OBJCONT LINES ENTRIES.

READ TABLE OBJCONT INDEX ENTRIES.

DOC_CHNG-DOC_SIZE = ( ENTRIES - 1 ) * 255 + STRLEN( OBJCONT ).

fill the receiver list

RECLIST-EXPRESS = 'X'.

RECLIST-RECEIVER = 'EXT04'.

RECLIST-REC_TYPE = ' '.

APPEND RECLIST.

send the document

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_TYPE = 'RAW'

DOCUMENT_DATA = DOC_CHNG

PUT_IN_OUTBOX = 'X'

TABLES

OBJECT_CONTENT = OBJCONT

OBJECT_PARA = OBJECT_PARA

RECEIVERS = RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

OPERATION_NO_AUTHORIZATION = 4

OTHERS = 99.

CASE SY-SUBRC.

WHEN 0.

LOOP AT RECLIST.

IF RECLIST-RETRN_CODE = 0.

write: / reclist-receiver, ': Message sended'.

ELSE.

write: / reclist-receiver, ': Message not sended'.

ENDIF.

ENDLOOP.

WHEN 1.

WRITE: / 'too_many_receivers !'.

WHEN 2.

WRITE: / 'document_not_sent !'.

WHEN 4.

WRITE: / 'operation_no_authorization !'.

WHEN OTHERS.

WRITE: / 'Error unknown !'.

ENDCASE.

ENDFORM.

----

FORM MAIL_CALL_REPORT *

----

FORM MAIL_CALL_REPORT.

INCLUDE <ICON>.

OBJCONT = ' Please, check the log. '.

APPEND OBJCONT.

CONCATENATE ICON_EXECUTE_OBJECT

'Choose ''Execute'' to display the log of the TA'

INTO OBJCONT SEPARATED BY SPACE.

APPEND OBJCONT.

DOC_CHNG-OBJ_NAME = 'URGENT'.

DOC_CHNG-OBJ_DESCR = TEXT.

DOC_CHNG-SENSITIVTY = 'P'.

DOC_CHNG-PROC_SYST = SY-SYSID.

DOC_CHNG-PROC_CLINT = SY-MANDT.

DESCRIBE TABLE OBJCONT LINES ENTRIES.

READ TABLE OBJCONT INDEX ENTRIES.

DOC_CHNG-DOC_SIZE = ( ENTRIES - 1 ) * 255 + STRLEN( OBJCONT ).

DOC_CHNG-PROC_TYPE = 'R'.

OBJECT_PARA-NAME = 'KOR'.

OBJECT_PARA-LOW = 'DEVK901000'.

APPEND OBJECT_PARA.

DOC_CHNG-PROC_NAME = 'YHIMPOR4'.

RECLIST-REC_TYPE = 'B'.

RECLIST-EXPRESS = 'X'.

RECLIST-RECEIVER = 'PHILIPPEC'.

APPEND RECLIST.

RECLIST-REC_TYPE = 'B'.

RECLIST-EXPRESS = 'X'.

RECLIST-RECEIVER = 'PHIL'.

APPEND RECLIST.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_TYPE = 'RAW'

DOCUMENT_DATA = DOC_CHNG

PUT_IN_OUTBOX = ' '

TABLES

OBJECT_CONTENT = OBJCONT

OBJECT_PARA = OBJECT_PARA

RECEIVERS = RECLIST.

ENDFORM.

Regards

Sreeni

Re: send an e-mail immediately

Former Member — Thu, 15 Feb 2007 18:57:35 GMT

Hi,

Try once with this FM 'UWSP_SEND_MAIL_TO_WEB'