Hi nagaraj,
I tried like this
*start-of-selection.
DATA:
t_objbin TYPE STANDARD TABLE OF solisti1, " Attachment data
t_objtxt TYPE STANDARD TABLE OF solisti1, " Message body
t_objpack TYPE STANDARD TABLE OF sopcklsti1, " Packing list
t_reclist TYPE STANDARD TABLE OF somlreci1, " Receipient list
t_objhead TYPE STANDARD TABLE OF solisti1. " Header
DATA: wa_docdata TYPE sodocchgi1, " Document data
wa_objtxt TYPE solisti1, " Message body
wa_objbin TYPE solisti1, " Attachment data
wa_objpack TYPE sopcklsti1, " Packing list
wa_reclist TYPE somlreci1. " Receipient list
DATA: w_tab_lines TYPE i. " Table lines
TYPES : BEGIN OF TY_SFLIGHT,
CARRID TYPE SFLIGHT-CARRID,
CONNID TYPE SFLIGHT-CONNID,
FLDATE TYPE SFLIGHT-FLDATE,
PRICE TYPE SFLIGHT-PRICE,
CURRENCY TYPE SFLIGHT-CURRENCY,
PLANETYPE TYPE SFLIGHT-PLANETYPE,
END OF TY_SFLIGHT.
TYPES : BEGIN OF TY_FINAL,
CARRID(3) TYPE C,
CONNID(4) TYPE C,
FLDATE(8) TYPE C,
PRICE(17) TYPE C,
CURRENCY(5) TYPE C,
PLANETYPE(10) TYPE c,
END OF TY_FINAL.
data : it_sflight type TABLE OF TY_SFLIGHT,
wa_sflight type TY_SFLIGHT.
data : it_FINAL type TABLE OF TY_FINAL,
wa_FINAL type TY_FINAL.
* Start-of-selection
START-OF-SELECTION.
select CARRID
CONNID
FLDATE
PRICE
CURRENCY
PLANETYPE
from sflight into table it_sflight up to 10 rows.
lOOP AT IT_SFLIGHT INTO WA_SFLIGHT.
WA_final-CARRID = WA_SFLIGHT-CARRID.
WA_final-CONNID = WA_SFLIGHT-CONNID.
WA_final-FLDATE = WA_SFLIGHT-FLDATE.
WA_final-PRICE = WA_SFLIGHT-PRICE.
WA_final-CURRENCY = WA_SFLIGHT-CURRENCY.
WA_final-PLANETYPE = WA_SFLIGHT-PLANETYPE.
append wa_final to it_final.
clear wa_final.
endloop.
* Creating message
PERFORM create_message.
* Sending Message
PERFORM send_message.
*&---------------------------------------------------------------------*
*& Form create_message
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM create_message .
**1 Title, Description & Body
PERFORM create_title_desc_body.
**2 Receivers
PERFORM fill_receivers.
ENDFORM. " create_message
*&---------------------------------------------------------------------*
*& Form CREATE_TITLE_DESC_BODY
*&---------------------------------------------------------------------*
* Title, Description and body
*----------------------------------------------------------------------*
FORM create_title_desc_body.
*...Title
wa_docdata-obj_name = 'Email notification'.
*...Description
wa_docdata-obj_descr = 'Email body in HTML'.
*...Message Body in HMTL
wa_objtxt-line = '<html> <body style="background-color:#FFE4C4;">'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<p> List of Test materials </p>'.
APPEND wa_objtxt TO t_objtxt.
* table display
wa_objtxt-line = '<table style="MARGIN: 10px" bordercolor="#90EE90" '.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = ' cellspacing="0" cellpadding="3" width="400"'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = ' border="1"><tbody><tr>'.
APPEND wa_objtxt TO t_objtxt.
* table header
wa_objtxt-line = '<th bgcolor="#90EE90">Airline & Code</th>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<th bgcolor="#90EE90">Flight Connection Number</th>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<th bgcolor="#90EE90">Flight date</th>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<th bgcolor="#90EE90">Airfare</th>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<th bgcolor="#90EE90">Local currency of airline</th>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<th bgcolor="#90EE90">Aircraft Type</th></tr>'.
APPEND wa_objtxt TO t_objtxt.
* table Contents
Loop at it_FINAL into wa_FINAL.
wa_objtxt-line = '<tr style="background-color:#eeeeee;">'.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-CARRID '</td>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-CONNID '</td>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-FLDATE '</td>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-PRICE '</td>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-CURRENCY '</td>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
concatenate '<td>' wa_FINAL-PLANETYPE '</td></tr>' into wa_objtxt-line.
append wa_objtxt to t_objtxt.
clear wa_FINAL.
endloop.
* table close
wa_objtxt-line = '</tbody> </table>'.
APPEND wa_objtxt TO t_objtxt.
* Signature with background color
wa_objtxt-line = '<br><br>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<p> Regards,</p>'.
APPEND wa_objtxt TO t_objtxt.
wa_objtxt-line = '<p style="background-color:#1E90FF;"><b> Your Name</b></p>'.
APPEND wa_objtxt TO t_objtxt.
* HTML close
wa_objtxt-line = '</body> </html> '.
APPEND wa_objtxt TO t_objtxt.
* Document data
DESCRIBE TABLE t_objtxt LINES w_tab_lines.
READ TABLE t_objtxt INTO wa_objtxt INDEX w_tab_lines.
wa_docdata-doc_size =
( w_tab_lines - 1 ) * 255 + STRLEN( wa_objtxt ).
* Packing data
CLEAR wa_objpack-transf_bin.
wa_objpack-head_start = 1.
wa_objpack-head_num = 0.
wa_objpack-body_start = 1.
wa_objpack-body_num = w_tab_lines.
* we will pass the HTML, since we have created the message
* body in the HTML
wa_objpack-doc_type = 'HTML'.
APPEND wa_objpack TO t_objpack.
ENDFORM. " CREATE_TITLE_DESC_BODY
*&---------------------------------------------------------------------*
*& Form fill_receivers
*&---------------------------------------------------------------------*
* Filling up the Receivers
*----------------------------------------------------------------------*
FORM fill_receivers .
wa_reclist-receiver = 'ramesh@gmail.com'.
wa_reclist-rec_type = 'U'.
APPEND wa_reclist TO t_reclist.
CLEAR wa_reclist.
ENDFORM. " fill_receivers
*&---------------------------------------------------------------------*
*& Form send_message
*&---------------------------------------------------------------------*
* Sending Mail
*----------------------------------------------------------------------*
FORM send_message .
* Send Message to external Internet ID
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = wa_docdata
put_in_outbox = 'X'
commit_work = 'X' "used from rel.6.10
TABLES
packing_list = t_objpack
object_header = t_objhead
contents_txt = t_objtxt
receivers = t_reclist
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.
IF sy-subrc NE 0.
WRITE: 'Sending Failed'.
ELSE.
WRITE: 'Sending Successful'.
ENDIF.
ENDFORM. " send_message
Output like this
