|
Yo lo suelo hacer así.
DATA: BEGIN OF TI_CORREO OCCURS 0,
EMAIL_USER(30),
END OF TI_CORREO.
DATA WA_CORREO LIKE LINE OF TI_CORREO.
APPEND WA_CORREO-EMAIL_USER = 'aaaaaa@hotmail.com'.
APPEND WA_CORREO-EMAIL_USER = 'bbbbbb@hotmail.com'.
APPEND WA_CORREO-EMAIL_USER = 'cccccc@hotmail.com'.
LOOP AT TI_CORREO.
CLEAR RECLIST.
RECLIST-RECEIVER = TI_CORREO-EMAIL_USER.
RECLIST-EXPRESS = 'X'.
RECLIST-REC_TYPE = 'U'.
APPEND RECLIST.
ENDLOOP.
*.- ES: Funcion que envia del email
*.- EN: Function: Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = 'X'
COMMIT_WORK = 'X'
TABLES
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = OBJBIN
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
OTHERS = 99.
Pruebalo y me comentas.
Un saludo.
|