Email a smartform

[Former Member]

When a transaction is saved, I need to email a form.

I copied the standard prgm /SMB40/RVADOR01 and added the functionality for emailing the smartform w.r.t

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/smartformtoMailasPDF+attachment.

I am trying to issue the o/p from the transaction.

But I am still not able to receive the email.I can see that my o/p type is configured for medium 1, 2 & 5 in NACE.

Where am I missing and is any other config is required for this?

Thanks

Kiran

[Former Member]

When a transaction is saved, I need to email a form.

I copied the standard prgm /SMB40/RVADOR01 and added the functionality for emailing the smartform w.r.t

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/smartformtoMailasPDF+attachment.

I am trying to issue the o/p from the transaction.

But I am still not able to receive the email.I can see that my o/p type is configured for medium 1, 2 & 5 in NACE.

Where am I missing and is any other config is required for this?

Thanks

Kiran

[Former Member]

Hi

Try the below code

Chek these links:

* Internal Table declarations
 
DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
      i_tline TYPE TABLE OF tline WITH HEADER LINE,
      i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,
      i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,
* Objects to send mail.
      i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
      i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
 
* Work Area declarations
      wa_objhead TYPE soli_tab,
      w_ctrlop TYPE ssfctrlop,
      w_compop TYPE ssfcompop,
      w_return TYPE ssfcrescl,
      wa_doc_chng typE sodocchgi1,
      w_data TYPE sodocchgi1,
      wa_buffer TYPE string,"To convert from 132 to 255
 
* Variables declarations
      v_form_name TYPE rs38l_fnam,
      v_len_in LIKE sood-objlen,
      v_len_out LIKE sood-objlen,
      v_len_outn TYPE i,
      v_lines_txt TYPE i,
      v_lines_bin TYPE i.
 
call function 'SSF_FUNCTION_MODULE_NAME'
     exporting
          formname           = 'ZZZ_TEST1'
     importing
          fm_name            = v_form_name
     exceptions
          no_form            = 1
          no_function_module = 2
          others             = 3.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
 
 
w_ctrlop-getotf = 'X'.
w_ctrlop-no_dialog = 'X'.
w_compop-tdnoprev = 'X'.
 
CALL FUNCTION v_form_name
     EXPORTING
          control_parameters = w_ctrlop
          output_options     = w_compop
          user_settings      = 'X'
     IMPORTING
          job_output_info    = w_return
     EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          OTHERS             = 5.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
 
i_otf[] = w_return-otfdata[].
 
call function 'CONVERT_OTF'
       EXPORTING
            format                = 'PDF'
            max_linewidth         = 132
       IMPORTING
            bin_filesize          = v_len_in
       TABLES
            otf                   = i_otf
            lines                 = i_tline
       EXCEPTIONS
            err_max_linewidth     = 1
            err_format            = 2
            err_conv_not_possible = 3
            others                = 4.
*   Fehlerhandling
  if sy-subrc <> 0.
 
  endif.
 
  loop at i_tline.
    translate i_tline using '~'.
    concatenate wa_buffer i_tline into wa_buffer.
  endloop.
 
  translate wa_buffer using '~'.
 
  do.
    i_record = wa_buffer.
    append i_record.
    shift wa_buffer left by 255 places.
    if wa_buffer is initial.
      exit.
    endif.
  enddo.
 
* Attachment
  refresh:
    i_reclist,
    i_objtxt,
    i_objbin,
    i_objpack.
 
  clear wa_objhead.
 
  i_objbin[] = i_record[].
 
 
******* Create Message Body
**** Title and Description
  i_objtxt = 'test with pdf-Attachment!'.
  append i_objtxt.
  describe table i_objtxt lines v_lines_txt.
  read table i_objtxt index v_lines_txt.
  wa_doc_chng-obj_name = 'smartform'.
  wa_doc_chng-expiry_dat = sy-datum + 10.
  wa_doc_chng-obj_descr = 'smartform'.
  wa_doc_chng-sensitivty = 'F'.
  wa_doc_chng-doc_size = v_lines_txt * 255.
 
**** Main Text
*  wa_doc_chng-doc_size = ( v_lines_txt - 1 ) * 255 + strlen( i_objtxt )
*.
  clear 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)
  i_objpack-transf_bin = 'X'.
  i_objpack-head_start = 1.
  i_objpack-head_num = 0.
  i_objpack-body_start = 1.
* Lange des Attachment ermitteln
  describe table i_objbin lines v_lines_bin.
  read table i_objbin index v_lines_bin.
  i_objpack-doc_size =  v_lines_bin * 255 .
 
  i_objpack-body_num = v_lines_bin.
  i_objpack-doc_type = 'PDF'.
  i_objpack-obj_name = 'smart'.
  i_objpack-obj_descr = 'test'.
  append i_objpack.
 
  clear i_reclist.
  i_reclist-receiver = Mail Id.
  i_reclist-rec_type = 'U'.
  append i_reclist.
 
    call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
         EXPORTING
              document_data              = wa_doc_chng
              put_in_outbox              = '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.
 

Regards

Sreeni

Code Formatted by: Alvaro Tejada Galindo on Dec 12, 2008 12:26 PM

[kmoore007]

Kiran, for some reason, SDN would not let me post this reply in the Forum. I got an error saying I was using forbidden words/phrases ??? So I emailed you my solution.

[Former Member]

Hi Kenneth,

Thanks a lot for your email.

I faced some issues in the code you sent me and I emailed to you.

Regards,

Kiran

[Former Member]

Hi Kiran,

are you able to see the email in SOST transaction.

If yes, then your system is not configured to send mails to external ids. Please check with Basis team to configure the same.

If its not reflected in SOST, then check whether the spool is generated in SP01. If spool is not generated, then you are missing something in the program code viz. print parameters etc.

If spool is created, then check whether your program is able to pick up the spool contents.

Best regards,

Prashant

[Former Member]

Hi Prashant,

Unfortunately, I cannot find any thing in SOST & in SP01 also.

But when I see the print preview, I can see the o/p of my smartform.

Do you think, I am missing some thing?

I copied the standard driver program and am using it with out doing any modifications to it.

Thanks

Kiran

[Former Member]

check this wiki on emailing smartform as pdf

https://wiki.sdn.sap.com/wiki/x/MYOmAw

get back to me if u face any issues

Edited by: kartik tarla on Dec 12, 2008 10:38 AM

[Former Member]

Hi Kiran,

Are you passing the output device type parameter in the Smartform FM with value as 'LOCL' or 'LP01'.

That would be required.. else fire a print & check if spool is generated & further processing is done.

Use FM SSFCONVERT_OTF_AND_MAIL

Best regards,

Prashant

[Former Member]

Hi Prashanth,

I moved my developments to test system.

I can see a spool getting created now. How do I proceed from here....

But its strange that in dev its not getting created.

Thanks

Kiran

Edited by: kiran dasari on Dec 12, 2008 8:39 AM

Edited by: kiran dasari on Dec 12, 2008 10:04 AM

[Former Member]

Hi,

Click on this link, u will get suitable code.

http://diocio.wordpress.com/2007/04/27/sap-smartform-to-mail-as-pdf-attachment/

Regards,

BBR.

[Former Member]

Thanks BBR.

Thats exactly the wiki also says which i had a mention.

But still am facing those troubles.These are very strange.

Can you plz help out with any clues.

Is there any other setting I have to look for other than in NACE???

Thanks

Kiran

Edited by: kiran dasari on Dec 12, 2008 7:15 PM

[Former Member]

well the wiki i have mentioned is a z fm and we have been using it as a reuse object in our project without any issues please look at all parameters if u r missing anything.

[Former Member]

please post the code of ur print program it would help us to analyze it to see what ur missing.

[Former Member]

Thanks to every one who shared their thoughts.

I solved my problem.

I just copied the standard print program and I didnot do any thing more than that to handle the emailing functionality.

I had some config issues and that cleared my issues.

Thanks

Kiran