点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

大家好，

我正在尝试在Outlook中打印徽标。 我正在使用下面的代码。 但是它不起作用。需要任何更正请帮助我们。

数据：lo_mr_api类型引用到if_mr_api，"" mime存储库对象
lo_mime_helper类型引用到cl_gbt_multirelated_service。"
类的数据：lv_content TYPE xstring，"" XSTRING
lv_folder TYPE中的图像 boole_d，
lv_loio TYPE skwf_io，
lv_obj_len TYPE so_obj_len，
lv_graphic_length TYPE tdlength，
lv_xstr TYPE xstring，
lv_offset TYPE i，
lv_length TYPE i，
lv_diff ，
**将图像附加到HTML正文
lv_filename TYPE字符串，
lv_content_id TYPE字符串。

DATA：lt_solix TYPE solix_tab，
lwa_solix TYPE solix。

数据：l_bcs类型为cl_bcs的参考，"发送请求
l_body类型bcsy_text，"邮件主体
ls_body类型的soli，
l_doc_bcs类型为cl_document_bcs的参考，"邮件主体
l_sender类型为if_sender_bcs的类型的参考，" 发件人地址
l_recipient TYPE ref if_recipient_bcs，"收件人
i_subject TYPE so_obj_des。" Subject
lo_mr_api = cl_mime_repository_api => if_mr_api〜get_api（）。


呼叫方法lo_mr_ >出口
i_url ='/SAP/PUBLIC/AES/SAP Sailing.jpg'
导入
e_is_folder = lv_folder
e_content = lv_content
e_loio = lv_loio
例外情况
parameter_missing = 1
error_occured = 2
not_found = 3
权限失败= 4
其他=5。

如果sy-subrc <>0。

*在此处实施适当的错误处理
>
ENDIF。

"将图像从xstring转换为表格形式

调用方法cl_bcs_convert => xstring_to_solix
导出
iv_xstring = lv_content
接收
et_solix = lt_solix。

lv_obj_len = XSTRLEN（lv_content）。

"在xstring中附加图像
lv_filename ='SAP Sailing.jpg'。

lv_content_id ='SAP Sailing.jpg'。

创建对象lo_mime_helper。

调用方法lo_mime_helper-> add_binary_part
导出
content = lt_solix"表形式的Xstring
文件名= lv_filename"要赋予图像
扩展名的文件名='JPG'"文件的类型
描述='通知'" description
content_type ='IMAGE/jpg' "内容类型/Mime类型。 如果系统中不存在mime类型
length = lv_obj_len"图像长度
content_id = lv_content_id。"内容ID将在html部分中使用

*准备电子邮件正文

* 连接''
*
*''
*
* INTO ls_body。
*
*将ls_body附加到l_body。
* CLEAR ls_body。
CONCATENATE'
'
''
*''
'
'INTO ls_body。
浓缩ls_body NO-GAPS。
将ls_body附加到l_body。
清除ls_body。< br>
l_bcs = cl_bcs => create_persistent（）。
* ------跳过几行代码
清除i_subject。
合并'New PO''Test'INTO
i_subject用''分隔。
调用方法cl_document_bcs => create_document
导出
i_text = l_body
i_subject = i_subject
i_type ='HTM'
i_language = sy-langu
接收
结果= l_doc_bcs。
数据：t_hexa TYPE solix_tab ..
调用方法l_doc_bcs-> add_attachment
导出
i_a ttachment_type ='PDF'
i_attachment_subject = i_subject
i_att_content_hex = t_hexa。
*添加文档以发送请求
调用方法l_bcs-> set_document（l_doc_bcs）。

*发件人addess
l_sender = cl_sapuser_bcs => create（sy-uname）。
呼叫方法l_bcs-> set_sender
导出
i_sender = l_sender。

l_recipient = cl_cam_address_bcs => create_internet_address（'mahesh.kesireddy@xyz.com '）。
*添加收件人地址以发送请求
呼叫方法l_bcs-> add_recipient < br>导出
i_recipient = l_recipient
i_express ='X'
i_copy =''
i_blind_copy =''
i_no_forward =''。
*立即发送电子邮件
> l_bcs-> set_send_immediately（'X'）。

*发送邮件
数据：lv_sent_to_all（1）类型c值是初始值。
l_bcs-> send（
导出
i_with_error_screen ='X'
接收
结果= lv_sent_to_all）。
提交工作。

感谢与问候，

Mahesh K