Smartfrm导出为PDF并且作为附件进行邮件发送.docVIP

Smartform导出为PDF并且作为附件进行邮件发送 1、首先获取Smartform生成的功能函数， CALL FUNCTION SSF_FUNCTION_MODULE_NAME EXPORTING formname = c_formname IMPORTING fm_name = v_fm_name EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3. 调用该函数并且在参数中设定获取OTF数据 st_control_parameters-no_dialog = X. st_control_parameters-getotf = X. CALL FUNCTION v_fm_name EXPORTING control_parameters = st_control_parameters output_options = st_output_options IMPORTING document_output_info = st_document_output_info job_output_info = st_job_output_info job_output_options = st_job_output_options TABLES pt_data = gt_data EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. 将OTF数据转换成PDF文件 CALL FUNCTION CONVERT_OTF EXPORTING format = PDF IMPORTING bin_filesize = v_bin_filesize bin_file = g_binfile TABLES otf = st_job_output_info-otfdata * doctab_archive = it_docs lines = it_lines EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 err_bad_otf = 4 OTHERS = 5. IF g_binfile IS NOT INITIAL. CALL FUNCTION SCMS_XSTRING_TO_BINARY EXPORTING buffer = g_binfile IMPORTING output_length = v_bin_filesize TABLES binary_tab = gt_record. ENDIF. 处理邮件主题，附件，收件人，发件人（默认会是登陆用户配置的邮箱） APPEND LINES OF GT_record TO i_objbin. *Mail Body i_objtxt-line = 邮件正文. APPEND i_objtxt. DESCRIBE TABLE i_objtxt LINES v_lines_txt. wa_doc-obj_langu = SY-LANGU. wa_doc-obj_name = smartform. wa_doc-expiry_dat = sy-datum + 10. wa_doc-obj_descr = 邮件标题题题题题题题题题. wa_doc-sensitivty = F. wa_doc-doc_size = v_lines_txt * 255 + v_bin_filesize. * Main Text CLEAR i_objpack-transf_bin. i_objpack-head_start =