How To Send ALV Output By Email.

Question

Hi !
I wanted to ask how to send ALV output of report by email.
I know that i have to use the fms :
1. 'WWW_HTML_FROM_LISTOBJECT' - in order to convert the table to HTML.
2. 'SO_NEW_DOCUMENT_ATT_SEND_API1' - in order to  send the HTML file.
My problem is how to convert the ALV screen output to the apropriate table parameter of the function 'WWW_HTML_FROM_LISTOBJECT' to listobject type ?
thanks
moshe

Answer 1

Hi look at the following program.
*& Report  ZSM17_EMAIL1
REPORT  zsm17_email.
tables : mara.
data: begin of it_mara occurs 0,
      matnr like  mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      end of it_mara.
data: begin of it_final occurs 0,
      v_string(255),
      end of it_final.
*DATA: objpack LIKE sopcklsti1 OCCURS  2 WITH HEADER LINE,
     objhead LIKE solisti1   OCCURS  1 WITH HEADER LINE,
     objbin  LIKE solisti1   OCCURS 10 WITH HEADER LINE,
     objtxt  LIKE solisti1   OCCURS 10 WITH HEADER LINE,
     reclist LIKE somlreci1  OCCURS  5 WITH HEADER LINE.
DATA: objpack LIKE sopcklsti1 OCCURS  0 with header line,
      objhead LIKE solisti1   OCCURS  0 WITH HEADER LINE,
      objbin  LIKE solisti1   OCCURS 0 WITH HEADER LINE,
      objtxt  LIKE solisti1   OCCURS 0 WITH HEADER LINE,
      reclist LIKE somlreci1  OCCURS  0 WITH HEADER LINE.
data: wa_objbin like line of objbin.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
select-options s_matnr for mara-matnr.
*--- Selecting data from mara
select matnr
       ernam
       mtart
       matkl
       into table it_mara
       from mara
       where matnr in s_matnr.
if sy-subrc ne 0.
write:/ 'no data found'.
  exit.
else.
loop at it_mara.
   concatenate it_mara-matnr
               it_mara-ernam
               it_mara-mtart
               it_mara-matkl
     into it_final-v_string separated by '~'.
    append it_final.
    clear it_final.
endloop.
endif.
Creating the document to be sent
doc_chng-obj_name = 'TEST'.   "name of the document
title of document or subject
doc_chng-obj_descr = 'Test Email program'.
body of the mail
objtxt = 'A test report'.
APPEND objtxt.
objtxt = 'is enclosed as an attachment.'.
APPEND objtxt.
*clear objtxt.
DESCRIBE TABLE objtxt LINES tab_lines.
Size of SAPoffice Document (for API1)
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
Creating the entry for the compressed attachment
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'RAW'.
*objpack-obj_name   = 'ATTACHMENT'.
*objpack-obj_descr = 'Test Email Program'.
*objpack-doc_size   = tab_lines * 255.
APPEND objpack..
*--- Populating the records in the attachment
data: w_str(255) TYPE c.
loop at it_final into wa_objbin.
append wa_objbin to objbin.
append objbin.
clear wa_objbin.
endloop.
DESCRIBE TABLE objbin LINES tab_lines.
tab_lines = tab_lines + 1.
objhead = 'test_report.txt'.
append objhead.
Creating the entry for the compressed attachment
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 1.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'txt'.
objpack-obj_name   = 'txt'.
objpack-obj_descr = 'Test Email Program'.
objpack-doc_size   = tab_lines * 255.
APPEND objpack..
*write:/ 'object text', objtxt.
Entering names in the distribution list
reclist-receiver = '[email protected]'.
reclist-rec_type = 'U'.
APPEND 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
    object_header              = objhead
    contents_bin               = objbin
    contents_txt               = objtxt
    receivers                  = reclist
  EXCEPTIONS
    too_many_receivers         = 1
    document_not_sent          = 2
    operation_no_authorization = 4
    OTHERS                     = 99.
CASE sy-subrc.
  WHEN 0.
    WRITE: / 'Result of the send process:'.
    LOOP AT reclist.
      WRITE:  reclist-receiver(48), ':'.
      IF reclist-retrn_code = 0.
        WRITE 'sent successfully'.
      ELSE.
        WRITE 'not sent'.
      ENDIF.
    ENDLOOP.
   loop at objbin.
     write: objbin-line.
   endloop.
  WHEN 1.
    WRITE: / 'no authorization to send to the specified number of' .
    "'recipients!'.
  WHEN 2.
    WRITE: / 'document could not be sent to any of the recipients!'.
  WHEN 4.
    WRITE: / 'no authorization to send !'.
  WHEN OTHERS.
    WRITE: / 'error occurred during sending !'.
ENDCASE.