08-10-2006 12:50 PM
Hi,
I have this code found on the forum.
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).
move 'xx@xx.com' to RECLIST-receiver.
move 'U' to RECLIST-rec_type.
append RECLIST.
DOC_CHNG-OBj_name = 'SENDFILE'.
DOC_CHNG-OBJ_DESCR = 'Delivered Mail'.
objtxt = 'object text'.
append objtxt.
DESCRIBE table objtxt lines tab_lines.
read table objtxt index tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
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.
objbin = '\O/'.
append objbin.
objbin = '/\'.
append objbin.
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = 'ORDERS'.
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 = 'TXT'.
OBJPACK-OBJ_NAME = 'WEBSITE'.
OBJPACK-OBJ_DESCR = 'ORDERS.TXT'.
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
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.
I receive the email. But when i open the file, all data are in the line.
Thanks for your help.
08-10-2006 12:57 PM
Hi charles ,
Try the code from this link...
http://www.geocities.com/mpioud/Z_EMAIL_ABAP_REPORT.html
Regards,
Sridhar
08-10-2006 1:35 PM
It looks almost identical to code I have in place (and working).
OBJPACK-DOC_TYPE = 'TXT'.
I do not think TXT is a valid object type. I do not see it in table TSOTD.
Try using 'RAW' or 'BIN'.
08-16-2006 9:14 AM
thanks for your help.
i addes this to each line :
CONSTANTS: CON_CRET TYPE X VALUE '0D'.
and now it's ok.