Report output as email

Question

Hi All,
I need to send report output as email text. is anybody has done this sort of work or any function module for this.
Please help if anyone knows it.
Cheers,
Lokesh

Answer 1

Hi
  Check the code for similar requirement I was faced earlier.
Type for binary attachment table.
  types: l_ty_tab_objbin type solisti1 occurs 0.
  data: l_objbin type l_ty_tab_objbin.
Tables to hold PDF data
  data: t_doctab type docs occurs 0,
        t_line  type tline occurs 0.
  tables : soli.             "SAPoffice: line, length 255
  tables : zpsdsalrep.       "ZPSDSALREP
  data: l_email type soli-line.
  data: l_email1 type soli-line.
  data: l_adrnr like kna1-adrnr.
  data: l_objky type nast-objky.
  data: l_zzterrmg type zpsdsalrep-zzterrmg.
  data: l_zsupervisor type zpsdsalrep-zsupervisor.
  data: l_kunnr type kna1-kunnr.
  data: l_kunnr1 type vbak-kunnr.
  data: l_reclist like somlreci1 occurs 0 with header line.
  data: l_objtxt    like solisti1 occurs   0 with header line.
  data: l_objpack   like sopcklsti1 occurs 0 with header line.
  data: l_doc_chng  like sodocchgi1.
  data: l_objhead   like solisti1 occurs   0 with header line.
  data: l_tab_lines like sy-tabix.
  constants: k_true type boolean_flg value 'X'.
  data: l_mail type somlreci1-receiver.
  data: l_mail1 type somlreci1-receiver.
  data:
l_l_mail2 TYPE somlreci1-receiver.
l_l_mail type somlreci1-receiver.
  data: l_zzsalesrep type zpsdsalrep-zzsalesrep.
  data: l_recipents type somlreci1-receiver.
  constants: k_x(1) type c value 'X',
             k_u(1) type c value 'U',
             k_raw(3) type c value 'RAW'.
  call function 'CONVERT_OTF_2_PDF'
EXPORTING
  USE_OTF_MC_CMD               = 'X'
  ARCHIVE_INDEX                =
IMPORTING
  BIN_FILESIZE                 =
    tables
      otf                          = t_otfdata
      doctab_archive               = t_doctab
      lines                        = t_line
      exceptions
     err_conv_not_possible        = 1
     err_otf_mc_noendmarker       = 2
     others                       = 3.
  if sy-subrc <> 0.
    write: / 'error', sy-subrc.
  endif.
***/ Convert the PDF format to the table type required for the
**attachment.
  call function 'QCE1_CONVERT'
    tables
      t_source_tab         = t_line
      t_target_tab         = l_objbin
    exceptions
      convert_not_possible = 1
      others               = 2.
  if sy-subrc <> 0.
    write: / 'error', sy-subrc.
  endif.
  select single kunnr from vbak into l_kunnr1
         where vbeln = nast-objky.
  select single adrnr from kna1 into l_adrnr
         where kunnr = l_kunnr1.
  check sy-subrc is initial.
  select single smtp_addr from adr6 into l_email
         where addrnumber = l_adrnr.
SELECT SINGLE zzterrmg FROM zpsdsalrep INTO l_zzterrmg
        WHERE zzsalesrep = l_kunnr1.
SELECT SINGLE zsupervisor FROM zpsdsalrep INTO l_zsupervisor
     WHERE  zzterrmg = l_zzterrmg.
SELECT SINGLE kunnr FROM kna1 INTO l_kunnr
       WHERE sortl = l_zsupervisor.
SELECT SINGLE zsupervisor FROM zpsdsalrep INTO l_zsupervisor
       WHERE  zzsalesrep = l_kunnr1.
SELECT SINGLE zzsalesrep FROM zpsdsalrep INTO l_zzsalesrep
       WHERE zzterrmg = l_zsupervisor.
SELECT SINGLE adrnr FROM kna1 INTO l_adrnr
          WHERE kunnr = l_zzsalesrep.
CHECK sy-subrc IS INITIAL.
SELECT SINGLE smtp_addr FROM adr6 INTO l_email1
        WHERE addrnumber = l_adrnr.
SELECT SINGLE adrnr FROM kna1 INTO l_adrnr
        WHERE kunnr = l_kunnr.
CHECK sy-subrc IS INITIAL.
SELECT SINGLE smtp_addr FROM adr6 INTO l_email1
        WHERE addrnumber = l_adrnr.
  l_mail = l_email.
l_mail1 = l_email1.
l_l_mail2 = text-006.
  l_l_mail = text-007.
Creation of the document to be sent
File Name
  l_doc_chng-obj_name = 'SENDFILE'.
Mail Subject
  concatenate text-001 nast-objky into l_doc_chng-obj_descr.
l_doc_chng-obj_descr = text-001.
Completing the recipient list
  l_reclist-receiver = l_mail.
  l_reclist-rec_type = k_u.
  append l_reclist.
l_reclist-receiver = l_mail1.
l_reclist-rec_type = 'U'.
APPEND l_reclist.
  l_reclist-receiver = l_l_mail.
  l_reclist-rec_type = k_u.
  append l_reclist.
l_reclist-receiver = l_l_mail2.
l_reclist-rec_type = 'U'.
APPEND l_reclist.
Mail Contents
  l_objtxt = text-002.
  append l_objtxt.
  clear l_objtxt.     " put in a blank line
  append l_objtxt.
  data: l_subject type solisti1.
  concatenate text-003 '-' nast-objky into l_subject.
  l_objtxt = l_subject.
  append l_objtxt.
  l_objtxt = text-004 .
  append l_objtxt.
Calculate email size in bytes
  describe table l_objtxt lines l_tab_lines.
  read table l_objtxt index l_tab_lines.
  l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + strlen( l_objtxt ).
Creation of the entry for the compressed document
for the email text
  clear l_objpack-transf_bin.
  l_objpack-head_start = 1.
  l_objpack-head_num = 0.
  l_objpack-body_start = 1.
  l_objpack-body_num = l_tab_lines.
  l_objpack-doc_type = k_raw.
  append l_objpack.
Creation of the document attachment
(Assume that the data in OBJBIN is in BMP format)
  describe table l_objbin lines l_tab_lines.
  l_objhead = text-001  .
  append l_objhead.
  clear l_objpack.
**/ Creation of the entry for the compressed/attached document
  l_objpack-transf_bin = k_true.
  l_objpack-head_start = 1.
  l_objpack-head_num = 1.
  l_objpack-body_start = 1.
  l_objpack-body_num = l_tab_lines.
  l_objpack-doc_type = 'PDF'.
  l_objpack-obj_name = text-005.
  l_objpack-obj_descr = text-001.
  l_objpack-doc_size = l_tab_lines * 255.
  append l_objpack. "/ .
  delete  l_reclist where receiver = ''.
Sending the document
  call function 'SO_NEW_DOCUMENT_ATT_SEND_API1' " IN UPDATE TASK "/ .
    exporting
      document_data              = l_doc_chng
      put_in_outbox              = k_x
    tables
      packing_list               = l_objpack
      object_header              = l_objhead
      contents_bin               = l_objbin
      contents_txt               = l_objtxt
      receivers                  = l_reclist
    exceptions
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      others                     = 99.
  if sy-subrc <> 0.
    write: / 'unsuccessful', sy-subrc.
  else.
    concatenate l_mail ',' l_mail1 ',' l_l_mail into l_recipents.
    syst-msgid = '8I'.
    syst-msgno = '000'.
    syst-msgty = 'S'.
    syst-msgv1 = text-008.
    skip.
    syst-msgv2 = text-009.
    syst-msgv3 = l_recipents.
    clear:  syst-msgv4. "syst-msgv2, syst-msgv3,
    perform protocol_update.
    write:  / 'successful'.
  endif.
**/Take_note it is a requirement to do a commit work for the
email to go into transaction SOST.
COMMIT WORK.   "/Take_note .
if sy-subrc eq 0.
endif.
Regards,
Sreeram