Smartform導出為PDF并且作為進行郵件發(fā)送

1、Smartform導出為PDF并且作為附件進行郵件發(fā)送1、首先獲取Smartform生成的功能函數(shù)，CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = c_formname IMPORTING fm_name = v_fm_name EXCEPTIONS no_form = 1 no_function_module = 2OTHERS = 3.2、 調(diào)用該函數(shù)并且在參數(shù)中設(shè)定獲取OTF數(shù)據(jù)st_control_parameters-no_dialog = 'X'.st_control_par

2、ameters-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_da

3、ta EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4OTHERS = 5.3、 將OTF數(shù)據(jù)轉(zhuǎn)換成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

4、= 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_rec

5、ord.ENDIF.4、 處理郵件主題，附件，收件人，發(fā)件人（默認會是登陸用戶配置的郵箱）APPEND LINES OF GT_record TO i_objbin.*Mail Bodyi_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 =

6、 '郵件標題題題題題題題題題'.wa_doc-sensitivty = 'F'.wa_doc-doc_size = v_lines_txt * 255 + v_bin_filesize.* Main TextCLEAR i_objpack-transf_bin.i_objpack-head_start = 1.i_objpack-head_num = 0.i_objpack-body_start = 1.i_objpack-body_num = v_lines_txt.i_objpack-doc_type = 'RAW'.APPEND i_obj

7、pack.* Attachment (pdf-Attachment)CLEAR v_lines_bin.i_objpack-transf_bin = 'X'.i_objpack-head_start = 1.i_objpack-head_num = 1.i_objpack-body_start = 1.DESCRIBE TABLE i_objbin LINES v_lines_bin.i_objpack-doc_size = v_bin_filesize .i_objpack-body_num = v_lines_bin.i_objpack-doc_type = 'PD

8、F'.i_objpack-obj_name = 'smart'.i_objpack-obj_descr = 'PDF'.”這里是附件名APPEND i_objpack.CLEAR i_reclist.i_reclist-rec_type = 'U'.i_reclist-receiver = 'xxx'.“收件人地址APPEND i_reclist.5、 調(diào)用發(fā)送郵件的函數(shù)CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING document_data

9、 = wa_doc put_in_outbox = '' commit_work = 'X' TABLES packing_list = i_objpack* object_header = wa_objhead contents_bin = i_objbin contents_txt = i_objtxt receivers = i_reclist EXCEPTIONS too_many_receivers = 1 document_not_sent = 2 document_type_not_exist = 3 operation_no_authorizat

10、ion = 4 parameter_error = 5 x_error = 6 enqueue_error = 7OTHERS = 8.郵件發(fā)送后可在sost中查看到、6、 如果需要保存PDF到本地*.GET THE FILE NAME TO STORE.*CONCATENATE 'smrt' '.pdf' INTO v_name.*CREATE OBJECT v_guiobj.*CALL METHOD v_guiobj->file_save_dialog* EXPORTING* default_extension = 'pdf'* def

11、ault_file_name = v_name* file_filter = v_filter* CHANGING* filename = v_name* path = v_path* fullpath = v_fullpath* user_action = v_uact.*IF v_uact = v_guiobj->action_cancel.* EXIT.*ENDIF.*.DOWNLOAD AS FILE.*MOVE v_fullpath TO v_filename.*CALL FUNCTION 'GUI_DOWNLOAD'* EXPORTING* bin_files

12、ize = v_bin_filesize* filename = v_filename* filetype = 'BIN'* TABLES* data_tab = it_lines* EXCEPTIONS* file_write_error = 1* no_batch = 2* gui_refuse_filetransfer = 3* invalid_type = 4* no_authority = 5* unknown_error = 6* header_not_allowed = 7* separator_not_allowed = 8* filesize_not_allo

13、wed = 9* header_too_long = 10* dp_error_create = 11* dp_error_send = 12* dp_error_write = 13* unknown_dp_error = 14* access_denied = 15* dp_out_of_memory = 16* disk_full = 17* dp_timeout = 18* file_not_found = 19* dataprovider_exception = 20* control_flush_error = 21* OTHERS = 22.完整代碼請見下面：*&-*&a

14、mp; Report ZTEST_MAIL3 *& *&-*& *& *&-*REPORT ztest_mail3 .TYPES:BEGIN OF ty_data.TYPES: matkl TYPE mara-matkl, wgbez TYPE t023t-wgbez, matnr TYPE mara-matnr, maktx TYPE makt-maktx, ebeln TYPE ekko-ebeln, ebelp TYPE ekpo-ebelp, ekgrp TYPE ekko-ekgrp, bukrs TYPE ekko-bukrs, werks

15、TYPE ekpo-werks, lifnr TYPE ekko-lifnr, netpr TYPE ekpo-netpr, normt TYPE mara-normt, groes TYPE mara-groes, kdatb TYPE ekko-kdatb, kdate TYPE ekko-kdate, jiaohuo(30), waibu(30),*增加物料基本單位，訂單單位 meins(3), bstme(3),*BO C2014080601 增加車間和生產(chǎn)線 labor_t(30), spart_t(20),*EO C2014080601 增加車間和生產(chǎn)線*BO C201408210

16、1 增加物料長文本,規(guī)格型號，供應(yīng)商描述，采購訂單文* beizhu(100),* zeinr(22),* lifnr_d(35),* caigou(100),*EO C2014082101 增加車間和生產(chǎn)線END OF ty_data.DATA:gt_data TYPE TABLE OF ty_data WITH HEADER LINE.DATA:g_binfile TYPE xstring,gt_record TYPE TABLE OF solisti1 WITH HEADER LINE.* Internal table declarationDATA: it_otf TYPE STAND

17、ARD TABLE OF itcoo, it_docs TYPE STANDARD TABLE OF docs, it_lines TYPE STANDARD TABLE OF tline WITH HEADER LINE.* Declaration of local variables.DATA: st_job_output_info TYPE ssfcrescl, st_document_output_info TYPE ssfcrespd, st_job_output_options TYPE ssfcresop, st_output_options TYPE ssfcompop, st

18、_control_parameters TYPE ssfctrlop, v_len_in TYPE so_obj_len, v_language TYPE sflangu VALUE 'E', v_e_devtype TYPE rspoptype, v_bin_filesize TYPE i, v_name TYPE string, v_path TYPE string, v_fullpath TYPE string, v_filter TYPE string, v_uact TYPE i, v_guiobj TYPE REF TO cl_gui_frontend_servic

19、es, v_filename TYPE string, v_fm_name TYPE rs38l_fnam.CONSTANTS c_formname TYPE tdsfname VALUE 'ZPVNP21_CN01'.DATA wa_buffer TYPE string. "To convert from 132 to 255DATA: i_record TYPE TABLE OF solisti1 WITH HEADER LINE, wa_doc TYPE sodocchgi1, i_reclist TYPE TABLE OF somlreci1 WITH HEA

20、DER LINE,* Objects to send mail. i_objpack TYPE TABLE OF sopcklsti1 WITH HEADER LINE, i_objtxt TYPE TABLE OF solisti1 WITH HEADER LINE, i_objbin TYPE TABLE OF solisti1 WITH HEADER LINE,* Work Area declarations wa_objhead TYPE soli_tab,* Variables declarations* v_len_in TYPE sood-objlen, v_lines_txt

21、TYPE i, v_lines_bin TYPE i.CALL FUNCTION 'SSF_GET_DEVICE_TYPE' EXPORTING i_language = v_language i_application = 'SAPDEFAULT' IMPORTING e_devtype = v_e_devtype.st_output_options-tdprinter = v_e_devtype.st_control_parameters-no_dialog = 'X'.st_control_parameters-getotf = '

22、X'.*.GET SMARTFORM FUNCTION MODULE NAME.*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.*.CALL SMARTFORM.*CALL FUNCTION v_fm_name EXPORTING control_parameters = st_control_par

23、ameters 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.

24、*.CONVERT TO OTF TO 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_p

25、ossible = 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.*i_objbin = GT_record.*Mail Bodyi_objtxt-

26、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.*

27、 Main TextCLEAR i_objpack-transf_bin.i_objpack-head_start = 1.i_objpack-head_num = 0.i_objpack-body_start = 1.i_objpack-body_num = v_lines_txt.i_objpack-doc_type = 'RAW'.APPEND i_objpack.* Attachment (pdf-Attachment)CLEAR v_lines_bin.i_objpack-transf_bin = 'X'.i_objpack-head_start =

28、1.i_objpack-head_num = 1.i_objpack-body_start = 1.DESCRIBE TABLE i_objbin LINES v_lines_bin.i_objpack-doc_size = v_bin_filesize .i_objpack-body_num = v_lines_bin.i_objpack-doc_type = 'PDF'.i_objpack-obj_name = 'smart'.i_objpack-obj_descr = 'PDF'.APPEND i_objpack.CLEAR i_recli

29、st.i_reclist-rec_type = 'U'.i_reclist-to_answer = 'X'.i_reclist-notif_read = 'X'.i_reclist-notif_del = 'X'.i_reclist-notif_ndel = 'X'.i_reclist-receiver = 'xxx'.APPEND i_reclist.CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING document_d

30、ata = wa_doc put_in_outbox = '' commit_work = 'X' TABLES packing_list = i_objpack* object_header = wa_objhead contents_bin = i_objbin contents_txt = i_objtxt receivers = i_reclist EXCEPTIONS 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 OTHERS = 8.IF sy-subrc = 0.*start SAPconnect process immediately* SUBMIT rsconn01 WITH mode EQ 'INT' AND RETURN.* COMMIT WORK.ENDIF.*.GET THE FILE NAME TO STORE.*CONCATENATE 'smrt