REPORT zgosapmail NO STANDARD PAGE HEADING LINE-SIZE 200.

DATA: objcont LIKE solisti1 OCCURS 5 WITH HEADER LINE.

DATA: reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.

DATA: doc_chng LIKE sodocchgi1.

DATA: entries LIKE sy-tabix.

DATA: name LIKE somlreci1-receiver.


START-OF-SELECTION.

*********************
* Fill the document *
*********************

* Name des Dokuments (12 Zeichen)
  doc_chng-obj_name = 'oh oh'.

* Betreff
  doc_chng-obj_descr = 'Read at once !'.

* Sensitivität des Dokuments
*  'O' : Standard, normale Sensitivität
*  'F' : Funktional, kann funktional weitergeleitet werden
*  'P' : Vertraulich, für Vertreter nicht sichtbar
  doc_chng-sensitivty = 'P'.

* Wenn Flag gesetzt, kann Dokument nur vom Autor geändert werden
  doc_chng-no_change = 'X'.

* Anfang Text
  objcont = 'Welcome drink at hotel bar this evening!'.
  APPEND objcont.
  objcont = 'Letz meet at reception hall !'.
  APPEND objcont.
* Ende Text

  DESCRIBE TABLE objcont LINES entries.

  READ TABLE objcont INDEX entries.

  doc_chng-doc_size = ( entries - 1 ) * 255 + STRLEN( objcont ).

* Fill the receiver list

  CLEAR reclist.

  reclist-receiver = sy-uname.          " replace with <login name>
  reclist-rec_type = 'B'.
  reclist-express = 'X'.

  APPEND reclist.

  CLEAR reclist.

*  reclist-receiver = 'mailaddy@der.de'.
*  reclist-rec_type = 'U'.
*  reclist-com_type = 'INT'.                             " Internet
*
*  APPEND reclist.

* Send the document

  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
       EXPORTING
            document_type              = 'RAW'
            document_data              = doc_chng
* soll es in den Ausgang gestellt werden?
            put_in_outbox              = ''
       TABLES
            object_content             = objcont
            receivers                  = reclist
       EXCEPTIONS
            too_many_receivers         = 1
            document_not_sent          = 2
            operation_no_authorization = 4
            OTHERS                     = 99.

  CASE sy-subrc.

    WHEN 0.

      LOOP AT reclist.

        IF reclist-receiver = space.

          name = reclist-rec_id.

        ELSE.

          name = reclist-receiver.

        ENDIF.

        IF reclist-retrn_code = 0.

          WRITE: / name, ': succesfully sent'.

        ELSE.

          WRITE: / name, ': error occured'.

        ENDIF.

      ENDLOOP.

    WHEN 1.

      WRITE: / 'Too many receivers specified !'.

    WHEN 2.

      WRITE: / 'No receiver got the document !'.

    WHEN 4.

      WRITE: / 'Missing send authority !'.

    WHEN OTHERS.

      WRITE: / 'Unexpected error occured !'.

  ENDCASE.

END-OF-SELECTION.