Function module to sen mail

Question

Hi,
Does anyone know a function module to send a mail with an attached file when SAP Connect is active ?
Thanks,
Paulo Sousa

Answer 1

DATA: loc_maildata LIKE sodocchgi1.
  DATA: loc_mailtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: loc_mailrec LIKE somlrec90 OCCURS 0 WITH HEADER LINE.
  DATA: loc_list TYPE TABLE OF abaplist WITH HEADER LINE.
  DATA: loc_ascilines(1024) TYPE c OCCURS 0 WITH HEADER LINE.
  DATA: loc_htmllines TYPE TABLE OF w3html WITH HEADER LINE.
  DATA: loc_spool_number TYPE tsp01-rqident.
  DATA: loc_spool_key    TYPE tsp01-rqtitle.
  DATA: loc_itab TYPE TABLE OF string.
  DATA: loc_line LIKE loc_mailtxt-line.
  CLEAR: loc_maildata, loc_mailtxt, loc_mailrec.
  REFRESH: loc_mailtxt, loc_mailrec.
  loc_maildata-obj_name = 'TEST'.
  loc_maildata-obj_descr = 'Test Subject'.
  loc_mailtxt-line = wf_line.
  APPEND loc_mailtxt.
  loc_mailrec-receiver = wf_email.
  loc_mailrec-rec_type = 'U'.
  APPEND loc_mailrec.
  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = loc_maildata
      document_type              = 'RAW'
      put_in_outbox              = 'X'
    TABLES
      object_header              = loc_mailtxt
      object_content             = loc_mailtxt
      receivers                  = loc_mailrec
    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 sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  COMMIT WORK.
  WAIT UP TO 2 SECONDS.
  SUBMIT rsconn01 WITH mode = 'INT'
               WITH output = 'X'
                          AND RETURN.