Funktionsbaustein SO_NEW_DOCUMENT_SEND_API1

Funktionsbaustein SO_NEW_DOCUMENT_SEND_API1

Hallo!
Kann mir jemand sagen wie man mit dem
Fuba SO_NEW_DOCUMENT_SEND_API1
ein Fax aus SAP heraus verschicken kann.
Habe es mit email probiert und funktioniert hier
einwandfrei.
Denke es liegt an der Faxadresse weis aber nicht
wie die aussehen soll.
Wäre für ein Beispiel sehr dankbar.

Gruß Namp

Hier mein Code:

FORM send_sap_fax TABLES body STRUCTURE soli
USING users TYPE string
seperator TYPE c
betreff TYPE so_obj_des
express TYPE so_snd_ex
faxadress TYPE c
batch TYPE c.

* mit transaktion scot kann man die mails die im warteque stehen
* absenden

* datas für sendefunktionen
DATA doc_data LIKE sodocchgi1.
DATA object_id LIKE soodk.
DATA receiver LIKE somlreci1 OCCURS 1 WITH HEADER LINE.

* empfänger (sapname) eintragen
REFRESH receiver.
CLEAR receiver.

DATA t_receiver TYPE string.
DATA anz TYPE i.


TRANSLATE users TO UPPER CASE.

*/ user im benutzerstamm vorhanden??
*/ empfängerliste füllen wenn vorhanden
WHILE sy-subrc = 0.
SEARCH users FOR seperator.

IF sy-fdpos = 0.
IF users <> ''.
t_receiver = users.
* CONDENSE t_receiver NO-GAPS.
users = ''.
ELSE.
EXIT.
ENDIF.

ELSE.

t_receiver = users+00(sy-fdpos).
* CONDENSE t_receiver NO-GAPS.

anz = sy-fdpos + 1.
SHIFT users LEFT BY anz PLACES.

ENDIF.

IF faxadress IS INITIAL.
SELECT SINGLE * FROM usr01 WHERE bname = t_receiver.

IF sy-subrc <> 0.
IF batch <> 'X'.
MESSAGE i170(z5) WITH t_receiver
'ist nicht im Benutzerstamm vorhanden!'.
ENDIF.
CONTINUE.
ENDIF.
MOVE 'X' TO receiver-express.
MOVE 'B' TO receiver-rec_type.
ELSE.
MOVE 'F' TO receiver-rec_type.
MOVE 'FAX' TO receiver-com_type.
ENDIF.


MOVE: t_receiver TO receiver-receiver.

* IF internetadress IS INITIAL.
* IF express = 'X'.
* MOVE 'X' TO receiver-express.
* ENDIF.
*
* MOVE 'B' TO receiver-rec_type.
* ELSE.
* MOVE 'U' TO receiver-rec_type.
* MOVE 'INT' TO receiver-com_type.
*
* ENDIF.

APPEND receiver.

ENDWHILE.

MOVE betreff TO doc_data-obj_descr.

IF NOT receiver[] IS INITIAL.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = doc_data
* DOCUMENT_TYPE = 'RAW'
* PUT_IN_OUTBOX = ' '
COMMIT_WORK = 'X'
IMPORTING
* SENT_TO_ALL =
NEW_OBJECT_ID = object_id
tables
* OBJECT_HEADER =
OBJECT_CONTENT = body
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = 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
.

ENDIF.

ENDFORM. "send_sap_fax