pdf附件损坏。从邮件中检索...？

1楼-- · 2020-08-22 09:28

您好Deepak，

像这样尝试

* -------------------------- ------------------------------------------ *
*变量* * ----------------------------------------------- --------------------- *

数据：w_frm类型rs38l_fnam，"智能表格功能模块
w_binsize类型i，" Binary Size w_str类型字符串。 "字符串变量

* ---------------------------------------- ---------------------------- *
* INTERNALTABLEDECLARAT ION *
* ---------- -------------------------------------------------- -------- *

数据：sflight的it_final类型表，tline的"最终表
it_pdf类型表，PDF格式的内部表
solisti1的it_cbin类型表， " solisti1的字符二进制格式的内部表
it_ctxt类型表，" sopcklsti1的字符文本格式的内部表
it_pack类型表，" somlreci1的包装数据的内部表
it_rec类型表，"内部表对于收件人列表
ymail_id的it_mail类型表。"邮件ID的内部表

* ------------------------- ----------------------------- -------------- *
* WORKAREADECLARATION *
* ------------------------- ------------------------------------------- **

数据：wa_final类型sflight，"最终存储区
wa_ctrl类型ssfctrlop，"控制数据的工作区，
wa_out类型ssfcompop，"输出数据的工作区
wa_otf类型ssfcrescl，"工作区对于OTF数据
wa_cbin类型solisti1，"字符二进制数据的工作区
wa_ctxt类型solisti1，"字符文本数据的工作区
wa_doc type sodocchgi1，"对于文档
wa_pack类型的工作区，s swacklsti1 "打包数据的工作区
wa_rec类型somlreci1， "收件人数据的工作区域
wa_mail类型ymail。 "邮件ID的工作区
* ---------------------------------------- ---------------------------- *
* FIELDSYMBOLS *
* ----------- -------------------------------------------------- ------- *

字段符号：类型tline。" PDF格式的字段符号

* ------------- -------------------------------------------------- ----- *
*选择屏幕*
* ---------------------------------- ---------------------------------- *
选择屏幕：b1块的开头，带有框架标题文本 -001。
参数：p_date类型sy-datum。
选择屏幕：b1块的结尾。

* ----------------- -------------------------------------------------- -*
*开始-OF-选择*
* ---------------------------------- ---------------------------------- *
开始选择。
选择* fr om跳转到表it_final中，最多10行。
选择结束。
调用函数'SSF_FUNCTION_MODULE_NAME'
导出
formname ='YSMARTFORM_NAME'
导入
fm_name = w_frm
异常
no_form = 1 no_function_module = 2
其他=3。
如果sy-subrc <>0。
消息ID sy-msgid类型sy-msgty编号sy-msgno
，其中sy-msgv1 sy-msgv2 sy -msgv3 sy-msgv4。
尾号。

wa_ctrl-no_dialog ='X'。 "没有属性对话框
wa_ctrl-preview =''。"没有打印预览
wa_ctrl-getotf ='X'。 "获取OTF格式
wa_out-tddest ='LP01'。"标准打印机格式

清除wa_otf。

调用函数w_frm
导出
control_parameters = wa_ctrl output_options = wa_out
用户设置=''
导入
job_output_info = wa_otf
表
it_final = it_final
异常
formatting_error = 1
internal_error = 2
> send_error = 3
user_canceled = 4
其他=5。
如果sy-subrc <>0。
消息ID sy-msgid类型sy-msgty编号sy-msgno
，带有sy- msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
endif。

clear：w_binsize，
it_pdf，
w_str，
wa_cbin，
it_cbin，
wa_ctxt ，
it_ctxt。

调用函数'CONVERT_OTF'
导出
格式='PDF'
max_linewidth = 132
导入
bin_filesize = w_binsize
表
otf = wa_otf-otfdata []
行= it_pdf
异常 err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
其他=5。
如果sy-subrc <>0。
消息ID sy-msgid类型 sy-msgty编号sy-msgno
与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
endif。

在it_pdf循环上分配。
并置将w_str 放入w_str。
端环。

做。

wa_cbin = w_str。
将wa_cbin附加到it_cbin。
清除wa_cbin。 255个位置。
如果w_str是初始值。
退出。
结束符。

enddo。

将'Sflight Details'（002）p_date连接到以空格分隔的wa_ctxt中。
将wa_ctxt添加到it_ctxt中。
清除wa_ctxt。
将wa_ctxt添加到it_ctxt中。

将'Regards'（003）''连接到wa_ctxt。
将wa_ctxt连接到it_ctxt。
将'ABAP Team'（004）''连接到wa_ctxt。
添加wa_ctxt

wa_doc-obj_name ='测试'（005）。
将'Testing'（006）p_date连接到wa_doc-obj_descr。

wa_doc-obj_langu ='E'。
wa_doc-sensitiveivty ='O'。 "标准
wa_doc-doc_size = w_binsize。

wa_pack-obj_name = text-005。
将'Testing'（006）p_date连接到wa_pack-obj_descr。
wa_pack-transf_bin =空间。
wa_pack-head_start =1。
wa_pack-head_num =1。
wa_pack-body_start = 1行（it_ctxt）。
wa_pack-doc_type ='RAW'。 " RAW类型数据
将wa_pack附加到它_pack。

wa_pack-doc_size = w_binsize。
wa_pack-transf_bin ='X'。
wa_pack-head_start =1。
wa_pack-head_num = 1.
wa_pack-body_start = 1.
wa_pack-body_num =行（it_cbin）。
wa_pack-doc_type ='PDF'。 " PDF类型数据
将wa_pack附加到it_pack。

在it_mail循环到wa_mail。
清除wa_rec。
wa_rec-rec_type ='U'。"收件人类型的规范-（至）
wa_rec-com_type ='INT'。 "传输方法（传真，电传，...）-（Internet）
wa_rec-receiver = wa_mail-email。
将wa_rec附加到it_rec。
endloop。

调用函数'SO_DOCUMENT_SEND_API1 '
导出
document_data = wa_doc
put_in_outbox ='X'
commit_work ='X'
表
包装清单= it_pack
contents_bin = it_cbin
contents_txt = it_ctxt 接收者= it_rec
异常
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
个其他=8。
如果sy-subrc <>0。
消息ID sy-msgid类型sy- msgty编号sy-msgno
与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
else。
消息'邮件已成功发送'（008）键入'I'。 br>
endif。

* ------------------------------------ -------------------------------- *
*结束-选择-*
* --- -------------------------------------------------- --------------- *