How to attach & send mail (Excel)

Question

i want to attach below data in excel and send mail.
IT_DATA-COL1 = 'Action'.
     APPEND IT_DATA.
     CLEAR IT_DATA.
     IT_DATA-COL1 =  V_DATE.
     APPEND IT_DATA.
     CLEAR IT_DATA.
     IT_DATA-COL1 =  'Execution '.
     IT_DATA-COL2 =   sy-datum.
     APPEND IT_DATA.
     IT_DATA-COL1 = 'No. of pieces = '.
     IT_DATA-COL2 = L_NUM.
     APPEND IT_DATA.
     CLEAR IT_DATA.
     APPEND IT_DATA.
     CLEAR IT_DATA.
     APPEND IT_DATA.
     APPEND IT_DATA.
     IT_DATA-COL1 = 'Number'.
     IT_DATA-COL2 = 'VIp'.
     IT_DATA-COL3 = 'Key '.
     IT_DATA-COL4 = 'Brakery'.
     IT_DATA-COL5 = 'No'.
     IT_DATA-COL6 = 'State'.
     IT_DATA-COL7 = 'Date'.
     IT_DATA-COL8 = ' Date'.
     APPEND IT_DATA.
     CLEAR IT_DATA.
     APPEND IT_DATA.
       LOOP AT IT.
         IT_DATA-COL1 = IT-PROP.
         IT_DATA-COL2 = IT-VIp.
         IT_DATA-COL3 = KEY.
         IT_DATA-COL4 = IT-PLATE..
         IT_DATA-COL5 = V_REQUESTOR.
         IT_DATA-COL6 = V_STATUS .
        IT_DATA-COL7= Date .
       IT_DATA-COL8= DATE.
           APPEND IT_DATA.
         CLEAR IT_DATA.
       ENDLOOP.
       APPEND IT_DATA.
       APPEND IT_DATA.
     ENDIF.

Answer 1

Hi,
By the following method you can send email even if the no. of charactes in a line exceeds 255.
Here I am converting the data to HTML and later sending it in Xcel. This worked for me.
form email_lgcytrans .
  data:    lv_document_data like sodocchgi1,
           lv_tab_lines     like sy-tabix,
           li_body          type standard table of solisti1,
           lv_body          type solisti1,
           lv_html          like line of i_html,
           li_attach        type standard table of solisti1,
           lv_attach        type solisti1.
CONSTANTS:
  constants: lc_filetype(3)  type  c value 'XLS',
             lc_emaildocname like sodocchgi1-obj_name
                             value 'Legacy Trans',
             lc_subject      like sodocchgi1-obj_descr value
              'Discrepant Transactions',
             lc_filename     like solisti1
                             value 'HG-DTL DISCREPANT TRANS'.
  if i_row_head[] is initial.
    perform get_column_headers.
Get the HTML Formatted Data
  call function 'WWW_ITAB_TO_HTML'
    exporting
      table_header = v_html_head
    tables
      html         = i_html
      fields       = i_fields
      row_header   = i_row_head
      itable       = i_dscpren.
form get_column_headers.
  data : lv_fieldcat  type slis_fieldcat_alv,
         lv_text      type w3head-text,
         lv_tabix     type i.
  loop at i_fieldcat into lv_fieldcat.
    lv_tabix = lv_tabix + 1.
  Get Fieldname
    clear lv_text.
    lv_text = lv_fieldcat-seltext_l.
  Prepare Header Row
    call function 'WWW_ITAB_TO_HTML_HEADERS'
      exporting
        field_nr = lv_tabix
        text     = lv_text
        fgcolor  = 'black'
        bgcolor  = 'cccccc'
        font     = 'Tahoma'
      tables
        header   = i_row_head.
  endloop.
endform.                    " GET_COLUMN_HEADERS
form send_email tables li_attach
                       ls_ifmail
                       li_body
                using  lc_filetype lc_subject lc_filename.
Local Data for E-mailing
  data : lv_document type sodocchgi1,
         li_pack     type standard table of sopcklsti1,
         lv_pack     type sopcklsti1,
         li_receiver type standard table of somlreci1,
         lv_receiver type somlreci1,
        li_body     type standard table of solisti1,
        lv_body     type solisti1,
         li_objhead  type standard table of solisti1,
         lv_objhead  type solisti1,
         lv_admin    like line of s_ifmail .
  data : lv_lines     type i,
         lv_sent      type sonv-flag.
Fill Document Data
  lv_document-obj_langu         = sy-langu.
  lv_document-obj_expdat        = sy-datum.
  lv_document-sensitivty        = 'F'.
  lv_document-no_change         = 'X'.
  lv_document-expiry_dat        = sy-datum.
  move lc_subject to lv_document-obj_descr.
  describe table li_body lines lv_lines.
  lv_document-doc_size          = lv_lines * 255.
*-- Packing Data (for e-mail body)
  lv_pack-transf_bin            = space.
  lv_pack-head_start            = 1.
  lv_pack-head_num              = 0.
  lv_pack-body_start            = 1.
  lv_pack-body_num              = lv_lines.
  lv_pack-doc_type              = 'RAW'.
  append lv_pack to li_pack.
  describe table li_attach lines lv_lines.
*-- Packing list for email attachment (in XLS format)
  clear lv_pack.
  lv_pack-transf_bin            = 'X'.
  lv_pack-head_start            = 1.
  lv_pack-head_num              = 1.
  lv_pack-body_start            = 1.
  lv_pack-body_num              = lv_lines.
  lv_pack-doc_type              = lc_filetype.
  lv_pack-obj_name              = 'MAIL'.
  lv_pack-doc_size              = lv_lines * 255.
  move lc_filename to lv_pack-obj_descr.
  append lv_pack to li_pack.
*-- Attachment Header
  move space to lv_objhead-line.
  append lv_objhead to li_objhead.
*-- Receiver list
  lv_receiver-rec_type           = 'U'.
  lv_receiver-com_type           = 'INT'.
  lv_receiver-notif_del          = 'X'.
  lv_receiver-notif_ndel         = 'X'.
  loop at ls_ifmail  into lv_admin.
    lv_receiver-receiver         = lv_admin-low.
    append lv_receiver to li_receiver.
    clear : lv_receiver-receiver,
            lv_admin.
  endloop.
*--  E-Mail Document
  call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    exporting
      document_data              = lv_document
      commit_work                = 'X'
    importing
      sent_to_all                = lv_sent
    tables
      packing_list               = li_pack
      object_header              = li_objhead
      contents_bin               = li_attach
      contents_txt               = li_body
      receivers                  = li_receiver
    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.
  if sy-subrc <> 0.
    message id sy-msgid type 'I' number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
  if lv_sent = 'X'.
    write : / text-t12.
    loop at s_ifmail into lv_admin.
      write : lv_admin-low.
    endloop.
    clear lv_sent.
  endif.
endform.                    " SEND_EMAIL
Attach the HTML content
  loop at i_html into lv_html.
    lv_attach = lv_html.
    append lv_attach to li_attach.
    clear : lv_html, lv_attach.
  endloop.  "loop at i_html
Appending the text of boby
  lv_body-line+0(44)  = 'Please find attached Report of Discrepancies'.
  lv_body-line+45(30) = 'in Transactions'.
  append lv_body to li_body.
Send the content i_email_input to s_dsmail
    perform send_email tables li_attach s_dsmail li_body
                       using  lc_filetype lc_subject lc_filename.
endform.                    " EMAIL_LGCYTRANS