regarding mail

[Former Member]

how to send the pdf file as an attachment to some other mail......

give me sufficient examples........

fine solution reward with maximum points.........

[Former Member]

&----

---

*& Report ZSEND_PDF_EMAIL

*&

&----

---

*&

*&

&----

---

REPORT zsend_pdf_email.

DATA: itcpo LIKE itcpo,

tab_lines LIKE sy-tabix.

• Variables for EMAIL functionality

DATA: maildata LIKE sodocchgi1.

DATA: mailpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.

DATA: mailhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.

DATA: mailbin LIKE solisti1 OCCURS 10 WITH HEADER LINE.

DATA: mailtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.

DATA: mailrec LIKE somlrec90 OCCURS 0 WITH HEADER LINE.

DATA: solisti1 LIKE solisti1 OCCURS 0 WITH HEADER LINE.

PERFORM send_form_via_email.

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

• FORM SEND_FORM_VIA_EMAIL *

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

FORM send_form_via_email.

CLEAR: maildata, mailtxt, mailbin, mailpack, mailhead, mailrec.

REFRESH: mailtxt, mailbin, mailpack, mailhead, mailrec.

• Creation of the document to be sent File Name

maildata-obj_name = 'TEST'.

• Mail Subject

maildata-obj_descr = 'Subject'.

• Mail Contents

mailtxt-line = 'Here is your file'.

APPEND mailtxt.

• Prepare Packing List

PERFORM prepare_packing_list.

• Set recipient - email address here!!!

mailrec-receiver = '[email protected]'.

mailrec-rec_type = 'U'.

APPEND mailrec.

• Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = maildata

put_in_outbox = 'X'

TABLES

packing_list = mailpack

object_header = mailhead

contents_bin = mailbin

contents_txt = mailtxt

receivers = mailrec

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

OTHERS = 99.

commit work.

ENDFORM. "SEND_FORM_VIA_EMAIL

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

• Form PREPARE_PACKING_LIST

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

FORM prepare_packing_list.

CLEAR: mailpack, mailbin, mailhead.

REFRESH: mailpack, mailbin, mailhead.

DESCRIBE TABLE mailtxt LINES tab_lines.

READ TABLE mailtxt INDEX tab_lines.

maildata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( mailtxt ).

• Creation of the entry for the compressed document

CLEAR mailpack-transf_bin.

mailpack-head_start = 1.

mailpack-head_num = 0.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'RAW'.

APPEND mailpack.

• Creation of the document attachment

• This form gets the OTF code from the SAPscript form.

• If you already have your OTF code, I believe that you may

• be able to skip this form. just do the following code, looping thru

• your SOLISTI1 and updating MAILBIN.

PERFORM get_otf_code.

LOOP AT solisti1.

MOVE-CORRESPONDING solisti1 TO mailbin.

APPEND mailbin.

ENDLOOP.

DESCRIBE TABLE mailbin LINES tab_lines.

mailhead = 'TEST.OTF'.

APPEND mailhead.

• Creation of the entry for the compressed attachment

mailpack-transf_bin = 'X'.

mailpack-head_start = 1.

mailpack-head_num = 1.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'OTF'.

mailpack-obj_name = 'TEST'.

mailpack-obj_descr = 'Subject'.

mailpack-doc_size = tab_lines * 255.

APPEND mailpack.

ENDFORM. "PREPARE_PACKING_LIST

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

• Form GET_OTF_CODE

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

FORM get_otf_code.

DATA: BEGIN OF otf OCCURS 0.

INCLUDE STRUCTURE itcoo .

DATA: END OF otf.

DATA: itcpo LIKE itcpo.

DATA: itcpp LIKE itcpp.

data control type SSFCTRLOP.

data output type SSFCOMPOP.

data otfdata type SSFCRESCL.

control-getotf = 'X'.

OUTPUT-TDDEST = 'Lp01'.

• control-DEVICE = 'LOCL'.

control-NO_DIALOG = 'X'.

CLEAR itcpo.

itcpo-tdgetotf = 'X'.

CALL FUNCTION '/1BCDWB/SF00000279'

EXPORTING

CONTROL_PARAMETERS = control

OUTPUT_OPTIONS = output

USER_SETTINGS = ' '

IMPORTING

• DOCUMENT_OUTPUT_INFO =

JOB_OUTPUT_INFO = otfdata

• JOB_OUTPUT_OPTIONS =

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5.

IF sy-subrc <> 0.

ENDIF.

• Move OTF code to structure SOLI form email

CLEAR solisti1. REFRESH solisti1.

LOOP AT otfdata-otfdata into otf.

solisti1-line = otf.

APPEND solisti1.

ENDLOOP.

ENDFORM. "GET_OTF_CODE

[former_member195698]

Hi ,

Check the links

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

There is also this excellent weblog by Thomas Jung.

/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface

Regards,

Abhishek Jolly

[Former Member]

try this link:

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