Issue with 3 attachments in an email

Question

Hi All,
Anybody can send me the program which generates 3 excel sheets as an attachment. i wrote one program which geberates .txt files as an atatchmetns.
thanks,
maheedhar

Answer 1

hi,
following is the code which uses both formats PDF and CSV OR XLS.
*&  Report  Z_SEND_JOB.                                                &*
*& Title            : Send spool lists with PDF / CSV attachments.     &*
*& Program name     : Z_SEND_JOB.                                      &*
*& Source Code Type : Report                                           &*
report  z_send_job.
*                           INCLUDE                                    *
include z_send_job_data.
include z_send_job_pai.
*                    AT SELECTION-SCREEN.                              *
at selection-screen.
  if s_email1[] is initial.
    message s899(mm) with 'Please Enter E-Mail id'.
    stop.
  endif.
  if p_spool is initial and p_tcode is initial and p_pgna is initial and p_sch is initial.
    message s899(mm) with 'Please enter Spool Number or Tcode or Program name or created by'.
    stop.
  endif.
*                    START-OF-SELECTION.                               *
start-of-selection.
  perform get_job_details.
  if not p_pdf is initial.
*process to send as pdf attachment
    perform convert_spool_to_pdf.
    perform process_email.
  else.
*process to send as excel attachment
    perform convert_spool_excel.
    if not it_spool_xls_return[] is initial.
      perform process_email.
    else.
      message i000(0) with 'Cannot Send this spool as an Excel File'.
    endif.
  endif.
*iinclude z_send_job_data.
*&  Include           Z_SEND_JOB_DATA
*                       Tables Workarea                                *
tables: somlreci1,
         tbtcp.
*                       TYPE-POOLS                                     *
type-pools: truxs.
*                           CONSTANTS                                  *
constants: c_no(1) type c value ' ',
           c_device(4) type c value 'LOCL'.
*                   GLOBAL DATA DECLARATIONS                           *
data : gd_recsize type i.
data : l_format(3) type c.
*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.
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.
*Spool to PDF conversions
data : gd_spool_nr like tsp01-rqident ,
       gd_destination like rlgrap-filename,
       gd_bytecount like tst01-dsize,
       gd_buffer type string.
data : gv_client type tsp01-rqclient,
       gv_name   type tsp01-rqo1name,
       gv_type   type  rststype-type,
       gv_objtype   type  rststype-type,
       gv_is_otf(1) type  c value ' ',
*         GV_SPOOL   type  i,
       gv_pdfspoolid type tsp01-rqident,
       gv_jobname    type tbtcjob-jobname,
       gv_jobcount   type tbtcjob-jobcount.
*                       Field Strings                                  *
*Spool IDs
types: begin of t_tbtcp.
        include structure tbtcp.
types: end of t_tbtcp.
*for excel
types: begin of t_spool.
        include structure bapixmspoo.
types: end of t_spool.
*                     Internal Tables                                  *
data: it_tbtcp type standard table of t_tbtcp initial size 0,
      wa_tbtcp type t_tbtcp.
*Binary store for PDF
data: begin of it_pdf_output occurs 0.
        include structure tline.
data: end of it_pdf_output.
data t_spools type standard table of t_spool with default key.
data : it_spool_xls        like   t_spools with header line.
data : it_spool_xls_return type   truxs_t_text_data.
data: wa_spool_xls_return(255) type c.
data:   it_message type standard table of solisti1 initial size 0
                with header line.
data:   it_attach type standard table of solisti1 initial size 0
                with header line.
data : begin of gt_spool_file occurs 0,
           tdline(2500) type c,
       end of gt_spool_file.
*                    Selection Screen                                  *
selection-screen begin of block b1 with frame title text-001.
select-options: s_email1 for  somlreci1-receiver
                              no intervals.
parameter: p_spool like tbtcp-listident,
           p_tcode like tstc-tcode,
           p_pgna like tstc-pgmna,
           p_sch like tbtcp-sdluname default sy-uname.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameter: p_pdf radiobutton group g1 default 'X',
           p_excel radiobutton group g1.
selection-screen end of block b2.
*include z_send_job_pai
*&  Include           Z_SEND_JOB_PAI
*&      Form  GET_JOB_DETAILS
form get_job_details .
  data : l_spool(10) type c.
  if p_spool is initial.
*IF USER ENTER tcode get program name
    if not p_tcode is initial.
      select single pgmna into p_pgna from tstc
                                      where tcode = p_tcode.
    endif.
*get spool if for program name.
    if not p_pgna is initial.
      if p_sch is initial.
        select listident into l_spool from tbtcp    "GD_SPOOL_NR
                                up to 1 rows
                                where progname = p_pgna
                                order by listident descending.
        endselect.
        if sy-subrc eq 0.
          move : l_spool to gd_spool_nr.
        endif.
      else.
        select listident into l_spool from tbtcp
                            up to 1 rows
                            where progname = p_pgna
                            and sdluname = p_sch
                            order by listident descending.
        endselect.
        if sy-subrc eq 0.
          move : l_spool to gd_spool_nr.
        endif.
      endif.
    endif.
*get spool id with usr name
    if not p_sch is initial and p_pgna is initial.
      select listident into l_spool from tbtcp
                              up to 1 rows
                              where sdluname = p_sch
                              order by listident descending.
      endselect.
      if sy-subrc eq 0.
        move : l_spool to gd_spool_nr.
      endif.
    endif.
  else.
    gd_spool_nr = p_spool.
  endif.
  if gd_spool_nr is initial.
    message s899(mm) with 'Spool not found'.
    stop.
  endif.
endform.                    " GET_JOB_DETAILS
*&      Form  CONVERT_SPOOL_TO_PDF
form convert_spool_to_pdf .
  call function 'RSPO_RETURN_SPOOLJOB'
    exporting
      rqident              = gd_spool_nr
      first_line           = 1
      last_line            = 1000
      desired_type         = 'RAW'
    tables
      buffer               = gt_spool_file
    exceptions
      no_such_job          = 1
      job_contains_no_data = 2
      selection_empty      = 3
      no_permission        = 4
      can_not_access       = 5
      read_error           = 6
      type_no_match        = 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.
  select single rqclient
                rqo1name
                into (gv_client, gv_name)
                from tsp01
                where rqident = gd_spool_nr.
  call function 'RSTS_GET_ATTRIBUTES'
    exporting
      authority     = 'SP01'
      client        = gv_client
      name          = gv_name
      part          = 1
    importing
      type          = gv_type
      objtype       = gv_objtype
    exceptions
      fb_error      = 1
      fb_rsts_other = 2
      no_object     = 3
      no_permission = 4
      others        = 5.
  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  if gv_objtype(3) = 'OTF'.
    gv_is_otf = 'X'.
  else.
    gv_is_otf = space.
  endif.
  if gv_is_otf eq 'X'.
    call function 'CONVERT_OTFSPOOLJOB_2_PDF'
      exporting
        src_spoolid   = gd_spool_nr
        no_dialog     = ' '
      importing
        pdf_bytecount = gd_bytecount
        pdf_spoolid   = gv_pdfspoolid
        btc_jobname   = gv_jobname
        btc_jobcount  = gv_jobcount
      tables
        pdf           = it_pdf_output.
  else.
    call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
      exporting
        src_spoolid              = gd_spool_nr
        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.
  endif.
  if sy-subrc eq 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.
  endif.
endform.                    " CONVERT_SPOOL_TO_PDF
*&      Form  PROCESS_EMAIL
form process_email .
  if not p_pdf is initial.
    describe table it_mess_att lines gd_recsize.
  else.
    describe table it_spool_xls_return lines gd_recsize.
  endif.
  check gd_recsize > 0.
  perform send_email.
endform.                    " PROCESS_EMAIL
*&      Form  SEND_FILE_AS_EMAIL_ATTACHMENT
form send_file_as_email_attachment
     tables it_message
            it_attach
     using 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_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.
* do the follwoing 3 times with three different internal tables.
  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.
  loop at s_email1.
    t_receivers-receiver   = s_email1-low.
    t_receivers-rec_type   = 'U'.
    t_receivers-com_type   = 'INT'.
    t_receivers-notif_del  = 'X'.
    t_receivers-notif_ndel = 'X'.
    append t_receivers.
  endloop.
  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.
  if ld_error ne 0.
    message s899(mm) with 'Error while sending email'.
    stop.
  else.
    message s899(mm) with 'Email sent succesfully'.
  endif.
* Populate zreceiver return code
  loop at t_receivers.
    ld_receiver = t_receivers-retrn_code.
  endloop.
endform.                    " SEND_FILE_AS_EMAIL_ATTACHMENT
*&      Form  SEND_EMAIL                                               &*
form send_email. " USING  P_EMAIL.
  data p_sender like somlreci1-receiver.
  data l_sub(50) type c.
  refresh it_mess_bod.
* Default subject matter
  if not p_pdf is initial.
    gd_subject = 'SAP Report Spool Output - .pdf File Attachment'.
    gd_attachment_desc = 'spooldata'.
    it_mess_bod = 'SAP Report Spool Output - .pdf File Attachment'.
    append it_mess_bod.
  else.
    gd_subject = 'SAP Report Spool Output - .xls File Attachment'.
    gd_attachment_desc = 'spooldata'.
    it_mess_bod = 'SAP Report Spool Output - .xls File Attachment'.
    append it_mess_bod.
  endif.
* If no sender specified - default blank
  if p_sender eq space.
    gd_sender_type = space.
  else.
    gd_sender_type = 'INT'.
  endif.
  if not p_tcode is initial.
    concatenate 'Attachment from TNS' p_tcode into l_sub separated by space.
  elseif not p_pgna is initial.
    concatenate 'Attachment from program' p_pgna into l_sub separated by space.
  elseif not p_spool is initial.
    concatenate 'Attachment from spool' p_spool into l_sub separated by space.
  else.
    concatenate 'Attachment from user' p_sch into l_sub separated by space.
  endif.
  if not p_pdf is initial.
    l_format = 'PDF'.
  else.
    l_format = 'XLS'.
    it_mess_att[] = it_spool_xls_return[].
  endif.
* Send file by email according to the selection file format (.PDF,.XLS File)
  perform send_file_as_email_attachment
          tables it_mess_bod
                 it_mess_att
          using l_sub
                l_format
                gd_attachment_name
                gd_attachment_desc
                p_sender
                gd_sender_type
          changing gd_error
                gd_reciever.
endform.                    " SEND_EMAIL
*&      Form  convert_spool_excel                                      &*
form convert_spool_excel .
  data : lv_spool like tsp01-rqident,
         l_count  type sy-tfill,
         l_tabix  type sy-tabix.
  lv_spool = gd_spool_nr.
  call function 'RSPO_RETURN_ABAP_SPOOLJOB'
    exporting
      rqident              = lv_spool
      first_line           = 1
    tables
      buffer               = it_spool_xls
    exceptions
      no_such_job          = 1
      not_abap_list        = 2
      job_contains_no_data = 3
      selection_empty      = 4
      no_permission        = 5
      can_not_access       = 6
      read_error           = 7
      others               = 8.
  if sy-subrc ne 0.
    message s899(mm) with 'Error while reading spool'.
    stop.
  endif.
  call function 'SAP_CONVERT_TO_CSV_FORMAT'
    exporting
      i_field_seperator    = '|'
      i_line_header        = '-'
      i_filename           = 'TEST'
    tables
      i_tab_sap_data       = it_spool_xls
    changing
      i_tab_converted_data = it_spool_xls_return
    exceptions
      conversion_failed    = 1
      others               = 2.
  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  data : l_length(3) type c.
*change the format to excel by using the object classes
  loop at it_spool_xls_return into wa_spool_xls_return.
    condense wa_spool_xls_return.
*  l_length = strlen( wa_spool_xls_return ).
*  l_length = l_length - 3.
**delete header lines if contains any
    if  wa_spool_xls_return cp '|--*--|'
    or  wa_spool_xls_return np '*|*|*|*'.
      delete it_spool_xls_return.
      clear wa_spool_xls_return.
*      concatenate cl_abap_char_utilities=>newline wa_SPOOL_XLS_RETURN
*      into wa_SPOOL_XLS_RETURN.
*      modify it_spool_xls_return from wa_spool_xls_return.
*      clear wa_spool_xls_return.
    else.
*If not new line then replace '|' by tabs
      if not wa_spool_xls_return eq cl_abap_char_utilities=>newline.
        if wa_spool_xls_return ca '|'.
          concatenate cl_abap_char_utilities=>newline wa_spool_xls_return
*        cl_abap_char_utilities=>horizontal_tab
          into wa_spool_xls_return.
          replace all occurrences of '|' in wa_spool_xls_return
          with cl_abap_char_utilities=>horizontal_tab.
*get rid of '-' symbol if contains any
*        if wa_SPOOL_XLS_RETURN CA '-'. "or not wa_SPOOL_XLS_RETURN CA '|'.
*          CLEAR wa_SPOOL_XLS_RETURN.
*          concatenate cl_abap_char_utilities=>newline wa_SPOOL_XLS_RETURN
*          cl_abap_char_utilities=>horizontal_tab
*          into wa_SPOOL_XLS_RETURN.
*        endif.
          replace all occurrences of '.' in wa_spool_xls_return
          with space.
          condense wa_spool_xls_return.
          modify it_spool_xls_return from wa_spool_xls_return.
*          wa_SPOOL_XLS_RETURN = cl_abap_char_utilities=>newline.
*          IF l_count NE 0 .
**        l_tabix = l_tabix + 1.
**Insert new line for the excel data
**        if sy-tabix gt 1.
**          INSERT wa_SPOOL_XLS_RETURN INTO it_SPOOL_XLS_RETURN INDEX l_tabix.
**        endif.
*            l_count = l_count - 1.
*          ENDIF.
          clear wa_spool_xls_return.
        else.
          delete it_spool_xls_return.
          clear wa_spool_xls_return .
*          concatenate cl_abap_char_utilities=>newline wa_SPOOL_XLS_RETURN
**        cl_abap_char_utilities=>horizontal_tab
*          into wa_SPOOL_XLS_RETURN.
*          modify it_SPOOL_XLS_RETURN from wa_SPOOL_XLS_RETURN.
*          clear wa_SPOOL_XLS_RETURN.
        endif.
      endif.
    endif.
  endloop.
endform.                    " convert_spool_excel