P.O auto mail generation pdf to word

Question

Hi  everyone,
this is regarding the automatic mail generation in smartforms. Its like when you process the smartforms the mails are automatically shooted to the address maintained for eg usually to the vendors. So what I need is incase I proces my smartforms the mail shouldnt be in the pdf format but in normal text format.
I dont want to take that pdf convert to word/text by external sofware and attch it to the mail. I want it to be automatic.
Plz suggest the possible ways of doing it. Thanks to all in advance.
Rgds,
Anuc.

Answer 1

*& Report  ZCS_IRN
report  zpo_spool no standard page heading line-size 260.
Table Declaration *******************************
tables : zptreg,zpoinb,dd07t,nase.
Data Declaration ********************************
type-pools: slis.
data :   report_id  like sy-repid.
data :   ws_title   type lvc_title value 'Reprint PT Inbound Register'.
data :   i_layout   type slis_layout_alv.
data :   i_fieldcat type slis_t_fieldcat_alv.
data :   lf_fm_name            type rs38l_fnam.
data :   ls_control_param      type ssfctrlop.
data :   ls_composer_param     type ssfcompop.
data :   ls_recipient type swotobjid.
data :   ls_sender    type swotobjid.
data : control_parameters type ssfctrlop.
data :   output_options type ssfcompop.
Internal Table Declaration *******************************
data: begin of itab occurs 0,
        chk,
        indno type zptreg-indno,
        dtype type zptreg-dtype,
        ernam type zptreg-ernam,
        erzet type zptreg-erzet,
        aedat type zptreg-aedat,
        traid type zptreg-traid,
        traty type zptreg-traty,
        vehnum type zptreg-vehnum,
        bolnr type zptreg-bolnr,
        lrdat type zptreg-lrdat,
        lrdelv type zptreg-lrdelv,
        lrtime type zptreg-lrtime,
        datia type zptreg-datia,
        uhria type zptreg-uhria,
        lifnr type zptreg-lifnr,
        werks type zptreg-werks,
        anzpk type zptreg-anzpk,
        btgew type zptreg-btgew,
        gewei type zptreg-gewei,
        ntgew type zptreg-ntgew,
        idtxt type zptreg-idtxt,
        waybl type zptreg-waybl,
        dpack type zptreg-dpack,
        ebeln type zpoinb-ebeln,
        vbeln type zpoinb-vbeln,
         menge type eket-menge,
        wemng type eket-wemng,
        wemng1 type eket-wemng,
        chaln type zptreg-chaln,
        paymt type zptreg-paymt,
        zchquan type zptreg-zchquan,
        rdesc(60) type c,
        trdesc(60) type c,
        tydesc(60) type c,
        pdesc(60) type c,
        name1 type lfa1-name1,
     end of itab.
data : itab1 like itab occurs 0 with header line.
data : itab2 like itab occurs 0 with header line.
data: begin of ieket occurs 0,
        ebeln type eket-ebeln,
        ebelp type eket-ebelp,
        menge type eket-menge,
        wemng type eket-wemng,
      end of ieket.
data : ieket1 like ieket occurs 0 with header line.
data : ieket2 like ieket occurs 0 with header line.
data : flag type c.
Selection Screen *******************************
selection-screen : begin of block b1 with frame title text-001.
select-options : x_indno for zptreg-indno matchcode object zindnohelp2.
select-options : x_aedat for zptreg-aedat.
select-options : x_werks for zptreg-werks .
select-options : x_lrdat for zptreg-lrdat.
select-options : x_lifnr for zptreg-lifnr no intervals no-extension.
select-options : x_ebeln for zpoinb-ebeln no intervals no-extension.
select-options : x_bolnr for zptreg-bolnr no intervals no-extension.
select-options : x_traid for zptreg-traid no intervals no-extension.
selection-screen : end of block b1.
Start of Selection  *****************************
start-of-selection.
  set pf-status 'STATUS'.
  perform get_data.
  perform display_data.
*&      Form  get_data
form get_data .
  select * from zptreg into corresponding fields of table itab1
                          where indno in x_indno
                            and aedat in x_aedat
                            and werks in x_werks
                            and lrdat in x_lrdat
                            and lifnr in x_lifnr
                            and bolnr in x_bolnr
                            and traid in x_traid.
  if sy-subrc ne 0.
    message i001(zmsg).
    stop.
  endif.
  select * from zpoinb into corresponding fields of table itab
                       for all entries in itab1
                         where indno = itab1-indno
                         and ebeln in x_ebeln.
  if sy-subrc ne 0.
    message i001(zmsg).
    stop.
  endif.
  loop at itab.
    at new indno.
      flag = 1.
    endat.
    if flag = 1.
      read table itab1 with key indno = itab-indno.
      move itab1-traid to itab-traid.
      move itab1-lifnr to itab-lifnr.
      move itab1-traty to itab-traty.
      move itab1-bolnr to itab-bolnr.
      move itab1-traid to itab-traid.
      move itab1-werks to itab-werks.
      move itab1-vehnum to itab-vehnum.
      move itab1-lifnr to itab-lifnr.
      move itab1-btgew to itab-btgew.
      move itab1-gewei to itab-gewei.
      move itab1-ntgew to itab-ntgew.
      move itab1-idtxt to itab-idtxt.
      move itab1-waybl to itab-waybl.
      move itab1-anzpk to itab-anzpk.
      move itab1-aedat to itab-aedat.
      move itab1-dpack to itab-dpack.
      move itab1-erzet to itab-erzet.
      move itab1-ernam to itab-ernam.
      move itab1-zchquan to itab-zchquan.
      move itab1-paymt to itab-paymt.
      move itab1-chaln to itab-chaln.
      move itab1-lrdat to itab-lrdat.
      move itab1-lrdelv to itab-lrdelv.
      move itab1-lrtime to itab-lrtime.
      move itab1-datia to itab-datia.
      move itab1-uhria to itab-uhria.
      clear flag.
    endif.
    modify itab.
  endloop.
  delete itab where indno not in x_indno.
  select * from eket into corresponding fields of table ieket for all entries in itab
    where ebeln = itab-ebeln.
  loop at ieket.
    move ieket-ebeln to ieket1-ebeln.
    move ieket-menge to ieket1-menge.
    collect ieket1.
  endloop.
  loop at ieket.
    move ieket-ebeln to ieket2-ebeln.
    move ieket-wemng to ieket2-wemng.
    collect ieket2.
  endloop.
  loop at itab.
    read table ieket1 with key ebeln = itab-ebeln.
    move ieket1-menge to itab-menge.
    read table ieket2 with key ebeln = itab-ebeln.
    move ieket2-wemng to itab-wemng.
    itab-wemng1 = itab-menge - itab-wemng.
    select ddtext from dd07t into itab-rdesc where domvalue_l = itab-idtxt and domname = 'ZIDTXT'.
    endselect.
    select ddtext from dd07t into itab-trdesc where domvalue_l = itab-traid and domname = 'ZTRAID'.
    endselect.
    select ddtext from dd07t into itab-tydesc where domvalue_l = itab-traty and domname = 'ZTRATY'.
    endselect.
    select ddtext from dd07t into itab-pdesc where domvalue_l = itab-paymt and domname = 'ZPAYMT'.
    endselect.
    select name1 from lfa1 into itab-name1 where lifnr = itab-lifnr.
    endselect.
    modify itab.
    clear itab.
  endloop.
  if itab[] is initial.
    message i001(zmsg).
    stop.
  endif.
endform.                    " get_data
*&      Form  display_data
form display_data .
  report_id = sy-repid.
  perform f1000_layout_init changing i_layout.
  perform f2000_fieldcat_init changing i_fieldcat.
  call function 'REUSE_ALV_LIST_DISPLAY'
   exporting
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
     i_callback_program              = report_id
     i_callback_pf_status_set       = 'STATUS'
     i_callback_user_command        = 'USER_COMMAND'
    I_STRUCTURE_NAME               =
     is_layout                       = i_layout
     it_fieldcat                     = i_fieldcat
    IT_EXCLUDING                   =
    IT_SPECIAL_GROUPS              =
    IT_SORT                        =
    IT_FILTER                      =
    IS_SEL_HIDE                    =
     i_default                      = 'X'
     i_save                         = 'A'
    IS_VARIANT                     =
    IT_EVENTS                      =
    IT_EVENT_EXIT                  =
    IS_PRINT                       =
    IS_REPREP_ID                   =
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
    IR_SALV_LIST_ADAPTER           =
    IT_EXCEPT_QINFO                =
    I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    tables
      t_outtab                       = itab
  EXCEPTIONS
    PROGRAM_ERROR                  = 1
    OTHERS                         = 2
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform.                    " display_data
*&      Form  f1000_layout_init
form f1000_layout_init using i_layout type slis_layout_alv.
  clear i_layout.
  i_layout-colwidth_optimize = 'X'.
  i_layout-edit = ''.
  i_layout-box_fieldname = 'CHK'.
endform.                    " F1000_Layout_Init
*&      Form  f2000_fieldcat_init
form f2000_fieldcat_init changing i_fieldcat type slis_t_fieldcat_alv.
  data: line_fieldcat type slis_fieldcat_alv.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'CHK'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_l = 'Checkbox'.
  line_fieldcat-checkbox  = 'X'.      " Display this field as a checkbox
  line_fieldcat-outputlen = '8'.
  line_fieldcat-edit      =  'X'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'INDNO'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' PT Register No '.
  line_fieldcat-outputlen = '15'.
line_fieldcat-hotspot       = 'X' .
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'AEDAT'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Creation Date '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'TRDESC'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Transporter Name    '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'TYDESC'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Transport Type  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'VEHNUM'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Vehicle Number   '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'BOLNR'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' L .R Number  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'NAME1'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Vendor / Supplier'.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'WERKS'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Site   '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'EBELN'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Purchasing Document '.
  line_fieldcat-outputlen = '15'.
  line_fieldcat-hotspot       = 'X' .
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'WEMNG1'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Still To Be Delivered '.
  line_fieldcat-outputlen = '20'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'VBELN'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Sales Document  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'ANZPK'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'No.of Packages  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'DPACK'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Damaged Packages  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'BTGEW'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Total Weight   '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'GEWEI'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Weight Unit   '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'NTGEW'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = ' Net Weight   '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'RDESC'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Remarks   '.
  line_fieldcat-outputlen = '60'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'WAYBL'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Weigh Bill Number  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'ERNAM'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Created By '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'ERZET'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Created At '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'LRDAT'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'L.R Date  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'LRDELV'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'L.R Delivery Date  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'LRTIME'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'L.R Time  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'DATIA'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_l = 'Appointments: From date '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'UHRIA'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_l = 'Appointments: Time from  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'CHALN'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Challan No  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'PDESC'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Payment method  '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
  clear line_fieldcat.
  line_fieldcat-fieldname = 'ZCHQUAN'.
  line_fieldcat-tabname   = 'ITAB'.
  line_fieldcat-seltext_m = 'Challan Quantity '.
  line_fieldcat-outputlen = '15'.
  append line_fieldcat to i_fieldcat.
endform.                    "f2000_fieldcat_init
*&      Form  user_command
form user_command using r_ucomm like sy-ucomm
                      rs_selfield type slis_selfield.
  data: wa_job_output_info type ssfcrescl.
data wa_spoolids type  tsfspoolid.
data wa_spoolnum type rspoid.
data: objpack like sopcklsti1 occurs  2 with header line,
      objhead1 like solisti1   occurs  1 with header line,
      objbin  like solisti1   occurs 10 with header line,
      objtxt  like solisti1   occurs 10 with header line,
      reclist like somlreci1  occurs  5 with header line,
      doc_chng like sodocchgi1,
      tab_lines like sy-tabix.
  data : wa_itab like itab.
  data : line type c.
  case r_ucomm.
    when 'SAVE'.
      clear line.
      refresh itab2.
      read table itab index rs_selfield-tabindex.
      loop at itab where chk ne space.
        move-corresponding itab to itab2.
        collect itab2.
      endloop.
      describe table itab2 lines line.
      if line ge 2.
        message 'Please Select Only Document for Print Output ' type 'E'.
      endif.
      set parameter id : 'ZIN' field itab-indno.
      call function 'SSF_FUNCTION_MODULE_NAME'
        exporting
          formname = 'ZPTREG_NEW'
        importing
          fm_name  = lf_fm_name.
      if sy-subrc <> 0.
      endif.
      control_parameters-no_dialog = 'X'.
      control_parameters-preview   =  'X'.
      output_options-tddest = 'LOCL'.
      output_options-tdcopies = '2'.
      call function lf_fm_name
        exporting
          control_parameters = ls_control_param
          output_options     = ls_composer_param
          mail_recipient     = ls_recipient
          mail_sender        = ls_sender
          user_settings      = 'X'
          p_indno            = itab-indno
          importing
  DOCUMENT_OUTPUT_INFO       =
   job_output_info            = wa_job_output_info
  JOB_OUTPUT_OPTIONS         =
        exceptions
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          others             = 5.
      if sy-subrc <> 0.
      endif.
move wa_job_output_info-spoolids[] to wa_spoolids[].
read table wa_spoolids into wa_spoolnum index 1.
if sy-subrc = 0.
data :id like tsp01-rqident.
move wa_spoolnum to id.
endif. .
*loop at wa_spoolids INTO wa_spoolnum .
write : id.
*endloop.
data i_soli like soli occurs 0 with header line.
call function 'RSPO_RETURN_SPOOLJOB'
exporting
rqident = id
desired_type = 'OTF'
tables
buffer = i_soli
exceptions
no_such_job = 1
job_contains_no_data = 2
selection_empty = 3
no_permission = 4
can_not_access = 5
read_error = 6
type_no_match = 7
others = 8.
data content_bin type solix_tab.
data objhead type soli_tab.
data i_soli_tab type soli_tab.
data boolean type sx_boolean.
data length type so_obj_len.
loop at i_soli.
append i_soli to i_soli_tab[].
endloop.
call function 'SX_OBJECT_CONVERT_OTF_RAW'
exporting
format_src = 'OTF'
format_dst = 'RAW'
changing
transfer_bin = boolean
content_txt = i_soli_tab
content_bin = content_bin
objhead = objhead
len = length
exceptions
err_conv_failed = 1
others = 2.
  endcase.
*describe table objbin lines tab_lines.
      objpack-transf_bin = 'X'.
      objpack-head_start = 1.
      objpack-head_num = 1.
      objpack-body_start = 1.
      objpack-body_num =  '100'. "tab_lines.
* objpack-doc_type = c_asc.
      objpack-doc_type = 'DOC'.
      objpack-obj_name = 'ATTACHMENT'.
      objpack-obj_descr = 'ATTACH'. "p_attach.
"Name of Attachment
      objpack-doc_size = tab_lines  * 255.
      append objpack..
reclist-receiver = '[email protected]'.
        reclist-rec_type = 'U'.
        append reclist.
objbin[] = i_soli_tab[].
      call function 'SO_RAW_TO_RTF'
        tables
          objcont_old = objbin
          objcont_new = objbin
        exceptions
          others      = 0.
      call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
        exporting
          document_data              = doc_chng
          put_in_outbox              = 'X'
          commit_work                = 'X'
        tables
          packing_list               = objpack
          object_header              = objhead1
          contents_bin               = objbin
          contents_txt               = objtxt
          receivers                  = reclist
        exceptions
          too_many_receivers         = 1
          document_not_sent          = 2
          operation_no_authorization = 4
          others                     = 99.
endform.                    "user_command
Message was edited by:
        anu c