SAP邮件发送.docx

一、*在sap中我们可以配置stmp邮件功能，可以通过sost来查看邮件状态，在编码中可用fm so_document_send_api1 、so_new_document_att_send_api1通过编码的方式来发送邮件以及邮件附件。在定义附件表时用solisti1，其长度为char255，实际中我们导出的每一行记录都会超出这个长度。对xls格试的附件我们可以用excel的分隔标签来解决这个问题，对于文字乱码我们可以在附件加charset=utf-16le解决此类问题。同样，也适用于其他类似的乱码问题。constants: c_tabtype c value cl_abap_char_utilities=horizontal_tab,c_cret type c value cl_abap_char_utilities=cr_lf,c_mimetype type char64 value application/msexcel;charset=utf-16le. data: v_xattach type xstring, it_binary_attach type solix_tab.*-* convert the internal data to xstring*-data: lc_descr_ref type ref to cl_abap_structdescr, lv_value type char128, lv_temptype string, lv_mid type string, lv_tabix type sy-tabix. field-symbols: type any. field-symbols: type abap_compdescr. loop at it_table. lv_tabix = sy-tabix. clear lv_temp. lc_descr_ref ?= cl_abap_typedescr=describe_by_data( it_table ). loop at lc_descr_ref-components assigning . assign component sy-tabix of structurein_table to . lv_value = . condense lv_value. if sy-tabix = 1. lv_temp = lv_value. continue. endif. concatenate lv_temp lv_valueinto lv_temp separated by c_tab. endloop. concatenate lv_mid lv_temp c_cret into lv_mid. endloop.*convert string to xstring type*application/msexcel;charset=utf-16le call function scms_string_to_xstring exporting text= lv_mid mimetype = c_mimetype importing buffer = v_xattach exceptions failed= 1 others= 2.*add the file header for utf-16le. . if sy-subrc = 0. concatenate cl_abap_char_utilities=byte_order_mark_little v_xattach into v_xattach in byte mode. endif. call function scms_xstring_to_binary exporting buffer= v_xattach tables binary_tab= it_binary_attach.*-*send email*- data: lv_titletype so_obj_des, email titlelv_emailtype adsmtp-smtp_addr, receiver lv_attitle type char50. attachment title data: send_requesttype ref to cl_bcs, documenttype ref to cl_document_bcs, conlengthstype so_obj_len, html type table of w3html, sender_idtype ref to if_sender_bcs, recipienttype ref to if_recipient_bcs, cc_recipient type ref to if_recipient_bcs, sent_to_alltypeos_boolean, bcs_exception type ref to cx_bcs,bcs_message typestring. clear: lv_email, lv_title, html. email body content with html format try.* request email function clear send_request. send_request = cl_bcs=create_persistent( ).* create the content of email clear document . document=cl_document_bcs=create_document( i_type=htm i_text=html i_length=conlengths i_subject =lv_title ).* add attachment call method document-add_attachment exporting i_attachment_type= xls i_attachment_subject = lv_attitle i_att_content_hex= it_binary_attach.* add document to send request call method send_request-set_document( document ). clear recipient. recipient = cl_cam_address_bcs=create_internet_address( lv_email ).*add recipient with its respective attributes to send request call method send_request-add_recipient exporting i_recipient = recipient i_express = x.* e-mail call method send_request-set_status_attributes exporting i_requested_status = e i_status_mail = e. call method send_request-set_send_immediately( x ).*send document call method send_request-send(exportingi_with_error_screen = xreceivingresult = sent_to_all ). if sent_to_all = x and sy-batch x. message send successfully type i. endif. commit work. catch cx_bcs into bcs_exception. bcs_message = bcs_exception-get_text( ). if sy-batch x. message bcs_exception type e. else. write: bcs_message. endif. exit. endtry.二、sap offcie功能发送邮件sap做为自成一体的系统，其开发环境有着丰富的资源，其中就包括发送邮件的sap office组件。通过sap组件，可以实现向internet发送邮件。 通过 call function so_object_send ，就可以实现邮件的发送，下面的代码片断，就举例说明了参数的作用。必须说明的是，下面的代码，只是在发送的邮件中提供一个文本类型的附件。大家在使用sap的office发送邮件的时候，可以带上上传的文件做为邮件附件，还可以使用alv的内容做为附件（在标准alv，工具上有发送邮件）。这些理论上都是可行的，只是小弟还不知道，所以这里只是抛个砖，有玉的请尽管砸过来 data: object_hd_change like sood1 occurs 10 with header line, 邮件正文的头信息 receivers like soos1 occurs 10 with header line, packing_list like soxpl occurs 10 with header line, 邮件附件的头信息 objcont like soli occurs 10 with header line, 邮件正文 att_cont like soli occurs 10 with header linobject_hd_changee, 邮件附件 att_head like soli occurs 10 with header line. 头行 data : count type i,length type i. data: lc_item1(24) type c. data: lc_item2(24) type c. data: lc_line_sub(29) type c. data: lc_line_sub2(52) type c. data: ls_data type string. data: li_len type i. data: ls_title type string. refresh: objcont,receivers,packing_list, objcont,att_cont,att_head. clear: att_cont-line. att_cont-line = 附件文本的标题. ls_title = att_cont-line. append att_cont. * 放入附件内表 clear: att_cont-line. att_cont-line = 附件文本内容. append att_cont. 如果有行内容，可以append多次 move 邮件内容标题 to objcont-line. append objcont. move file to att_head-line. append att_head. describe table objcont lines count. describe field objcont-line length length in byte mode . object_hd_change-objla = e. 创建文档使用的语言 object_hd_change-objnam = list. 文档,文件夹或分配清单的名称 object_hd_change-objdes = gs_string. 内容的简短描述char50 object_hd_change-objsns = o. 对象：灵敏度 p机密 f功能 o标准 object_hd_change-objlen = count * length. 文档内容的大小 append object_hd_change. * 接收者 receivers-recextnam = . receivers-recesc = u. 地址类型， u: 互联网地址 append receivers. 收件人地址 describe table att_cont lines count. 邮件附件总行数 describe field att_cont-line length length 邮件每行的长度 in byte mode . packing_list-head_start = 1. 传输包中的对象表头开始行 packing_list-body_start = 1. 对象包中的对象内容开始行 packing_list-head_num = 0. 在对象包内的对象表头行号 packing_list-body_num = count * length. 在对象包内的对象内容行号 packing_list-objtp = raw. 文档类别代码 packing_list-objdes = gs_string. packing_list-objnam = gs_string. * objdes objnam append packing_list. * 调用函数发送邮件 call function so_object_send exporting * new object: general header data object_hd_change = object_hd_change object_type = raw raw sap编辑程序文件 sender = sy-uname 发送者用户名 tables objcont = objcont content * recipient table with send attributes receivers = receivers 接收人地址 packing_list=