Email mit attachment senden

Code: Alles auswählen.

FORM daten_senden.

  DATA: l_init(1) TYPE c.

* Daten für Mail
  e_document_data-obj_name = 'Auswertung'.
  e_document_data-obj_descr = 'Anzahl berechnen'.

  t_contents_txt = 'Hallo, im Anhang finden Sie ........................'.
  APPEND t_contents_txt.

  DESCRIBE TABLE t_contents_txt LINES tab_lines.
  READ TABLE t_contents_txt INDEX tab_lines.
  e_document_data-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( t_contents_txt ).


  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  t_packing_list-body_num = tab_lines.
  t_packing_list-doc_type = 'RAW'.
  APPEND t_packing_list.

* Daten für Anhang
  LOOP AT t_out INTO w_out.

    clear w_daten.
    write w_out-anzahl to g_zahl.
    concatenate w_out-blart ';' w_out-prctr ';' g_zahl into w_daten-outstr.
    append w_daten to t_daten.

    IF l_init IS INITIAL.
      l_init = 'X'.
    CONCATENATE 'Beleg' 'Profit' 'Summe'
    INTO t_contents_bin SEPARATED BY ';'.
    ELSE.
      MOVE w_daten-outstr TO t_contents_bin.
    ENDIF.
    APPEND t_contents_bin.

  ENDLOOP.

  DESCRIBE TABLE t_contents_bin LINES tab_lines.

  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  t_packing_list-body_num = tab_lines.
  t_packing_list-doc_type = 'CSV'.
  t_packing_list-obj_name = 'BELEG'.
  t_packing_list-doc_size = tab_lines * 255.
  t_packing_list-obj_descr = Anzahl_.csv'.
  APPEND t_packing_list.


  t_receivers-receiver = empf. "testtest@test.de"
  t_receivers-rec_type = 'U'.
  APPEND t_receivers.

 if p_send = 'X'.
   CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = e_document_data
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = t_packing_list
      object_header              = t_object_header
      contents_bin               = t_contents_bin
      contents_txt               = t_contents_txt
      receivers                  = t_receivers
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  else.

Code: Alles auswählen.

if a_line  is INITIAL.   
      a_line = 'X'.
      CONCATENATE 'Spalte1 'Spalte2' 'Spalte3' INTO t_contents_bin SEPARATED BY ';'.
      else.
     CONCATENATE w_out-blart  w_out-prctr g_zahl INTO t_contents_bin SEPARATED BY ';'.
endif.

    CONCATENATE cl_abap_char_utilities=>cr_lf t_contents_bin  INTO t_contents_bin.
    append t_contents_bin.
  ENDLOOP.