Bei Email-Versand kein Nachrichtentext vorhanden

Bei Email-Versand kein Nachrichtentext vorhanden

Hallo zusammen,
ich habe ein komisches Problem. Ich nutze zum Versand von emails den FBS SO_NEW_DOCUMENT_SEND_API1.
Leider kriege ich es nicht hin auch einen Nachrichtentext mitzugeben.
Kann mir jemand sagen, was in folgendem Coding falsch ist?

DATA:
g_str_betreff TYPE sodocchgi1,
g_tab_receivers TYPE STANDARD TABLE OF somlreci1,
g_wrk_receivers TYPE somlreci1,
g_tab_kopf TYPE STANDARD TABLE OF solisti1,
g_wrk_kopf TYPE solisti1,
g_tab_inhalt TYPE STANDARD TABLE OF solisti1,
g_wrk_inhalt TYPE solisti1.


g_str_betreff-obj_name = 'UNSICHTBAR'.
CONCATENATE sy-uzeit ' 50 Zeichen Betreff'
INTO g_str_betreff-obj_descr .
g_str_betreff-obj_langu = 'D'.
g_str_betreff-sensitivty = 'F'.

g_wrk_receivers-receiver = 'Michael.Gaiser@????.de'.
g_wrk_receivers-rec_type = 'U'.
APPEND g_wrk_receivers TO g_tab_receivers.

g_wrk_inhalt-line = 'Pro Zeile haben wir 255 Zeichen zur Verfügung'.
APPEND g_wrk_inhalt TO g_tab_inhalt.
g_wrk_inhalt-line = '->'.
APPEND g_wrk_inhalt TO g_tab_inhalt.
g_wrk_inhalt-line = ' '.
APPEND g_wrk_inhalt TO g_tab_inhalt.
g_wrk_inhalt-line = 'Hat jemand die Leezeile gesehen?'.
APPEND g_wrk_inhalt TO g_tab_inhalt.

g_wrk_kopf-line = 'Das soll der Kopf sein.'.
APPEND g_wrk_kopf TO g_tab_kopf.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = g_str_betreff
document_type = 'INT'
put_in_outbox = ' '
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
TABLES
OBJECT_HEADER = g_tab_kopf
OBJECT_CONTENT = g_tab_inhalt
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = g_tab_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
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.




Danke für eure Hilfe.
MfG
Michael

Danke, jetzt klappts.

Danke für die Hilfe, jetzt hab ich 's hingekriegt.