|
#1
05-22-2009, 05:51 AM
|
|||
|
|||
Sending mail with attachment
Sending mail with attachment
report y_cr17_mail. data method1 like sy-ucomm. data g_user like soudnamei1. data g_user_data like soudatai1. data g_owner like soud-usrnam. data g_receipients like soos1 occurs 0 with header line. data g_document like sood4 . data g_header like sood2. data g_folmam like sofm2. data g_objcnt like soli occurs 0 with header line. data g_objhead like soli occurs 0 with header line. data g_objpara like selc occurs 0 with header line. data g_objparb like soop1 occurs 0 with header line. data g_attachments like sood5 occurs 0 with header line. data g_references like soxrl occurs 0 with header line. data g_authority like sofa-usracc. data g_ref_document like sood4. data g_new_parent like soodk. data: begin of g_files occurs 10 , text(4096) type c, end of g_files. data : fold_number(12) type c, fold_yr(2) type c, fold_type(3) type c. parameters ws_file(4096) type c default 'c:\debugger.txt'. * Can me any file fromyour pc ....either xls or word or ppt etc ... g_user-sapname = sy-uname. call function 'SO_USER_READ_API1' exporting user = g_user * PREPARE_FOR_FOLDER_ACCESS = ' ' importing user_data = g_user_data * EXCEPTIONS * USER_NOT_EXIST = 1 * PARAMETER_ERROR = 2 * X_ERROR = 3 * OTHERS = 4 . if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. fold_type = g_user_data-outboxfol+0(3). fold_yr = g_user_data-outboxfol+3(2). fold_number = g_user_data-outboxfol+5(12). clear g_files. refresh : g_objcnt, g_objhead, g_objpara, g_objparb, g_receipients, g_attachments, g_references, g_files. method1 = 'SAVE'. g_document-foltp = fold_type. g_document-folyr = fold_yr. g_document-folno = fold_number. g_document-objtp = g_user_data-object_typ. *g_document-OBJYR = '27'. *g_document-OBJNO = '000000002365'. *g_document-OBJNAM = 'MESSAGE'. g_document-objdes = 'sap-img.com testing by program'. g_document-folrg = 'O'. *g_document-okcode = 'CHNG'. g_document-objlen = '0'. g_document-file_ext = 'TXT'. g_header-objdes = 'sap-img.com testing by program'. g_header-file_ext = 'TXT'. call function 'SO_DOCUMENT_REPOSITORY_MANAGER' exporting method = method1 office_user = sy-uname ref_document = g_ref_document new_parent = g_new_parent importing authority = g_authority tables objcont = g_objcnt objhead = g_objhead objpara = g_objpara objparb = g_objparb recipients = g_receipients attachments = g_attachments references = g_references files = g_files changing document = g_document header_data = g_header * FOLMEM_DATA = * RECEIVE_DATA = . * File from the pc to send... method1 = 'ATTCREATEFROMPC'. g_files-text = ws_file. append g_files. call function 'SO_DOCUMENT_REPOSITORY_MANAGER' exporting method = method1 office_user = g_owner ref_document = g_ref_document new_parent = g_new_parent importing authority = g_authority tables objcont = g_objcnt objhead = g_objhead objpara = g_objpara objparb = g_objparb recipients = g_receipients attachments = g_attachments references = g_references files = g_files changing document = g_document header_data = g_header . method1 = 'SEND'. g_receipients-recnam = 'MK085'. g_receipients-recesc = 'B'. g_receipients-sndex = 'X'. append g_receipients. call function 'SO_DOCUMENT_REPOSITORY_MANAGER' exporting method = method1 office_user = g_owner ref_document = g_ref_document new_parent = g_new_parent importing authority = g_authority tables objcont = g_objcnt objhead = g_objhead objpara = g_objpara objparb = g_objparb recipients = g_receipients attachments = g_attachments references = g_references files = g_files changing document = g_document header_data = g_header. *-- End of Program 
|
