How to send ALV report Output through mail in background !

Question

Hi ,
I had an ALV Report. I want to send this report output to patricular email id every day ! Presenty i do this manually. I run the report and send the output to the particular email address. Now i want to schecule the report daily in background and the out put of the report should be mailed to particular email ids in background itself. How can i do this ?
Is there and method or setting through which we can do this ?
Regards

Answer 1

Hi Nau,
For this requirement you will have to write another program.
This program will convert the spool requests into PDF document and sends an email  to the recipients that you specify.
These are the threads which are already posted in The SDN.
*http://wiki.sdn.sap.com/wiki/display/Snippets/Converts+spool+request+into+PDF+document+and+emails*
*<a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="353650"></a>*
*<a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="902985"></a>*
You need to use the Function module :
-- Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
I will provide you with the code to get this functionality.
*&      Form  SEND_EMAIL
form SEND_EMAIL .
DATA:   t_mailpack   TYPE sopcklsti1 OCCURS 0 WITH HEADER LINE,
          t_mailhead   TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailbin    TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailtxt    TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailrec    TYPE somlreci1  OCCURS 0 WITH HEADER LINE.
  DATA: wa_maildata    TYPE sodocchgi1,
        l_filename(50) TYPE c,
        l_fldname(30)  TYPE c,
        l_fldval(100)  TYPE c,
        l_lines        TYPE i,
        l_text         TYPE text128 .
  DATA: w_email_subrc  TYPE i.
  DATA: w_ship like vbfa-vbeln.
  CLEAR: wa_maildata,
         t_mailtxt,
         t_mailbin,
         t_mailpack,
         t_mailhead,
         t_mailrec.
  REFRESH: t_mailtxt,
           t_mailbin,
           t_mailpack,
           t_mailhead,
           t_mailrec.
*-- Fill output file
*- Fill header
  CLEAR: t_mailbin.
*  t_mailbin[] = pdf_tab[].
  t_mailbin[] = it_att[].     "Uthaman
*This line is added to get the shipment no in Subject Line
SELECT SINGLE * FROM vbfa WHERE vbelv EQ nast-objky
                            AND vbtyp_v EQ c_vbtyp_v_j
                            AND vbtyp_n EQ c_vbtyp_n_8.
w_ship = vbfa-vbeln.
shift w_ship left deleting leading '0'.
*-- File name
if nast-kschl EQ 'ZFPL'.
  CLEAR l_filename.
  CONCATENATE 'Packing List -'
              sy-datum+4(2) sy-datum+6(2) sy-datum(4) '.PDF' INTO l_filename.
*-- Creation of the document to be sent File Name
  wa_maildata-obj_name = 'Packing List'.
*-- Mail Subject
  CONCATENATE l_filename '-' 'Shipment No -' w_ship INTO wa_maildata-obj_descr SEPARATED BY space.
*-- Mail Contents
  t_mailtxt-line = 'Packing List'.
  APPEND t_mailtxt.
ENDIF.
if nast-kschl EQ 'ZFBA'.
  CLEAR l_filename.
  CONCATENATE 'Booking Advice -'
              sy-datum+4(2) sy-datum+6(2) sy-datum(4) '.PDF'
              INTO l_filename.
*-- Creation of the document to be sent File Name
  wa_maildata-obj_name = 'Booking Advice'.
*-- Mail Subject
  CONCATENATE l_filename '-' 'Shipment No -' w_ship INTO wa_maildata-obj_descr SEPARATED BY space.
*-- Mail Contents
  t_mailtxt-line = 'Packing List'.
  APPEND t_mailtxt.
ENDIF.
*-- Prepare Packing List
*-- Write Packing List (Main Subject)
  CLEAR: l_lines, t_mailpack.
  DESCRIBE TABLE t_mailtxt LINES l_lines.
*  READ TABLE t_mailtxt INDEX l_lines.
  t_mailpack-doc_size = ( l_lines - 1 ) * 255 + STRLEN( t_mailtxt ).
*  CLEAR t_mailpack-transf_bin.
  t_mailpack-transf_bin = ' '.
  t_mailpack-head_start = 1.
  t_mailpack-head_num = 0.
  t_mailpack-body_start = 1.
  t_mailpack-body_num = l_lines.
  t_mailpack-doc_type = 'RAW'.
  APPEND t_mailpack.
  t_mailhead = l_filename.
  APPEND t_mailhead.
*-- Write Packing List (Attachment)
  CLEAR: l_lines, t_mailpack.
  DESCRIBE TABLE pdf_tab[] LINES l_lines.
*  READ TABLE pdf_tab INDEX l_lines.
  t_mailpack-doc_size = ( l_lines - 1 ) * 255 + STRLEN( t_mailbin ).
  t_mailpack-transf_bin = 'X'.
  t_mailpack-head_start = 1.
  t_mailpack-head_num = 1.
  t_mailpack-body_start = 1.
  t_mailpack-body_num = l_lines.
  t_mailpack-doc_type = 'PDF'.
  t_mailpack-obj_name = l_filename.
  t_mailpack-obj_descr = l_filename.
  t_mailpack-obj_langu = 'E'.
  APPEND t_mailpack.
*-- Set recipients
tables :  ztotcemail.
SELECT SINGLE * FROM vbfa WHERE vbelv EQ nast-objky
                            AND vbtyp_v EQ c_vbtyp_v_j
                            AND vbtyp_n EQ c_vbtyp_n_8.
CLEAR vttk.
SELECT SINGLE * FROM vttk WHERE tknum EQ vbfa-vbeln.
SELECT SINGLE * FROM ztotcemail WHERE tplst = vttk-tplst
                                  AND lifnr = vttk-tdlnr.
IF SY-SUBRC EQ 0.
  t_mailrec-receiver = ztotcemail-smtp_addr. "'Here you will give the email address'.
  t_mailrec-rec_type  = 'U'.
  APPEND t_mailrec.
ENDIF.
**-- Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = wa_maildata
      put_in_outbox              = 'X'
*      commit_work                = 'X'  " N-16
    TABLES
      packing_list               = t_mailpack
      object_header              = t_mailhead
      contents_bin               = t_mailbin[]
      contents_txt               = t_mailtxt[]
      receivers                  = t_mailrec
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  w_email_subrc = sy-subrc.
  IF sy-subrc EQ 0.
    MESSAGE s000(zotc) WITH 'Email output sent successfully'.
  ELSE.
    MESSAGE s000(zotc) WITH 'Can not send email output'.
  ENDIF.
endform.                    " SEND_EMAIL
Hope the above information will be helpful.
Regards,
Kittu