topic Re: Smartforms to PDF in Application Development and Automation Discussions

Smartforms to PDF

Former Member — Fri, 14 Oct 2005 09:40:12 GMT

Hello,

How can I easily send a smartforms by mail in PDF format ?

I'm in CRM 3.1.

Thanks for any answers that can help,

Benoî

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 10:03:56 GMT

Hi benoit,

check this link...

it helps you creating a smartform and sending mail in pdf format.

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/8fd773b3-0301-0010-eabe-82149bcc292e

reward points for helpfull answers and close the thread if your question is solved

regards,

venu.

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 10:17:59 GMT

Hi,

Check out the Forum on this topic, u will find lots of discussions made.

Regards,

Anjali

Re: Smartforms to PDF

jayanthi_jayaraman — Fri, 14 Oct 2005 10:18:43 GMT

Hi,

The below sample code is for 4.6C.Try this out.

Kindly reward points by clicking the star on the left of reply,if it helps.

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.

Länge 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 = xyz@yahoo.com'.

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.

Message was edited by: Jayanthi Jayaraman

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 14:20:20 GMT

It does not work,

The PDF file created is impossible to read, there are errors in it.

A sign (marker?) is not recognised : g11.35.

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 14:27:02 GMT

Hi Benoit,

This is very simple and you do not need to do anything other than a bit of configuration.

Run transaction SCOT. You should see an SMTP branch under Internet. Double click on this and you will be presented with a pop-up for General Node Data. Under the support address types you should see Fax/Internet/Pager. Click on the <Set> button next to Internet.

This will show a second popup. Under the section <Output Format for SAP documents> make sure SAPscript and Smartforms is set to PDF.

This will ensure a PDF is created when a sender and recipient is set on the SMARTFORM call.

Is this what you want ? Is this for an external e-mail ?

Cheers

Colin.

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 14:27:13 GMT

Hi,

check this it may help you.

http://www.sapgenie.com/abap/smartforms.htm

http://www.sapgenie.com/abap/smartforms_detail.htm

regards,

venu.

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 14:37:51 GMT

Hi Colin,

Sapscript and Smartforms are set to PDF,

So I just need to configure the action ? (Don't forget I'm in CRM...)

I tried to replace Smartform print by Smartform mail but then I was not able to see the action in documents.

Thanks,

Benoî

Re: Smartforms to PDF

Former Member — Fri, 14 Oct 2005 15:04:27 GMT

Hi,

This is where I checked it - CRM 4.0 - this is the same going back versions as well.

Can it be a fixed recipient ? If so, go ahead and just configure the action to mail.

We have one doing the same thing over here.

The processing type of action is set to "Smartforms Mail"

The archive mode is set to "1" - Mail only

We can still see the action even though it is mail only.

Are you sure it is not configured as a manual action or does it have any start/schedule conditions that are not being fufilled and therefore the action will not show.

If you need the recipient to be more dynamic, let me know.

This is what we do.

BTW - I am out of the office in about 10 minutes and won't be back until Tuesday so do not lose heart if I do not answer until then.

Cheers

Colin.

Re: Smartforms to PDF

Former Member — Tue, 18 Oct 2005 07:51:38 GMT

Hi,

Did this work for you ?

Cheers

Colin.

Re: Smartforms to PDF

Former Member — Wed, 26 Sep 2007 14:24:13 GMT

Jayanthi,

Thanks for your reply. I copied your code and recieved an error of 6(x_error). Any ideas.

Here is my code...

report ztestmail.

*****

DATA: ZIS_BOOK TYPE TABLE OF PPFTBOOK WITH HEADER LINE.

*****

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 = 'SPPFDEMO_BOOK'

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'.

ZIS_BOOK-ID = 'TEST'.

APPEND ZIS_BOOK.

CALL FUNCTION v_form_name

EXPORTING

control_parameters = w_ctrlop

output_options = w_compop

user_settings = 'X'

IS_BOOK = ZIS_BOOK

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.

Länge 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 = 'scottmiller47@yahoo.com'.

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.

data: l type sy-subrc.

l = sy-subrc.

commit work.

BREAK-POINT.

Re: Smartforms to PDF

Former Member — Wed, 07 Nov 2007 10:39:44 GMT

Re: Smartforms to PDF

Former Member — Tue, 27 Nov 2007 13:22:12 GMT

Hi,

I had a requirement like this. Can you tell me the resoultion for opening an PDF attachement through email.