上面截图是最后开发托付截图,右上角是公司LOGO,正文局部是表格。
如今初步开发邮件发送局部
1.上传图片
选择MIME知识库,选中SAP-PUBLIC 导入MIME对象
选择图片上传便可
2.写步调(步调局部只要发送邮件要害内容局部)
DATA:ls_data TYPE ty_data,
lt_data TYPE TABLE OF ty_data.
DATA:lt_body TYPE bcsy_teVt,
ls_body TYPE soli.
DATA:lZZZ_subject TYPE sood-objdes,
lZZZ_title TYPE sood-objdes.
DATA lt_teVt TYPE bcsy_teVt.
DATA sent_to_all TYPE os_boolean.
DATA send_request TYPE REF TO cl_bcs.
DATA recipient TYPE REF TO if_recipient_bcs.
DATA: lo_sender TYPE REF TO if_sender_bcs.
DATA document TYPE REF TO cl_document_bcs.
DATA:lZZZ_zcsr TYPE ad_smtpadr.
DATA bcs_eVception TYPE REF TO cV_bcs.
*&---------------------------------------------------------------------*
*& GET LOGO DATA DEFINE
*&---------------------------------------------------------------------*
DATA : lt_pick_data TYPE TABLE OF w3mime,
lt_query TYPE TABLE OF w3query,
ls_query TYPE w3query,
lt_html TYPE TABLE OF w3html,
lZZZ_return_code TYPE w3param-ret_code,
lZZZ_content_type TYPE w3param-cont_type,
lZZZ_content_length TYPE w3param-cont_len,
lZZZ_url(255) TYPE c,
lZZZ_pic_size TYPE i,
lZZZ_teVt_img TYPE so_teVt255.
DATA: o_mr_api TYPE REF TO if_mr_api.
DATA is_folder TYPE boole_d.
DATA lZZZ_content TYPE Vstring.
DATA lZZZ_loio TYPE skwf_io.
DATA : lo_mime_helper TYPE REF TO cl_gbt_multirelated_serZZZice.
DATA:l_obj_len TYPE i,
lZZZ_graphic_length TYPE i,
l_offset TYPE i,
l_length TYPE i,
l_diff TYPE i.
DATA:lr_Vstr TYPE string,
ls_soliV TYPE soliV,
lt_soliV TYPE soliV_tab.
DATA b64data TYPE string.
*&---------------------------------------------------------------------*
*& mail Content
*&---------------------------------------------------------------------*
*----- Email Subject -----------*
lZZZ_title = '<b>采购量质分比方格通知:</b>'.
*----- Email Company LOGO -----------*
IF o_mr_api IS INITIAL.
o_mr_api = cl_mime_repository_api=>if_mr_api~get_api( ).
ENDIF.
*----add logo picture-------*
CALL METHOD o_mr_api->get
EXPORTING
i_url = '/SAP/PUBLIC/logo.bmp'
IMPORTING
e_is_folder = is_folder
e_content = lZZZ_content
e_loio = lZZZ_loio
EXCEPTIONS
parameter_missing = 1
error_occured = 2
not_found = 3
permission_failure = 4
OTHERS = 5.
CALL FUNCTION 'SSFC_BASE64_ENCODE'
EXPORTING
bindata = lZZZ_content
IMPORTING
b64data = b64data.
IF sy-subrc <> 0.
ENDIF.
l_obj_len = strlen( b64data ).
lZZZ_graphic_length = strlen( b64data ).
lr_Vstr = b64data.
l_offset = 0.
l_length = 255.
CLEAR : ls_body.
ls_body-line = '<img src="" align="left" />'.
APPEND ls_body TO lt_body.
CLEAR : ls_body.
ls_body-line = '</br>'.
APPEND ls_body TO lt_body.
*----- Email Attachment name -----------*
*----Body of the email here--------*
ls_body-line = '<b>采购量质分比方格通知:</b>'.
APPEND ls_body TO lt_body. "Body of the email
CLEAR : ls_body.
APPEND ls_body TO lt_body..
CLEAR : ls_body.
*----add form-------*
ls_body-line = '<table cellspacing="0">'.
APPEND ls_body TO lt_body.
CLEAR : ls_body.
ls_body-line = '<tr><td>通知单号</td><td>查验批次号</td><td>物料号</td><td>物料形容</td><td>入库批号</td><td>查验名目</td><td>查验结果</td><td>查验结论</td></tr>'.
APPEND ls_body TO lt_body.
LOOP AT lt_data INTO ls_data.
CALL FUNCTION 'CONxERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = ls_data-matnr
IMPORTING
output = ls_data-matnr.
CLEAR : ls_body.
ls_body-line = '<tr><td>' && ls_data-qmnum && '</td>' &&
'<td>' && ls_data-prueflos && '</td>' &&
'<td>' && ls_data-matnr && '</td>' &&
'<td>' && ls_data-maktV && '</td>' &&
'<td>' && ls_data-charg && '</td>' &&
'<td>' && ls_data-zqmVm && '</td>' &&
'<td>' && ls_data-zqmjg && '</td>' &&
'<td>' && ls_data-zqmjl && '</td></tr>'.
APPEND ls_body TO lt_body.
ENDLOOP.
CLEAR : ls_body.