How to convert report to pdf format after that I want to send on mail

[Former Member]

Hi

Guru

What is my requirement . I want put push button on output list of a normal report. When user click on mail push button, mail should go to customer mail id according to customer no i gave input for customer no in selection screen.

For this I need what is function module (Code) for convert a report to pdf format and whats function module for send mail to customer.

Plz help me out

thanks

Durgesh

[former_member223537]

Hi,

Please refer this link:

http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm

Above is the same program as per your requirement.

BEst regards,

Prashant

[Former Member]

Hi ,

I think this is helpful

FM are used to convert pdf file and attachem.

• CONVERT_ABAPSPOOLJOB_2_PDF

• SO_DOCUMENT_SEND_API1

&----

---

*& Report ZSPOOLTOPDF2 *

*& *

&----

---

*& Converts spool request into PDF document and emails it to *

*& recipicant. *

*& *

*& Execution *

*& -

---

*

*& This program can be run in background or online and a spool request *

*& will still be created *

&----

---

REPORT zspooltopdf2.

PARAMETER: p_email1 LIKE somlreci1-receiver

DEFAULT 'abap@sapdev.co.uk',

p_sender LIKE somlreci1-receiver

DEFAULT 'abap@sapdev.co.uk',

p_delspl AS CHECKBOX,

p_online no-display.

*DATA DECLARATION

DATA: gd_recsize TYPE i.

• Spool IDs

TYPES: BEGIN OF t_tbtcp.

INCLUDE STRUCTURE tbtcp.

TYPES: END OF t_tbtcp.

DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,

wa_tbtcp TYPE t_tbtcp.

• Job Runtime Parameters

DATA: gd_eventid LIKE tbtcm-eventid,

gd_eventparm LIKE tbtcm-eventparm,

gd_external_program_active LIKE tbtcm-xpgactive,

gd_jobcount LIKE tbtcm-jobcount,

gd_jobname LIKE tbtcm-jobname,

gd_stepcount LIKE tbtcm-stepcount,

gd_error TYPE sy-subrc,

gd_reciever TYPE sy-subrc.

DATA: w_recsize TYPE i,

w_spool_nr like sy-spono.

• %_print LIKE pri_params.

DATA: gd_subject LIKE sodocchgi1-obj_descr,

it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,

it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,

gd_sender_type LIKE soextreci1-adr_typ,

gd_attachment_desc TYPE so_obj_nam,

gd_attachment_name TYPE so_obj_des.

• Spool to PDF conversions

DATA: gd_spool_nr LIKE tsp01-rqident,

gd_destination LIKE rlgrap-filename,

gd_bytecount LIKE tst01-dsize,

gd_buffer TYPE string.

• Binary store for PDF

DATA: BEGIN OF it_pdf_output OCCURS 0.

INCLUDE STRUCTURE tline.

DATA: END OF it_pdf_output.

CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',

c_no(1) TYPE c VALUE ' ',

c_device(4) TYPE c VALUE 'LOCL'.

************************************************************************

*START-OF-SELECTION.

START-OF-SELECTION.

• Write statement to represent report output. Spool request is created

• if write statement is executed in background. This could also be an

• ALV grid which would be converted to PDF without any extra effort

WRITE 'Hello World'.

new-page.

commit work.

new-page print off.

If p_online = 'X'.

• Processing performed when program calls itself when run online

gd_spool_nr = sy-spono.

EXPORT gd_spool_nr TO MEMORY ID 'SPOOLTOPDF'.

EXIT.

endif.

IF sy-batch EQ 'X'.

PERFORM get_job_details.

PERFORM obtain_spool_id.

ELSE.

gd_spool_nr = sy-spono.

************************************

• If executed online, it submits a program to perform the write statements

• instructing it to create a spool request, this could be another program

• which just performs the write statements and then exports sy-spono

• to memory. But in this example it calls itself passing X to parameter

• p_online, which takes it down an alternative procesing path.

submit ZSPOOLTOPDF2

with p_online = 'X'

to sap-spool

spool parameters %_print

• archive parameters %_print

without spool dynpro

and return.

************************************

ENDIF.

• Get spool id from program called above

IMPORT gd_spool_nr FROM MEMORY ID 'SPOOLTOPDF'.

PERFORM convert_spool_to_pdf.

PERFORM process_email.

if p_delspl EQ 'X'.

PERFORM delete_spool.

endif.

IF sy-sysid = c_dev.

wait up to 5 seconds.

SUBMIT rsconn01 WITH mode = 'INT'

WITH output = 'X'

AND RETURN.

ENDIF.

----

---

• FORM obtain_spool_id *

----

---

FORM obtain_spool_id.

CHECK NOT ( gd_jobname IS INITIAL ).

CHECK NOT ( gd_jobcount IS INITIAL ).

SELECT * FROM tbtcp

INTO TABLE it_tbtcp

WHERE jobname = gd_jobname

AND jobcount = gd_jobcount

AND stepcount = gd_stepcount

AND listident <> '0000000000'

ORDER BY jobname

jobcount

stepcount.

READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.

IF sy-subrc = 0.

message s004(zdd) with gd_spool_nr.

gd_spool_nr = wa_tbtcp-listident.

MESSAGE s004(zdd) WITH gd_spool_nr.

ELSE.

MESSAGE s005(zdd).

ENDIF.

ENDFORM.

----

---

• FORM get_job_details *

----

---

FORM get_job_details.

• Get current job details

CALL FUNCTION 'GET_JOB_RUNTIME_INFO'

IMPORTING

eventid = gd_eventid

eventparm = gd_eventparm

external_program_active = gd_external_program_active

jobcount = gd_jobcount

jobname = gd_jobname

stepcount = gd_stepcount

EXCEPTIONS

no_runtime_info = 1

OTHERS = 2.

ENDFORM.

----

---

• FORM convert_spool_to_pdf *

----

---

FORM convert_spool_to_pdf.

CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

src_spoolid = gd_spool_nr

no_dialog = c_no

dst_device = c_device

IMPORTING

pdf_bytecount = gd_bytecount

TABLES

pdf = it_pdf_output

EXCEPTIONS

err_no_abap_spooljob = 1

err_no_spooljob = 2

err_no_permission = 3

err_conv_not_possible = 4

err_bad_destdevice = 5

user_cancelled = 6

err_spoolerror = 7

err_temseerror = 8

err_btcjob_open_failed = 9

err_btcjob_submit_failed = 10

err_btcjob_close_failed = 11

OTHERS = 12.

CHECK sy-subrc = 0.

• Transfer the 132-long strings to 255-long strings

LOOP AT it_pdf_output.

TRANSLATE it_pdf_output USING ' ~'.

CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.

ENDLOOP.

TRANSLATE gd_buffer USING '~ '.

DO.

it_mess_att = gd_buffer.

APPEND it_mess_att.

SHIFT gd_buffer LEFT BY 255 PLACES.

IF gd_buffer IS INITIAL.

EXIT.

ENDIF.

ENDDO.

ENDFORM.

----

---

• FORM process_email *

----

---

FORM process_email.

DESCRIBE TABLE it_mess_att LINES gd_recsize.

CHECK gd_recsize > 0.

PERFORM send_email USING p_email1.

• perform send_email using p_email2.

ENDFORM.

----

---

• FORM send_email *

----

---

• --> p_email *

----

---

FORM send_email USING p_email.

CHECK NOT ( p_email IS INITIAL ).

REFRESH it_mess_bod.

• Default subject matter

gd_subject = 'Subject'.

gd_attachment_desc = 'Attachname'.

• CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.

it_mess_bod = 'Message Body text, line 1'.

APPEND it_mess_bod.

it_mess_bod = 'Message Body text, line 2...'.

APPEND it_mess_bod.

• If no sender specified - default blank

IF p_sender EQ space.

gd_sender_type = space.

ELSE.

gd_sender_type = 'INT'.

ENDIF.

• Send file by email as .xls speadsheet

PERFORM send_file_as_email_attachment

tables it_mess_bod

it_mess_att

using p_email

'Example .xls documnet attachment'

'PDF'

gd_attachment_name

gd_attachment_desc

p_sender

gd_sender_type

changing gd_error

gd_reciever.

ENDFORM.

----

---

• FORM delete_spool *

----

---

FORM delete_spool.

DATA: ld_spool_nr TYPE tsp01_sp0r-rqid_char.

ld_spool_nr = gd_spool_nr.

CHECK p_delspl <> c_no.

CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'

EXPORTING

spoolid = ld_spool_nr.

ENDFORM.

&----

---

*& Form SEND_FILE_AS_EMAIL_ATTACHMENT

&----

---

• Send email

----

---

FORM send_file_as_email_attachment tables it_message

it_attach

using p_email

p_mtitle

p_format

p_filename

p_attdescription

p_sender_address

p_sender_addres_type

changing p_error

p_reciever.

DATA: ld_error TYPE sy-subrc,

ld_reciever TYPE sy-subrc,

ld_mtitle LIKE sodocchgi1-obj_descr,

ld_email LIKE somlreci1-receiver,

ld_format TYPE so_obj_tp ,

ld_attdescription TYPE so_obj_nam ,

ld_attfilename TYPE so_obj_des ,

ld_sender_address LIKE soextreci1-receiver,

ld_sender_address_type LIKE soextreci1-adr_typ,

ld_receiver LIKE sy-subrc.

data: t_packing_list like sopcklsti1 occurs 0 with header line,

t_contents like solisti1 occurs 0 with header line,

t_receivers like somlreci1 occurs 0 with header line,

t_attachment like solisti1 occurs 0 with header line,

t_object_header like solisti1 occurs 0 with header line,

w_cnt type i,

w_sent_all(1) type c,

w_doc_data like sodocchgi1.

ld_email = p_email.

ld_mtitle = p_mtitle.

ld_format = p_format.

ld_attdescription = p_attdescription.

ld_attfilename = p_filename.

ld_sender_address = p_sender_address.

ld_sender_address_type = p_sender_addres_type.

• Fill the document data.

w_doc_data-doc_size = 1.

• Populate the subject/generic message attributes

w_doc_data-obj_langu = sy-langu.

w_doc_data-obj_name = 'SAPRPT'.

w_doc_data-obj_descr = ld_mtitle .

w_doc_data-sensitivty = 'F'.

• Fill the document data and get size of attachment

CLEAR w_doc_data.

READ TABLE it_attach INDEX w_cnt.

w_doc_data-doc_size =

( w_cnt - 1 ) * 255 + STRLEN( it_attach ).

w_doc_data-obj_langu = sy-langu.

w_doc_data-obj_name = 'SAPRPT'.

w_doc_data-obj_descr = ld_mtitle.

w_doc_data-sensitivty = 'F'.

CLEAR t_attachment.

REFRESH t_attachment.

t_attachment[] = it_attach[].

• Describe the body of the message

CLEAR t_packing_list.

REFRESH t_packing_list.

t_packing_list-transf_bin = space.

t_packing_list-head_start = 1.

t_packing_list-head_num = 0.

t_packing_list-body_start = 1.

DESCRIBE TABLE it_message LINES t_packing_list-body_num.

t_packing_list-doc_type = 'RAW'.

APPEND t_packing_list.

• Create attachment notification

t_packing_list-transf_bin = 'X'.

t_packing_list-head_start = 1.

t_packing_list-head_num = 1.

t_packing_list-body_start = 1.

DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.

t_packing_list-doc_type = ld_format.

t_packing_list-obj_descr = ld_attdescription.

t_packing_list-obj_name = ld_attfilename.

t_packing_list-doc_size = t_packing_list-body_num * 255.

APPEND t_packing_list.

• Add the recipients email address

CLEAR t_receivers.

REFRESH t_receivers.

t_receivers-receiver = ld_email.

t_receivers-rec_type = 'U'.

t_receivers-com_type = 'INT'.

t_receivers-notif_del = 'X'.

t_receivers-notif_ndel = 'X'.

APPEND t_receivers.

CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

EXPORTING

document_data = w_doc_data

put_in_outbox = 'X'

sender_address = ld_sender_address

sender_address_type = ld_sender_address_type

commit_work = 'X'

IMPORTING

sent_to_all = w_sent_all

TABLES

packing_list = t_packing_list

contents_bin = t_attachment

contents_txt = it_message

receivers = t_receivers

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.

• Populate zerror return code

ld_error = sy-subrc.

• Populate zreceiver return code

LOOP AT t_receivers.

ld_receiver = t_receivers-retrn_code.

ENDLOOP.

ENDFORM.

[sreeramkumar_madisetty]

Hi

Check the code which I was used for exactly same purpose.

Hi

Check the code for similar requirement I was faced earlier.

Type for binary attachment table.

types: l_ty_tab_objbin type solisti1 occurs 0.

data: l_objbin type l_ty_tab_objbin.

• Tables to hold PDF data

data: t_doctab type docs occurs 0,

t_line type tline occurs 0.

tables : soli. "SAPoffice: line, length 255

tables : zpsdsalrep. "ZPSDSALREP

data: l_email type soli-line.

data: l_email1 type soli-line.

data: l_adrnr like kna1-adrnr.

data: l_objky type nast-objky.

data: l_zzterrmg type zpsdsalrep-zzterrmg.

data: l_zsupervisor type zpsdsalrep-zsupervisor.

data: l_kunnr type kna1-kunnr.

data: l_kunnr1 type vbak-kunnr.

data: l_reclist like somlreci1 occurs 0 with header line.

data: l_objtxt like solisti1 occurs 0 with header line.

data: l_objpack like sopcklsti1 occurs 0 with header line.

data: l_doc_chng like sodocchgi1.

data: l_objhead like solisti1 occurs 0 with header line.

data: l_tab_lines like sy-tabix.

constants: k_true type boolean_flg value 'X'.

data: l_mail type somlreci1-receiver.

data: l_mail1 type somlreci1-receiver.

data:

• l_l_mail2 TYPE somlreci1-receiver.

l_l_mail type somlreci1-receiver.

data: l_zzsalesrep type zpsdsalrep-zzsalesrep.

data: l_recipents type somlreci1-receiver.

constants: k_x(1) type c value 'X',

k_u(1) type c value 'U',

k_raw(3) type c value 'RAW'.

call function 'CONVERT_OTF_2_PDF'

• EXPORTING

• USE_OTF_MC_CMD = 'X'

• ARCHIVE_INDEX =

• IMPORTING

• BIN_FILESIZE =

tables

otf = t_otfdata

doctab_archive = t_doctab

lines = t_line

exceptions

err_conv_not_possible = 1

err_otf_mc_noendmarker = 2

others = 3.

if sy-subrc <> 0.

write: / 'error', sy-subrc.

endif.

***/ Convert the PDF format to the table type required for the

**attachment.

call function 'QCE1_CONVERT'

tables

t_source_tab = t_line

t_target_tab = l_objbin

exceptions

convert_not_possible = 1

others = 2.

if sy-subrc <> 0.

write: / 'error', sy-subrc.

endif.

select single kunnr from vbak into l_kunnr1

where vbeln = nast-objky.

select single adrnr from kna1 into l_adrnr

where kunnr = l_kunnr1.

check sy-subrc is initial.

select single smtp_addr from adr6 into l_email

where addrnumber = l_adrnr.

• SELECT SINGLE zzterrmg FROM zpsdsalrep INTO l_zzterrmg

• WHERE zzsalesrep = l_kunnr1.

• SELECT SINGLE zsupervisor FROM zpsdsalrep INTO l_zsupervisor

• WHERE zzterrmg = l_zzterrmg.

• SELECT SINGLE kunnr FROM kna1 INTO l_kunnr

• WHERE sortl = l_zsupervisor.

*

*

• SELECT SINGLE zsupervisor FROM zpsdsalrep INTO l_zsupervisor

• WHERE zzsalesrep = l_kunnr1.

• SELECT SINGLE zzsalesrep FROM zpsdsalrep INTO l_zzsalesrep

• WHERE zzterrmg = l_zsupervisor.

• SELECT SINGLE adrnr FROM kna1 INTO l_adrnr

• WHERE kunnr = l_zzsalesrep.

• CHECK sy-subrc IS INITIAL.

• SELECT SINGLE smtp_addr FROM adr6 INTO l_email1

• WHERE addrnumber = l_adrnr.

*

*

*

• SELECT SINGLE adrnr FROM kna1 INTO l_adrnr

• WHERE kunnr = l_kunnr.

• CHECK sy-subrc IS INITIAL.

• SELECT SINGLE smtp_addr FROM adr6 INTO l_email1

• WHERE addrnumber = l_adrnr.

l_mail = l_email.

• l_mail1 = l_email1.

• l_l_mail2 = text-006.

l_l_mail = text-007.

• Creation of the document to be sent

• File Name

l_doc_chng-obj_name = 'SENDFILE'.

• Mail Subject

concatenate text-001 nast-objky into l_doc_chng-obj_descr.

• l_doc_chng-obj_descr = text-001.

• Completing the recipient list

l_reclist-receiver = l_mail.

l_reclist-rec_type = k_u.

append l_reclist.

• l_reclist-receiver = l_mail1.

• l_reclist-rec_type = 'U'.

• APPEND l_reclist.

l_reclist-receiver = l_l_mail.

l_reclist-rec_type = k_u.

append l_reclist.

• l_reclist-receiver = l_l_mail2.

• l_reclist-rec_type = 'U'.

• APPEND l_reclist.

• Mail Contents

l_objtxt = text-002.

append l_objtxt.

clear l_objtxt. " put in a blank line

append l_objtxt.

data: l_subject type solisti1.

concatenate text-003 '-' nast-objky into l_subject.

l_objtxt = l_subject.

append l_objtxt.

l_objtxt = text-004 .

append l_objtxt.

• Calculate email size in bytes

describe table l_objtxt lines l_tab_lines.

read table l_objtxt index l_tab_lines.

l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 + strlen( l_objtxt ).

• Creation of the entry for the compressed document

• for the email text

clear l_objpack-transf_bin.

l_objpack-head_start = 1.

l_objpack-head_num = 0.

l_objpack-body_start = 1.

l_objpack-body_num = l_tab_lines.

l_objpack-doc_type = k_raw.

append l_objpack.

• Creation of the document attachment

• (Assume that the data in OBJBIN is in BMP format)

describe table l_objbin lines l_tab_lines.

l_objhead = text-001 .

append l_objhead.

clear l_objpack.

**/ Creation of the entry for the compressed/attached document

l_objpack-transf_bin = k_true.

l_objpack-head_start = 1.

l_objpack-head_num = 1.

l_objpack-body_start = 1.

l_objpack-body_num = l_tab_lines.

l_objpack-doc_type = 'PDF'.

l_objpack-obj_name = text-005.

l_objpack-obj_descr = text-001.

l_objpack-doc_size = l_tab_lines * 255.

append l_objpack. "/ .

delete l_reclist where receiver = ''.

• Sending the document

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1' " IN UPDATE TASK "/ .

exporting

document_data = l_doc_chng

put_in_outbox = k_x

tables

packing_list = l_objpack

object_header = l_objhead

contents_bin = l_objbin

contents_txt = l_objtxt

receivers = l_reclist

exceptions

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

others = 99.

if sy-subrc <> 0.

write: / 'unsuccessful', sy-subrc.

else.

concatenate l_mail ',' l_mail1 ',' l_l_mail into l_recipents.

syst-msgid = '8I'.

syst-msgno = '000'.

syst-msgty = 'S'.

syst-msgv1 = text-008.

skip.

syst-msgv2 = text-009.

syst-msgv3 = l_recipents.

clear: syst-msgv4. "syst-msgv2, syst-msgv3,

perform protocol_update.

write: / 'successful'.

endif.

**/Take_note it is a requirement to do a commit work for the

• email to go into transaction SOST.

• COMMIT WORK. "/Take_note .

• if sy-subrc eq 0.

• endif.

<b>Let me know if you need any clarifications.</b>

Regards,

Sreeram

[Former Member]

hello all,

i have requirement,

thier is a account statement ,which will show preview

1st i should convert a script otf to pdf ,then i need to pick up the mail id fom the customers account and send the acoount statement as attachement in mail to that corresponding customer can anyoone please help me