How you will send mail from one SAP system to other SAP
system?
Answer Posted / pramod
Please go through the sample code to Send mail
*********
*Data of an object which can be changed
DATA : doc_chng LIKE sodocchgi1.
*SAPoffice: Single List with Column Length 255
DATA : objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE.
*SAPoffice: Description of Imported Object Components
DATA : objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
*SAPoffice: Structure of the API Recipient List
DATA : reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
FORM errors_send_mail .
* Creation of the document to be sent
doc_chng-obj_name = 'Log report For Historical Balance
Conversation'
.
CONCATENATE 'Log for ' sy-repid INTO doc_chng-obj_descr
SEPARATED BY space.
LOOP AT it_error. "HERE TYPE = 'A' OR TYPE = 'E'.
objtxt = it_error-message.
APPEND objtxt.
CLEAR: objtxt.
ENDLOOP.
LOOP AT it_message.
AT FIRST .
WRITE : / 'List of documents created :'.
SKIP 1.
ENDAT.
WRITE : / it_message-message.
objtxt = it_message-message.
APPEND objtxt.
CLEAR: objtxt.
ENDLOOP.
* Creation of the entry for the compressed document
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = 9.
objpack-doc_type = 'RAW'.
objpack-obj_name = 'DATA'.
objpack-doc_size = 10 * 255.
objpack-obj_langu = 'EN'.
APPEND objpack.
CLEAR objpack.
CLEAR objpack-transf_bin.
objpack-head_start = 0.
objpack-head_num = 0.
objpack-body_start = 10.
objpack-body_num = tab_lines.
objpack-doc_type = 'DAT'.
objpack-obj_name = 'DATA'.
objpack-doc_size = tab_lines * 255.
objpack-obj_langu = 'EN'.
APPEND objpack.
CLEAR objpack.
* Completing the recipient list
* RECLIST-RECEIVER = 'Michael.mccullough@ge.com'.
reclist-receiver = 'Tiffany.Boyle@ge.com'.
reclist-rec_type = 'U'.
APPEND reclist.
CLEAR reclist.
reclist-receiver = 'Kalpana.tyagi2@ge.com'.
reclist-rec_type = 'U'.
APPEND reclist.
CLEAR reclist.
* Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = doc_chng
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = objpack
contents_txt = objtxt
contents_bin = objbin
receivers = reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
OTHERS = 99.
IF sy-subrc = 0.
SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
ENDIF.
| Is This Answer Correct ? | 4 Yes | 3 No |
Post New Answer View All Answers
What are the client dependant objects in abap / sap?
How can you find the field/data underlying a transaction?
In Smartforms or ADOBE Forms Can we get text from standard table in verticle form? if yes, How?
Explain how to write a bdc - how do you go about it?
How to create any functions?
What is the diff between database view and maintenance view?
Have you set up a back ground job ? How to create a background job without a variant ?
WHY CLUSTER TABLE CALLED AS CLUSTER TABLE.
How do you find if a logical database exists for your program requrements?
What is time constraint ? : abap hr
Can multiple abap systems connect to abap database?
can anyone do BDC or BAPI for F-02 and F-04 transactions.If it LSMW also.Kindly let me know.
What is read line in abap?
What are the layers of data description in r/3? : abap data dictionary
What is the difference between synchronous and asynchronous update? : abap bdc