Smartform convert to WORD - e-mail/fax

Question

Hi All,
Quickly can we convert Smartform output to Word output. Currently I am doing Smartform converted to PDF and sending that as e-mail/fax. New requirement is to send in word format. Can we convert Samrtform to WORD and send as e-mal/fax?
Thanks in advance.
Regards,
Tim

Answer 1

Check this code below ....
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        FORMNAME                 = 'ZSD_SFM_ATTACH'
  VARIANT                  = ' '
  DIRECT_CALL              = ' '
      IMPORTING
        FM_NAME                  = FM_NAME
EXCEPTIONS
  NO_FORM                  = 1
  NO_FUNCTION_MODULE       = 2
  OTHERS                   = 3
CALL FUNCTION FM_NAME
    EXPORTING
  ARCHIVE_INDEX              =
  ARCHIVE_INDEX_TAB          =
  ARCHIVE_PARAMETERS         =
       CONTROL_PARAMETERS         = wa_control
  MAIL_APPL_OBJ              =
  MAIL_RECIPIENT             =
  MAIL_SENDER                =
       OUTPUT_OPTIONS             = wa_prnctrl
  USER_SETTINGS              = 'X'
    CUST_LINE                  = gl_cust_line
     IMPORTING
       DOCUMENT_OUTPUT_INFO       = wa_doc_info
       JOB_OUTPUT_INFO            = wa_outinfo
       JOB_OUTPUT_OPTIONS         = wa_job_opt
     EXCEPTIONS
       FORMATTING_ERROR           = 1
       INTERNAL_ERROR             = 2
       SEND_ERROR                 = 3
       USER_CANCELED              = 4
       OTHERS                     = 5.
t_otf[] = wa_outinfo-otfdata[].
  CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
  USE_OTF_MC_CMD               = 'X'
  ARCHIVE_INDEX                =
   IMPORTING
      BIN_FILESIZE                 = g_filesize
    TABLES
      OTF                          = t_otf
      DOCTAB_ARCHIVE               = t_docs
      LINES                        = i_tline
EXCEPTIONS
  ERR_CONV_NOT_POSSIBLE        = 1
  ERR_OTF_MC_NOENDMARKER       = 2
  OTHERS                       = 3
convert PDF 132 to 255
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
No translation
loop at i_tline.
  i_objbin-line = i_tline-tdline.
  append i_objbin.
endloop.
Convert PDF from 132 to 255.
  LOOP AT i_tline.
Replacing space by ~
    TRANSLATE i_tline USING ' ~'.
    CONCATENATE w_buffer i_tline INTO w_buffer.
  ENDLOOP.
Replacing ~ by space
  TRANSLATE w_buffer USING '~ '.
  DO.
    i_record = w_buffer.
Appending 255 characters as a record
    APPEND i_record.
    SHIFT w_buffer LEFT BY 255 PLACES.
    IF w_buffer IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
  Refresh: i_reclist,  i_objtxt,  i_objbin,  i_objpack.
  clear w_objhead.
Object with PDF.
  i_objbin[] = i_record[].
loop at i_record.
   i_objbin-line = i_record-line.
   append i_objbin.
endloop.
  DESCRIBE TABLE i_objbin LINES v_lines_bin.
  glt_objpack-head_start = 1.
Number of lines of an object header in object packet
  glt_objpack-head_num = 0.
Start line of object contents in an object packet
  glt_objpack-body_start = 1.
Number of lines of the object contents in an object packet
  glt_objpack-body_num = v_lines_txt.
Code for document class
  glt_objpack-doc_type = 'RAW'.
  APPEND i_objpack.
Packing as PDF.
  glt_objpack-transf_bin = 'X'.
  glt_objpack-head_start = 1.
  glt_objpack-head_num = 1.
  glt_objpack-body_start = 1.
  glt_objpack-body_num = v_lines_bin.
  glt_objpack-doc_type = 'PDF'.
  glt_objpack-obj_name = 'ReturnForm'.
  CONCATENATE 'ReturnForm_output' '.pdf'
  INTO glt_objpack-obj_descr.
  glt_objpack-doc_size = v_lines_bin * 255.
  APPEND glt_objpack.
  glt_objhead = 'Return_form.PDF'. append glt_objhead.
Document information.
  CLEAR i_reclist.
Fill the receiver list
  clear gs_reclist.
condense gl_fax_num.
  gs_reclist-receiver = P_Z_MFR_MAIL.
  gs_reclist-rec_type = co_u.
  append gs_reclist to i_reclist.
Sending mail.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = gl_doc_chng
      put_in_outbox              = 'X'
      COMMIT_WORK                = 'X'
    TABLES
      packing_list               = glt_objpack
      object_header              = glt_objhead
      CONTENTS_BIN               = i_objbin
    contents_hex               = i_objbin
      contents_txt               = gt_objcont
      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.