Email through report

Question

Hello All,
I have done the z report in which i have called a function module so_new_send o send an email.
I am able to post an email from report to SOST transaction but from there a mail is not triggered.The status of the email is waiting for communication service.
it keeps waiting for communication service. do i need to enable some thing.
Please help on this issue.
Thanks in advance

Answer 1

Hi Anu,
This code can help you.
*Convert the Spool into PDF and send to
*External Email ID
*Applies To:
*SAP 4.7/Above
*Article Summary
*This report program will execute the given program with the specified variant in background and
*convert the spool request into PDF and send it as attachment to the specified Email ID.
*By: Elini.P
*Title: ABAP
*Date: 29 Apr 2005
*This is the code:
REPORT zpp430_report_in_pdf NO STANDARD PAGE HEADING LINE-SIZE 255.
*& Report ZPP430_REPORT_IN_PDF
*& Converts spool request into PDF document and emails it to *
*& recipicant. *
*& Execution *
*& This program must be run as a background job in-order for the write *
*& commands to create a Spool request rather than be displayed on *
*& screen *
TABLES: tsp01.
PARAMETER: p_email1 LIKE somlreci1-receiver
DEFAULT '[email protected]',
p_sender LIKE somlreci1-receiver
DEFAULT '[email protected]',
p_repid LIKE sy-repid, " Report to execute
p_linsz LIKE sy-linsz DEFAULT 132, " Line size
p_paart LIKE sy-paart DEFAULT 'X_65_132', " Paper Format
p_slset LIKE sy-slset, "Variant name
p_odescr LIKE sodocchgi1-obj_descr,
p_adescr TYPE so_obj_nam,
p_delspl AS CHECKBOX.
*DATA DECLARATION
DATA: gd_recsize TYPE i.
* Spool IDs
TYPES: BEGIN OF t_tbtcp.
        INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.
DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
wa_tbtcp TYPE t_tbtcp.
* Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
gd_eventparm LIKE tbtcm-eventparm,
gd_external_program_active LIKE tbtcm-xpgactive,
gd_jobcount LIKE tbtcm-jobcount,
gd_jobname LIKE tbtcm-jobname,
gd_stepcount LIKE tbtcm-stepcount,
gd_error TYPE sy-subrc,
gd_reciever TYPE sy-subrc.
DATA: w_recsize TYPE i,
mc_valid(1) TYPE c.
DATA: gd_subject LIKE sodocchgi1-obj_descr,
it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
gd_sender_type LIKE soextreci1-adr_typ,
gd_attachment_desc TYPE so_obj_nam,
gd_attachment_name TYPE so_obj_des,
mi_rqident LIKE tsp01-rqident.
* Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
w_spool_nr LIKE tsp01-rqident,
gd_destination LIKE rlgrap-filename,
gd_bytecount LIKE tst01-dsize,
gd_buffer TYPE string.
DATA:
mstr_print_parms LIKE pri_params.
* Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',
c_no(1) TYPE c VALUE ' ',
c_device(4) TYPE c VALUE 'LOCL'.
*START-OF-SELECTION.
START-OF-SELECTION.
* Write statement to represent report output. Spool request is created
* if write statement is executed in background. This could also be an
* ALV grid which would be converted to PDF without any extra effort
* WRITE 'Hello World'.
* NEW-PAGE.
* COMMIT WORK.
* NEW-PAGE PRINT OFF.
* IF SY-BATCH EQ 'X'.
* PERFORM GET_JOB_DETAILS.
* PERFORM OBTAIN_SPOOL_ID.
*** Alternative way could be to submit another program and store spool
*** id into memory.
*submit ZSPOOLTOPDF2
* to sap-spool
* spool parameters %_print
* archive parameters %_print
* without spool dynpro
* and return.
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
  EXPORTING
  authority = space
  copies = '1'
  cover_page = space
  data_set = space
  department = space
  destination = space
  expiration = '1'
  immediately = space
* in_archive_parameters = space
* in_parameters = space
  layout = space
  mode = space
  new_list_id = 'X'
  no_dialog = 'X'
  user = sy-uname
  IMPORTING
  out_parameters = mstr_print_parms
  valid = mc_valid
  EXCEPTIONS
  archive_info_not_found = 1
  invalid_print_params = 2
  invalid_archive_params = 3
  OTHERS = 4.
  IF mstr_print_parms-pdest = space.
    mstr_print_parms-pdest = 'LOCL'.
  ENDIF.
  mstr_print_parms-linsz = p_linsz.
  mstr_print_parms-paart = p_paart.
  SUBMIT (p_repid) TO SAP-SPOOL WITHOUT SPOOL DYNPRO
  SPOOL PARAMETERS mstr_print_parms
  USING SELECTION-SET p_slset
  AND RETURN.
* Get spool id from program called above
  PERFORM get_spool_number USING sy-repid sy-uname CHANGING mi_rqident.
* IMPORT w_spool_nr FROM MEMORY ID SY-REPID.
  PERFORM convert_spool_to_pdf.
  PERFORM process_email.
  IF p_delspl EQ 'X'.
    PERFORM delete_spool.
  ENDIF.
  IF sy-sysid = c_dev.
    WAIT UP TO 5 SECONDS.
    SUBMIT rsconn01 WITH mode = 'INT'
    WITH output = 'X'
    AND RETURN.
  ENDIF.
* ELSE.
* SKIP.
* WRITE:/ 'Program must be executed in background in-order for spool'
* 'request to be created.'.
* ENDIF.
* FORM obtain_spool_id *
FORM obtain_spool_id.
  CHECK NOT ( gd_jobname IS INITIAL ).
  CHECK NOT ( gd_jobcount IS INITIAL ).
  SELECT * FROM tbtcp
  INTO TABLE it_tbtcp
  WHERE jobname = gd_jobname
  AND jobcount = gd_jobcount
  AND stepcount = gd_stepcount
  AND listident <> '0000000000'
  ORDER BY jobname
  jobcount
  stepcount.
  READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
  IF sy-subrc = 0.
    MESSAGE s004(zdd) WITH gd_spool_nr.
    gd_spool_nr = wa_tbtcp-listident.
    MESSAGE s004(zdd) WITH gd_spool_nr.
  ELSE.
    MESSAGE s005(zdd).
  ENDIF.
ENDFORM. "OBTAIN_SPOOL_ID
* FORM get_job_details *
FORM get_job_details.
* Get current job details
  CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
    IMPORTING
      eventid                 = gd_eventid
      eventparm               = gd_eventparm
      external_program_active = gd_external_program_active
      jobcount                = gd_jobcount
      jobname                 = gd_jobname
      stepcount               = gd_stepcount
    EXCEPTIONS
      no_runtime_info         = 1
      OTHERS                  = 2.
ENDFORM. "GET_JOB_DETAILS
* FORM convert_spool_to_pdf *
FORM convert_spool_to_pdf.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = mi_rqident
      no_dialog                = c_no
      dst_device               = c_device
    IMPORTING
      pdf_bytecount            = gd_bytecount
    TABLES
      pdf                      = it_pdf_output
    EXCEPTIONS
      err_no_abap_spooljob     = 1
      err_no_spooljob          = 2
      err_no_permission        = 3
      err_conv_not_possible    = 4
      err_bad_destdevice       = 5
      user_cancelled           = 6
      err_spoolerror           = 7
      err_temseerror           = 8
      err_btcjob_open_failed   = 9
      err_btcjob_submit_failed = 10
      err_btcjob_close_failed  = 11
      OTHERS                   = 12.
  CHECK sy-subrc = 0.
* Transfer the 132-long strings to 255-long strings
  LOOP AT it_pdf_output.
    TRANSLATE it_pdf_output USING ' ~'.
    CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
  ENDLOOP.
  TRANSLATE gd_buffer USING '~ '.
  DO.
    it_mess_att = gd_buffer.
    APPEND it_mess_att.
    SHIFT gd_buffer LEFT BY 255 PLACES.
    IF gd_buffer IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
ENDFORM. "CONVERT_SPOOL_TO_PDF
* FORM process_email *
FORM process_email.
  DESCRIBE TABLE it_mess_att LINES gd_recsize.
  CHECK gd_recsize > 0.
  PERFORM send_email USING p_email1.
* perform send_email using p_email2.
ENDFORM. "PROCESS_EMAIL
* FORM send_email *
* --> p_email *
FORM send_email USING p_email.
  CHECK NOT ( p_email IS INITIAL ).
  REFRESH it_mess_bod.
* Default subject matter
  gd_subject = p_odescr.
  gd_attachment_desc = p_adescr.
* CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
  it_mess_bod = 'This is an automated report from SAP.'.
  APPEND it_mess_bod.
  it_mess_bod = 'Please do not reply to this mail id.'.
  APPEND it_mess_bod.
*IT_MESS_BOD = 'For any clarification on the details of this report'
* APPEND IT_MESS_BOD.
* IT_MESS_BOD = 'please contact Business Planning. Thank you'.
* APPEND IT_MESS_BOD.
* If no sender specified - default blank
  IF p_sender EQ space.
    gd_sender_type = space.
  ELSE.
    gd_sender_type = 'INT'.
  ENDIF.
* Send file by email as .xls speadsheet
  PERFORM send_file_as_email_attachment
  TABLES it_mess_bod
  it_mess_att
  USING p_email
  p_odescr
  'PDF'
  gd_attachment_name
  gd_attachment_desc
  p_sender
  gd_sender_type
  CHANGING gd_error
  gd_reciever.
ENDFORM. "SEND_EMAIL
* FORM delete_spool *
FORM delete_spool.
  DATA: ld_spool_nr TYPE tsp01_sp0r-rqid_char.
  ld_spool_nr = gd_spool_nr.
  CHECK p_delspl <> c_no.
  CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'
    EXPORTING
      spoolid = ld_spool_nr.
ENDFORM. "DELETE_SPOOL
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
* Send email
FORM send_file_as_email_attachment TABLES it_message
it_attach
USING p_email
p_mtitle
p_format
p_filename
p_attdescription
p_sender_address
p_sender_addres_type
CHANGING p_error
p_reciever.
  DATA: ld_error TYPE sy-subrc,
  ld_reciever TYPE sy-subrc,
  ld_mtitle LIKE sodocchgi1-obj_descr,
  ld_email LIKE somlreci1-receiver,
  ld_format TYPE so_obj_tp ,
  ld_attdescription TYPE so_obj_nam ,
  ld_attfilename TYPE so_obj_des ,
  ld_sender_address LIKE soextreci1-receiver,
  ld_sender_address_type LIKE soextreci1-adr_typ,
  ld_receiver LIKE sy-subrc.
  DATA: t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
  t_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
  t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
  t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
  t_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,
  w_cnt TYPE i,
  w_sent_all(1) TYPE c,
  w_doc_data LIKE sodocchgi1.
  ld_email = p_email.
  ld_mtitle = p_mtitle.
  ld_format = p_format.
  ld_attdescription = p_attdescription.
  ld_attfilename = p_filename.
  ld_sender_address = p_sender_address.
  ld_sender_address_type = p_sender_addres_type.
* Fill the document data.
  w_doc_data-doc_size = 1.
* Populate the subject/generic message attributes
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle .
  w_doc_data-sensitivty = 'F'.
* Fill the document data and get size of attachment
  CLEAR w_doc_data.
  READ TABLE it_attach INDEX w_cnt.
  w_doc_data-doc_size =
  ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle.
  w_doc_data-sensitivty = 'F'.
  CLEAR t_attachment.
  REFRESH t_attachment.
  t_attachment[] = it_attach[].
* Describe the body of the message
  CLEAR t_packing_list.
  REFRESH t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  DESCRIBE TABLE it_message LINES t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  APPEND t_packing_list.
* Create attachment notification
  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 1.
  t_packing_list-body_start = 1.
  DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
  t_packing_list-doc_type = ld_format.
  t_packing_list-obj_descr = ld_attdescription.
  t_packing_list-obj_name = ld_attfilename.
  t_packing_list-doc_size = t_packing_list-body_num * 255.
  APPEND t_packing_list.
* Add the recipients email address
  CLEAR t_receivers.
  REFRESH t_receivers.
  t_receivers-receiver = ld_email.
  t_receivers-rec_type = 'U'.
  t_receivers-com_type = 'INT'.
  t_receivers-notif_del = 'X'.
  t_receivers-notif_ndel = 'X'.
  APPEND t_receivers.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = w_doc_data
      put_in_outbox              = 'X'
      sender_address             = ld_sender_address
      sender_address_type        = ld_sender_address_type
      commit_work                = 'X'
    IMPORTING
      sent_to_all                = w_sent_all
    TABLES
      packing_list               = t_packing_list
      contents_bin               = t_attachment
      contents_txt               = it_message
      receivers                  = t_receivers
    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.
* Populate zerror return code
  ld_error = sy-subrc.
* Populate zreceiver return code
  LOOP AT t_receivers.
    ld_receiver = t_receivers-retrn_code.
  ENDLOOP.
ENDFORM. "SEND_FILE_AS_EMAIL_ATTACHMENT
*& Form GET_SPOOL_NUMBER
* text
* -->P_SY_REPID text
* -->P_SY_UNAME text
* <--P_MI_RQIDENT text
FORM get_spool_number USING f_repid
f_uname
CHANGING f_rqident.
  DATA:
  lc_rq2name LIKE tsp01-rq2name.
  CONCATENATE f_repid+0(9)
  f_uname+0(3)
  INTO lc_rq2name.
  SELECT * FROM tsp01 WHERE rq2name = lc_rq2name
  ORDER BY rqcretime DESCENDING.
    f_rqident = tsp01-rqident.
    EXIT.
  ENDSELECT.
  IF sy-subrc NE 0.
    CLEAR f_rqident.
  ENDIF.
ENDFORM. " GET_SPOOL_NUMBER
Regards,
Arun Sambargi.