#3
|
|||
|
|||
Yo estoy probando con este codigo, que creo haberlo tomado de este foro.
Al ejecutarlo me tira un mensaje de error: "person doesn't exist 10370 P". Fui a la transaccion ST22 pero no esta el error, dado que no tirp un dump. En la transaccion SCOT aparentemente esta todo andando bien ( aunque no entiendo mucho ), me dice el host del SMTP y el puerto, si yo abro una consola CMD desde windows y hago un telnet a ese puerto me contesta ok, parece estar funcionando. Si saben como deberia estar o como configurarlo, se los agredecere. Saludos REPORT ZPRUEBA_MAIL. DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE. DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE. DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE. DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE. DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE. DATA: DOC_CHNG LIKE SODOCCHGI1. DATA: TAB_LINES LIKE SY-TABIX. DATA L_NUM(3). * Creation of the document to be sent DOC_CHNG-OBJ_NAME = 'SENDFILE'. * Mail Subject DOC_CHNG-OBJ_DESCR = 'Prueba de Correo via Sap'. * Mail Contents OBJTXT = 'Este es el contenido del mensaje'. APPEND OBJTXT. DESCRIBE TABLE OBJTXT LINES TAB_LINES. READ TABLE OBJTXT INDEX TAB_LINES. DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ). * Creation of the entry for the compressed document CLEAR OBJPACK-TRANSF_BIN. OBJPACK-HEAD_START = 1. OBJPACK-HEAD_NUM = 0. OBJPACK-BODY_START = 1. OBJPACK-BODY_NUM = TAB_LINES. OBJPACK-DOC_TYPE = 'RAW'. APPEND OBJPACK. * Creation of the document attachment * LOOP AT ITAB_DATA. data: wa TYPE SOLISTI1. data: saltoLinea TYPE x. saltoLinea = '0D'. DO 5 times. CONCATENATE 'ABAP4' 'COMUNIDAD ABAP CASTELLANO' '2006' 'By gvm_ncg' 'n' INTO wa. APPEND wa TO OBJBIN. clear wa. ENDDO. * ENDLOOP. DESCRIBE TABLE OBJBIN LINES TAB_LINES. OBJHEAD = 'BCUSER'. APPEND OBJHEAD. ** Creation of the entry for the compressed attachment OBJPACK-TRANSF_BIN = 'X'. OBJPACK-HEAD_START = 1. OBJPACK-HEAD_NUM = 1. OBJPACK-BODY_START = 1. OBJPACK-BODY_NUM = TAB_LINES. OBJPACK-DOC_TYPE = 'DOC'. OBJPACK-OBJ_NAME = 'WEBSITE'. OBJPACK-OBJ_DESCR = 'Federico.DOC'. OBJPACK-DOC_SIZE = TAB_LINES * 255. APPEND OBJPACK. clear RECLIST. RECLIST-RECEIVER = 'cdpcfv@hotmail.com'. RECLIST-EXPRESS = 'X'. RECLIST-REC_TYPE = 'U'. RECLIST-COPY = 'X'. APPEND RECLIST. * 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. if sy-subrc <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|