Sending o/p to mail ( in back ground)

Question

hi SDNs,
    i want to send output of my report to email, while running it in background...
i think, i have to write :
if SY-BATCH = 'X'.
" send mail
ENDIF.
how to do send? and is this the correct way to do that?
is there any other solution?
could any one pls help me out..!
Thanking you.,
Rama krishna S

Answer 1

Hi Please try the following code...
This will fetch the delivary documents and send them to specified addresses as an attatchment...
Report ztestprg_az
no standard page heading
line-size 80
line-count 65.
tables: eket.
types: begin of type_eket,
eindt like eket-eindt,
ebeln like eket-ebeln,
wamng like eket-wamng,
end of type_eket.
field-symbols: <wa_eket> type type_eket.
data: t_itab type standard table of type_eket.
data: w_date like sy-datum.
selection-screen: begin of block b1 with frame title text-000.
selection-screen begin of line.
parameters: p_exl as checkbox default 'X',
p_send as checkbox default 'X',
p_recevr type ad_smtpadr default
'[email protected]' modif id sc1.
selection-screen end of line.
selection-screen end of block b1.
initialization.
call function 'CALCULATE_DATE'
exporting
days = '-60'
MONTHS = '0'
start_date = sy-datum
importing
result_date = w_date.
at selection-screen output.
if p_send <> 'X' .
loop at screen.
if screen-group1 = 'SC1'.
screen-invisible = '1'.
modify screen.
endif.
endloop.
else.
loop at screen.
if screen-group1 = 'SC1'.
screen-invisible = '0'.
modify screen.
endif.
endloop.
endif.
start-of-selection.
perform fetch_data.
perform disp_data.
if p_send = 'X' .
perform send_to_mail.
endif.
if p_exl = 'X'.
perform send_to_excel.
endif.
*& Form fetch_data
text
--> p1 text
<-- p2 text
form fetch_data.
select eindt
ebeln
wamng from eket
into corresponding fields of
table t_itab
where eindt lt w_date.
endform. " fetch_data
*& Form disp_data
text
--> p1 text
<-- p2 text
form disp_data.
write: / 'List of delivary lines which are 60 days past from today'.
uline.
write: /5 'Delivary Date',
30 'Purchase Doc. Num',
55 'Issued Quantity'.
uline.
loop at t_itab assigning <wa_eket>.
write: /5 <wa_eket>-eindt,
30 <wa_eket>-ebeln,
50 <wa_eket>-wamng.
endloop.
endform. " disp_data
*& Form send_to_mail
text
--> p1 text
<-- p2 text
form send_to_mail.
*Structures and internal table used to send data via mail
data : objpack like sopcklsti1 occurs 2 with header line,
objbin like solisti1 occurs 0 with header line,
objtxt like solisti1 occurs 10 with header line,
reclist like somlreci1 occurs 5 with header line,
tab_lines like sy-tabix,
doc_chng like sodocchgi1.
data: c_return type x value '0D',
c_tabspace type x value '09'.
data: pw_quan(16) type c.
*internal table objbin will contain actual data in line structure
*Heading
concatenate 'ITEM DELIVERY DATE'
c_tabspace
'PURCHASE DOC. NO'
c_tabspace
'ISSUED QUANTITY'
c_return
into objbin-line.
append objbin.
*Contents
loop at t_itab assigning <wa_eket>.
move <wa_eket>-wamng to pw_quan.
concatenate <wa_eket>-eindt
c_tabspace
<wa_eket>-ebeln
c_tabspace
pw_quan
c_return
into objbin-line.
append objbin.
endloop.
*Assign data to objtxt
objtxt-line =
'Hi, Please find the attatchment for the list of items to be deleted.'.
append objtxt.
objtxt-line = 'Thanks & Regards'.
append objtxt.
objtxt-line = 'Azmath S'.
append objtxt.
*assign a name to the email document
doc_chng-obj_name = 'Output'.
*give tha email subject line
doc_chng-obj_descr =
'The list of items to be deleted (older than 60 days)'.
*determine the size of the body of the email
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
*fill the fields of the packing list for the body of the email
*doc needs no header
objpack-head_start = 1.
objpack-head_num = 0.
*but it has a body
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
append objpack.
*fill the fields of the packing list for the attachement
describe table objbin lines tab_lines.
*needs no header
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
*but it has a body
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'XLS'.
objpack-obj_name = 'Attachement'.
objpack-obj_descr = 'items.xls'.
objpack-doc_size = tab_lines * 255.
append objpack.
*fill the mail recipient list
*rec_type 'B' indicates sap user , rec_type 'U' indicates internet user
reclist-receiver = sy-uname.
reclist-rec_type = 'B'.
reclist-express = 'X'.
append reclist.
Internet users (receiver) list
reclist-receiver = p_recevr.
reclist-rec_type = 'U'.
reclist-express = 'X'.
append reclist.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
exporting
document_data = doc_chng
put_in_outbox = 'X'
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
tables
packing_list = objpack
OBJECT_HEADER =
contents_bin = objbin
contents_txt = objtxt
CONTENTS_HEX =
OBJECT_PARA =
OBJECT_PARB =
receivers = 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 <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " send_to_mail
*& Form send_to_excel
text
--> p1 text
<-- p2 text
form send_to_excel.
call function 'WS_EXCEL'
exporting
filename = 'Items.xls'
SYNCHRON = ' '
tables
data = t_itab
rgds
anver
if hlped pls rwrd ponts