SAP 中发送e-Mail的方法，如何发送附件？如何在附件中显示中文？

经多次研究和测试，终于可以正常发送所有附件，且可实际中文字符的正常显示。

关键代码，请参看红色字体部分：

*&---------------------------------------------------------------------*

*& Form SEND_EMAIL_WITH_ATTACHMENT

*&---------------------------------------------------------------------*

FORM SEND_EMAIL_WITH_ATTACHMENT .

data: binary_content type solix_tab.

data: xl_content type xstring .

constants:

con_tab type c value cl_abap_char_utilities=>horizontal_tab,

con_cret type c value cl_abap_char_utilities=>cr_lf.

data: xlcontent type xstring,

conlength type i,

conlengths type so_obj_len,

result_content type string,

wa_string type string, "This holds all of your data

wa_str_temp type string,

dummy type string.

data: send_request type ref to cl_bcs.

data: text type bcsy_text.

data: document type ref to cl_document_bcs.

data: sender type ref to if_sender_bcs.

data: recipient type ref to if_recipient_bcs.

data: recipients type bcsy_smtpa.

data: bcs_exception type ref to cx_bcs.

data: sent_to_all type os_boolean.

data: e_r_page type ref to cl_rsr_www_page.

data: content_length type w3param-cont_len ,

content_type type w3param-cont_type,

return_code type w3param-ret_code .

data: html type standard table of w3html .

data: server type string ,

port type string .

data: wa_rec type ad_smtpadr .

data: bcs_message type string .

data: subject type so_obj_des.

data: sender_id type ad_smtpadr.

data: email type ad_smtpadr.

data: gv_file type string,

gv_zipfilehex type xstring,

go_zipper type ref to cl_abap_zip. "The zip folder object

data: lp_size type so_obj_len,

lv_i type i.

refresh binary_content .

clear wa_string.

clear: lp_size, lv_i.

loop at it_html.

clear: xl_content .

* convert the string data to xstring

call function 'SCMS_STRING_TO_XSTRING'

exporting

text = it_html-line

MIMETYPE = 'DAT'

ENCODING = '4110' " 4103 NG, 8400 NG, 4110 is OK

importing

buffer = xl_content

EXCEPTIONS

FAILED = 1

OTHERS = 2.

call function 'SCMS_XSTRING_TO_BINARY'

exporting

buffer = xl_content

append_to_table = 'X'

importing

OUTPUT_LENGTH = lv_i

tables

binary_tab = binary_content.

add lv_i to lp_size.

endloop.

lp_size = lp_size * 6.

*"Title

subject = p_subj .

sender_id = p_sender.

clear P_att_name.

concatenate wa_header-reinr '.htm' into p_att_name.

* refresh text .

clear result_content .

* The body message

loop at zmess.

if result_content is initial.

concatenate zmess-zline '<br>' into result_content.

else.

concatenate result_content zmess-zline '<br>' into result_content.

endif.

endloop.

conlength = strlen( result_content ) .

conlengths = conlength .

call function 'SCMS_STRING_TO_FTEXT'

exporting

text = result_content

tables

ftext_tab = text.

try.

clear send_request .

send_request = cl_bcs=>create_persistent( ).

clear document .

document = cl_document_bcs=>create_document(

i_type = 'HTM'

i_text = text

i_length = conlengths

i_subject = subject ).

call method document->add_attachment

exporting

i_attachment_type = 'htm'

i_attachment_subject = p_att_name "'Trip.htm' "Attachment name

i_att_content_hex = binary_content.

* add document to send request

call method send_request->set_document( document ).

clear sender .

sender = cl_cam_address_bcs=>create_internet_address( sender_id ).

call method send_request->set_sender

exporting

i_sender = sender.

clear wa_rec .

clear recipient .

wa_rec = p_receip.

recipient = CL_CAM_ADDRESS_BCS=>create_internet_address(

wa_rec ).

call method send_request->add_recipient

exporting

i_recipient = recipient.

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(

exporting

i_with_error_screen = 'X'

RECEIVING

result = sent_to_all ).

if sent_to_all = 'X'.

* APPEND 'Mail sent successfully ' TO return .

endif.

commit work.

catch cx_bcs into bcs_exception.

bcs_message = bcs_exception->get_text( ).

* APPEND bcs_message TO return .

exit.

endtry.

ENDFORM. " SEND_EMAIL_WITH_ATTACHMENT