|
hola,prueba esto.
DATA doc_data LIKE sodocchgi1.
DATA object_id LIKE soodk.
DATA objcont LIKE soli OCCURS 10 WITH HEADER LINE.
DATA receiver LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA:it_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
DATA: maildata LIKE sodocchgi1.
DATA: mailtxt TYPE TABLE OF solisti1,
linemailtxt TYPE solisti1.
* data for send function
REFRESH objcont.CLEAR objcont.
objcont-line = 'Linea1'.
APPEND objcont.
objcont-line = 'Linea2.'.
APPEND objcont.
* insert mail description
CLEAR maildata.
WRITE 'Cabecera' TO maildata-obj_descr.
* add direc. mail
REFRESH it_receivers.CLEAR it_receivers.
CONCATENATE zmm_006-cliente '"diba.es' INTO dire.
it_receivers-receiver = dire.
it_receivers-rec_type = 'U'.
it_receivers-com_type = 'INT'.
it_receivers-notif_del = 'X'.
it_receivers-notif_ndel = 'X'.
APPEND it_receivers.
* insert receiver (sap name)
*REFRESH receiver.
*CLEAR receiver.
*MOVE: 'mianconu@hotmail.com' TO receiver-receiver,
* 'X' TO receiver-express,
* 'B' TO receiver-rec_type.
*APPEND receiver.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = maildata
put_in_outbox = 'X'
document_type = 'RAW'
* IMPORTING
* new_object_id = object_id
TABLES
object_content = objcont
receivers = it_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 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
Si estas en desarrollo,nomalmente esta capado el envio de email,entonces tienes que obligarlo tu.
COMMIT WORK.
WAIT UP TO 2 SECONDS.
IF sy-subrc EQ 0.
SUBMIT rsconn01 WITH mode = 'INT'
WITH output = 'X'
AND RETURN.
ENDIF.
Tienes que tener un nodo tipo INT y que ademas este configurado con el mismo servidor de exchange.
Pero pruebalo porque seguro que existe el nodo y estara configurado correctamente.
|