Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

pdf mail

Former Member

‎10-09-2007 12:51 PM

0 Kudos

hi,

I am executing a report in background....which converts take spool-id and den convert in pdf format using FM 'CONVERT_ABAPSPOOLJOB_2_PDF'

and den i send the mail.

problem here is the spool-id which i am getting wen i execute with std program RSTXPDFT4 it gives me the output but only after my actual program gets finish.

my code is

LOOP AT t_smartcode WHERE count <> 0 .

  • WRITE: /5 t_smartcode-smart_code, 30 t_smartcode-count .

*{ ENTCR 8127: D&S Report - Smartcode value retrieval start of changes

WRITE: /5 t_smartcode-smart_code, 30 t_smartcode-formkey ,

50 t_smartcode-count

g_spono = sy-spono .

FORM send_mail USING p_email l_obj_name l_obj_descr .

DATA: t_reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE ,

l_docdata LIKE sodocchgi1 ,

t_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE ,

t_attach LIKE solisti1 OCCURS 10 WITH HEADER LINE , "RD1K953969

t_objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,

l_tab_lines TYPE i ,

l_buffer TYPE string , "RD1K953969

l_spoolid TYPE tsp01-rqident . "RD1K953969

*{RD1K953969

DATA: BEGIN OF lt_pdf_output OCCURS 0 .

INCLUDE STRUCTURE tline .

DATA: END OF lt_pdf_output .

l_spoolid = g_spono .

*Convert Spool to PDF

CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

src_spoolid = l_spoolid

no_dialog = 'X'

  • DST_DEVICE =

  • PDF_DESTINATION =

  • IMPORTING

  • PDF_BYTECOUNT =

  • PDF_SPOOLID =

  • LIST_PAGECOUNT =

  • BTC_JOBNAME =

  • BTC_JOBCOUNT =

TABLES

pdf = lt_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 .

IF sy-subrc <> 0.

ENDIF.

    • Transform 134 byte string to 255 byte.

CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'

EXPORTING

line_width_src = 134

line_width_dst = 255

TABLES

content_in = lt_pdf_output

content_out = t_attach

EXCEPTIONS

err_line_width_src_too_long = 1

err_line_width_dst_too_long = 2

err_conv_failed = 3

OTHERS = 4.

IF sy-subrc <> 0.

CONCATENATE text-016 g_spono INTO t_objtxt SEPARATED BY space .

APPEND t_objtxt .

ENDIF.

*}RD1K953969

*Create Receiver List

t_reclist-receiver = p_email .

*{RD1K953969

t_reclist-rec_type = 'B'. "Login name

*{ ENTCR 8127: D&S Report - Smartcode value retrieval start of changes

  • t_reclist-rec_type = 'U'. "Internet address

*} ENTCR 8127: D&S Report - Smartcode value retrieval end of changes

  • t_reclist-com_type = 'INT'.

*}RD1K953969

APPEND t_reclist.

  • Create Message Body

**Title and Description

l_docdata-obj_name = l_obj_name .

l_docdata-obj_descr = l_obj_descr .

*{RD1K953969

    • Commented. The report is sent as PDF attachment

***Main Text

  • LOOP AT t_smartcode .

  • MOVE t_smartcode TO t_objtxt .

  • APPEND t_objtxt .

  • CLEAR t_objtxt .

  • ENDLOOP .

  • Create email body

t_objtxt = text-013 .

APPEND t_objtxt .

CONCATENATE text-014 sy-datum INTO t_objtxt SEPARATED BY space .

APPEND t_objtxt .

CONCATENATE text-015 sy-uzeit INTO t_objtxt SEPARATED BY space .

APPEND t_objtxt .

**Write Packing List (Main)

  • DESCRIBE TABLE t_objtxt LINES l_tab_lines.

*

  • READ TABLE t_objtxt INDEX l_tab_lines.

  • l_docdata-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( t_objtxt ).

DESCRIBE TABLE t_attach LINES l_tab_lines.

READ TABLE t_attach INDEX l_tab_lines.

l_docdata-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( t_attach ).

*}RD1K953969

CLEAR t_objpack-transf_bin.

t_objpack-head_start = 1.

t_objpack-head_num = 0.

t_objpack-body_start = 1.

  • t_objpack-body_num = l_tab_lines.

DESCRIBE TABLE t_objtxt LINES t_objpack-body_num .

t_objpack-doc_type = 'RAW'.

APPEND t_objpack.

*{RD1K953969

  • Create attachment notification

t_objpack-transf_bin = 'X'.

t_objpack-head_start = 1.

t_objpack-head_num = 1.

t_objpack-body_start = 1.

t_objpack-body_num = l_tab_lines .

t_objpack-doc_type = 'PDF' .

t_objpack-obj_descr = 'Dunning & Stub Report'.

t_objpack-obj_name = 'DnS Report.pdf'.

t_objpack-doc_size = t_objpack-body_num * 255.

APPEND t_objpack.

*}RD1K953969

*Send Mail

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = l_docdata

  • put_in_outbox = 'X' "RD1K953969

TABLES

packing_list = t_objpack

contents_bin = t_attach "RD1K953969

contents_txt = t_objtxt

receivers = t_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.

IF sy-subrc <> 0.

MESSAGE ID 'SO' TYPE 'S' NUMBER '023'

WITH l_docdata-obj_name.

ENDIF.

ENDFORM. " send_mail

points will be rewarded..

regards

vivek

2 REPLIES 2

former_member223537
Active Contributor

‎10-10-2007 5:34 AM

0 Kudos

Hi Vivek,

No need to use standard program RSTXPDFT4.

Here is a sample program to convert spool to PDF & send mail.

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

Best regards,

Prashant

Former Member
In response to former_member223537

‎10-10-2007 5:37 AM

0 Kudos

hey prashant,

thx for the reply actually u have replied with the same link in my previous thread for same problem...initialaly i couldnt solve the problem with ur solution but now i got the solution with ur help so this thread is useless now and i have given u full 10 points in previous thread

regards

vivek