[Ablius]

Yo utilizo como template este trozo de codigo y me funciona.
REPORT ZABEL_SEND_MAIL_NEW .

************************************************************************
*** COPIA DE function module:QFOA_MAIL_SENDING




DATA: L_SOUD LIKE SOUD,
L_OBJECT_HD_CHANGE LIKE SOOD1,
L_SOOD LIKE SOOD,
L_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE,
L_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.


* Initialization.
CLEAR: L_SOUD,
L_OBJECT_HD_CHANGE,
L_SOOD,
L_OBJCONT,
L_RECEIVERS.

REFRESH: L_OBJCONT,
L_RECEIVERS.


* Mail Type.
MOVE 'RAW' TO L_SOOD-OBJTP.

* Header.
MOVE: SY-LANGU TO L_OBJECT_HD_CHANGE-OBJLA,
'TEXT-020' TO L_OBJECT_HD_CHANGE-OBJNAM,
'TEXT-021' TO L_OBJECT_HD_CHANGE-OBJDES,

'Descripcion' TO L_OBJECT_HD_CHANGE-OBJDES+20(12),
'F' TO L_OBJECT_HD_CHANGE-OBJSNS.

*----------------------------------------------------------------------*
* TEXT fill
*----------------------------------------------------------------------*



*Line content.
CLEAR L_OBJCONT.
APPEND L_OBJCONT.
*Line
MOVE: 'TEXT-040' TO L_OBJCONT.
APPEND L_OBJCONT.
*Line
MOVE: 'TEXT-027' TO L_OBJCONT.
APPEND L_OBJCONT.

* Mail Receivers.
MOVE 'AGARCIA' TO L_RECEIVERS-RECNAM.
MOVE SPACE TO L_RECEIVERS-RECESC.
MOVE SPACE TO L_RECEIVERS-ACONE.
MOVE 'X' TO L_RECEIVERS-SNDEX.
APPEND L_RECEIVERS.

* Mail Sender
MOVE SY-UNAME TO L_SOUD-USRNAM.


CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
OBJECT_HD_CHANGE = L_OBJECT_HD_CHANGE
OBJECT_TYPE = L_SOOD-OBJTP
TABLES
OBJCONT = L_OBJCONT
RECEIVERS = L_RECEIVERS
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 01
COMPONENT_NOT_AVAILABLE = 02
FOLDER_NOT_EXIST = 03
FOLDER_NO_AUTHORIZATION = 04
FORWARDER_NOT_EXIST = 05
NOTE_NOT_EXIST = 06
OBJECT_NOT_EXIST = 07
OBJECT_NOT_SENT = 08
OBJECT_NO_AUTHORIZATION = 09
OBJECT_TYPE_NOT_EXIST = 10
OPERATION_NO_AUTHORIZATION = 11
OWNER_NOT_EXIST = 12
PARAMETER_ERROR = 13
SUBSTITUTE_NOT_ACTIVE = 14
SUBSTITUTE_NOT_DEFINED = 15
USER_NOT_EXIST = 16
X_ERROR = 17.