Answer / 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.

Hi, I am a Trainer in SAP ABAP having 2 years of experience in teaching ABAP and having 5 years of real time work experience in industry. If any body is interested email me your contact details to sap.abap9@gmail.com I will provide online training. Excellent material is provided. If any one is interested for training you can contact me for further details. Free demo is provided before joining the course. Excellent Training for reasonable price. SD and MM Concepts will be teached freely. References will be provided upon request.

0 Answers  

---

How do you use structures in the abap programs?

0 Answers  

---

How do I find the output type of a table or a program?

0 Answers  

---

what is index? I need exact defination? how will create a secondary index?

5 Answers   Caritor,

---

What is ps structure? : abap hr

0 Answers  

---

---

how to debug dialog box?

3 Answers  

---

What is the difference between retroactive accounting period, earliest retroactive accounting period? : sap abap hr

0 Answers  

---

What are the components of sapscript?

0 Answers  

---

Are EVENTS Possible in LSMW?If so how to achieve?

2 Answers   Cap Gemini,

---

what are parameters of DDCinsert fun module ?

2 Answers   Accenture,

---

What is a size category? : abap data dictionary

0 Answers  

---

What is buffering in abap?

0 Answers  

---