将SMSARTFORMS 以PDF的方式用邮件…

有时候不需要打印smartforms，而是以pdf格式发邮件发过去，下面是部分代码

REPORT  zlm_cvrt_smart_to_pdf_mail.

"控制变量
DATA  fm_name             TYPE rs38l_fnam.
DATA: control_parameters  TYPE ssfctrlop,

      l_output_options    TYPE ssfcompop.

DATA job_output_info      TYPE ssfcrescl.
DATA job_output_options   TYPE ssfcresop.

*--------------------------------------------------------------------*
"转OTF
DATA: gt_otf      LIKE TABLE OF itcoo    WITH HEADER LINE,

      gt_pdf_line LIKE TABLE OF tline    WITH HEADER LINE,

      gt_record   LIKE TABLE OF solisti1 WITH HEADER LINE.
DATA: g_len_in TYPE i,                                                 "OTF 文件大小（邮件附件大小）

      g_lines_txt TYPE i,                                              "邮件文本行数

      g_lines_bin TYPE i.                                              "邮件附件行数
DATA: g_benfile   TYPE xstring.                                        "二进制格式的邮件
DATA: g_object(50) TYPE c.                                             "邮件主题

DATA pdf_name     TYPE string.                                         "附件名称

DATA: gt_objpack  LIKE TABLE OF sopcklsti1   WITH HEADER LINE,         "邮件内容 正文+附件

      gt_objtxt   LIKE TABLE OF solisti1     WITH HEADER LINE,         "正文内容

      gt_objbin   LIKE TABLE OF solisti1     WITH HEADER LINE,         "附件内容

      gt_reclist  LIKE TABLE OF somlreci1    WITH HEADER LINE,         "收件人

      wa_doc_chng TYPE sodocchgi1.                                     "邮件属性

*--------------------------------------------------------------------*
"选择屏幕
PARAMETERS:

            p_email TYPE so_recname OBLIGATORY DEFAULT 'LIUMENG@…….com'. 

*--------------------------------------------------------------------*
START-OF-SELECTION.

  CLEAR: job_output_options,

         job_output_info,

         g_len_in,

         g_lines_txt,

         g_lines_bin,

         g_benfile.

  CLEAR  : gt_otf[], gt_pdf_line[],gt_record[].

 
"控制变量赋值
 
control_parameters-getotf    = 'X'.   "此参数必须，否则不会导出PDF而直接显示smartform

  control_parameters-no_close  = ''.

  control_parameters-no_dialog = 'X'.   "不显示打印对话框

  "输出参数设置

  l_output_options-tddest      = 'ZLM_PL'.
"选择打印设备，可选

  l_output_options-xsfoutdev   = 'ZLM_PL'. "选择打印设备，可选

  l_output_options-tdprinter   = 'CNSAPWIN'.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      formname           = 'ZLM_SMTFM'

    IMPORTING

      fm_name            = fm_name

    EXCEPTIONS

      no_form            = 1

      no_function_module = 2

      OTHERS             = 3.

  CHECK: sy-subrc = 0.

  CALL FUNCTION fm_name

    EXPORTING

      control_parameters = control_parameters

      output_options     = l_output_options      "默认打印选项设置传输
*     user_settings      = 'X'                   "是否从用户主记录中获取信息

      i_acct_head        = l_acct_head

    IMPORTING

      job_output_info    = job_output_info

      job_output_options = job_output_options

    TABLES

      it_acct_item       = lt_acct_item

    EXCEPTIONS

      formatting_error   = 1

      internal_error