SAPScript EMAIL Body Text

Former Member · ‎2007 May 08

Hi All,

I am able to send mail through SAPScript with output through PDF ... but not able to attach text in the mail body text ...

Is there any way to attach some text in the email body ... Please help

Thanks & Regards

Surajit

Former Member · ‎2007 May 08

Hi Surajit,

check if this helps...

METHOD SEND_PDF_ATTACHMENT .

IF SY-BATCH EQ 'X'.

CALL METHOD GET_JOB_DETAILS.

CALL METHOD OBTAIN_SPOOL_ID.

ELSE.

GD_SPOOL_NR = SY-SPONO.

ENDIF.

CALL METHOD CONVERT_SPOOL_TO_PDF.

ENDMETHOD. " SEND_PDF_ATTACHMENT

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

ENDMETHOD.

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

AND PDEST = 'LOCL'

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.

ENDMETHOD.

METHOD CONVERT_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 INTO WA_PDF_OUTPUT.

TRANSLATE WA_PDF_OUTPUT USING ' ~'.

CONCATENATE GD_BUFFER WA_PDF_OUTPUT INTO GD_BUFFER.

ENDLOOP.

TRANSLATE GD_BUFFER USING '~ '.

DO.

WA_MESS_ATT = GD_BUFFER.

APPEND WA_MESS_ATT TO IT_MESS_ATT.

SHIFT GD_BUFFER LEFT BY 255 PLACES.

IF GD_BUFFER IS INITIAL.

EXIT.

ENDIF.

ENDDO.

DESCRIBE TABLE IT_MESS_ATT LINES GD_RECSIZE.

CHECK GD_RECSIZE > 0.

REFRESH IT_MESS_BOD.

Default subject matter

GD_SUBJECT = 'Subject'.

GD_ATTACHMENT_DESC = 'Attachname'.

CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.

WA_MESS_BOD = 'Message Body text, line 1'.

APPEND WA_MESS_BOD TO IT_MESS_BOD.

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

APPEND WA_MESS_BOD TO IT_MESS_BOD.

If no sender specified - default blank

IF P_SENDER EQ SPACE.

GD_SENDER_TYPE = SPACE.

ELSE.

GD_SENDER_TYPE = 'INT'.

ENDIF.

DATA: LD_ERROR TYPE SY-SUBRC,

LD_RECIEVER TYPE SY-SUBRC,

LD_MTITLE TYPE SODOCCHGI1-OBJ_DESCR,

LD_EMAIL TYPE SOMLRECI1-RECEIVER,

LD_FORMAT TYPE SO_OBJ_TP ,

LD_ATTDESCRIPTION TYPE SO_OBJ_NAM ,

LD_ATTFILENAME TYPE SO_OBJ_DES ,

LD_SENDER_ADDRESS TYPE SOEXTRECI1-RECEIVER,

LD_SENDER_ADDRESS_TYPE TYPE SOEXTRECI1-ADR_TYP,

LD_RECEIVER TYPE SY-SUBRC.

DATA: T_PACKING_LIST TYPE TABLE OF SOPCKLSTI1,

WA_PACKING_LIST TYPE SOPCKLSTI1,

T_CONTENTS TYPE TABLE OF SOLISTI1 ,

T_RECEIVERS TYPE TABLE OF SOMLRECI1 ,

WA_RECEIVERS TYPE SOMLRECI1 ,

T_ATTACHMENT TYPE TABLE OF SOLISTI1 ,

T_OBJECT_HEADER TYPE TABLE OF SOLISTI1 ,

W_CNT TYPE I,

W_SENT_ALL(1) TYPE C,

W_DOC_DATA TYPE SODOCCHGI1.

LD_EMAIL = give the email address here.

LD_MTITLE = 'Example .xls documnet attachment'.

LD_FORMAT = 'PDF'.

LD_ATTDESCRIPTION = GD_ATTACHMENT_DESC.

LD_ATTFILENAME = GD_ATTACHMENT_NAME.

LD_SENDER_ADDRESS = P_SENDER.

LD_SENDER_ADDRESS_TYPE = GD_SENDER_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_MESS_ATT INTO WA_MESS_ATT

INDEX W_CNT.

W_DOC_DATA-DOC_SIZE =

( W_CNT - 1 ) * 255 + STRLEN( WA_MESS_ATT ).

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_MESS_ATT[].

Describe the body of the message

CLEAR T_PACKING_LIST.

REFRESH T_PACKING_LIST.

WA_PACKING_LIST-TRANSF_BIN = SPACE.

WA_PACKING_LIST-HEAD_START = 1.

WA_PACKING_LIST-HEAD_NUM = 0.

WA_PACKING_LIST-BODY_START = 1.

DESCRIBE TABLE IT_MESS_BOD LINES WA_PACKING_LIST-BODY_NUM.

WA_PACKING_LIST-DOC_TYPE = 'RAW'.

APPEND WA_PACKING_LIST TO T_PACKING_LIST.

Create attachment notification

WA_PACKING_LIST-TRANSF_BIN = 'X'.

WA_PACKING_LIST-HEAD_START = 1.

WA_PACKING_LIST-HEAD_NUM = 1.

WA_PACKING_LIST-BODY_START = 1.

DESCRIBE TABLE T_ATTACHMENT LINES WA_PACKING_LIST-BODY_NUM.

WA_PACKING_LIST-DOC_TYPE = LD_FORMAT.

WA_PACKING_LIST-OBJ_DESCR = LD_ATTDESCRIPTION.

WA_PACKING_LIST-OBJ_NAME = LD_ATTFILENAME.

WA_PACKING_LIST-DOC_SIZE = WA_PACKING_LIST-BODY_NUM * 255.

APPEND WA_PACKING_LIST TO T_PACKING_LIST.

Add the recipients email address

CLEAR T_RECEIVERS.

REFRESH T_RECEIVERS.

WA_RECEIVERS-RECEIVER = LD_EMAIL.

WA_RECEIVERS-REC_TYPE = 'U'.

WA_RECEIVERS-COM_TYPE = 'INT'.

WA_RECEIVERS-NOTIF_DEL = 'X'.

WA_RECEIVERS-NOTIF_NDEL = 'X'.

APPEND WA_RECEIVERS TO 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_MESS_BOD

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.

Regards,

Vidya.

ashok_kumar24 · ‎2007 May 09

Hi Surajit,

<b>Good ... check out the following solutions

U want send output of script right? After developing the script you need to use 2 FMs,

'CONVERT_OTF' this is for convert the output into PDF

'SO_NEW_DOCUMENT_ATT_SEND_API1' this is for send output to mail.

Just execute SE37 and enter each function module and press 'where used list' then select programs check box then it will display all the programs where those FMs are used. You may get some idea about how to use these FMs.

Hope this helps you, reply for queries,

when u r callin the FM'SO_NEW_DOCUMENT_ATT_SEND_API1'.. points to remember

1.u have to pass the body of content in table CONTENTS_TXT(ia m using I_OBJBIN) (each line a record) then. suppose i ahve appended 11 records to the table CONTENTS_TXT .

2.PACKING_LIST(iam usign I_OBJPACK) table u ahve to append a redord as follows

I_OBJPACK-TRANSF_BIN = ' '.

I_OBJPACK-HEAD_START = 000000000000001.

I_OBJPACK-HEAD_NUM = 000000000000001.

I_OBJPACK-BODY_START = 000000000000002

I_OBJPACK-BODY_NUM = 000000000000010.

I_OBJPACK-DOC_TYPE = 'RAW'.

append I_OBJPACK-.

in the above system treat the first line in table I_OBJBIN as header and the 2nd line to 10 lines tread as body.

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.

I hope it clear lem know any concerns

smartform to MAIL

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

https://wiki.sdn.sap.com/wiki/display/Snippets/SmartformtoMailasPDF+attachment</b>

Good Luck and thanks

AK

Former Member · ‎2007 May 10

hi,

scripts through email:

report zsr_script_pdf

message-id zz.

----

CONSTANTS *

----

constants : c_x(1) type c value 'X', " For constant value

c_otf(3) type c value 'OTF', " For format

c_u(1) type c value 'U'. " Mail Option

----

VARIABLES *

----

data : v_rqident type tsp01-rqident, " For Spool Number

v_rqclient type tsp01-rqclient, " For Client

v_rqo1name type tsp01-rqo1name, " For Object name

v_spool type tsp01-rqident, " For Spool Number

v_spool1 type tsp01-rqident. " For Spool Number

----

FLAGS *

----

data : f_spool type c.

----

INTERNAL TABLES *

----

Internal table for sending mails

data: it_pdf like tline occurs 10 with header line,

it_xi_pdf like tline occurs 0 with header line,

it_html like solisti1 occurs 0 with header line,

it_xi_temp like bapiqcmime occurs 0 with header line,

it_xi_mime(255) type c occurs 0 with header line.

For sending mail

data: it_objpack like sopcklsti1 occurs 2 with header line.

Internal table for Single List with Column Length 255

data : it_objbin like solisti1 occurs 10 with header line.

Internal table for Single List with Column Length 255

data : it_objtxt like solisti1 occurs 10 with header line.

Internal table for Structure of the API Recipient List

data : it_reclist like somlreci1 occurs 5 with header line.

Structure of the API Recipient List

data: x_doc_chng like sodocchgi1.

Internal table for storing the variants

data : begin of it_variant1 occurs 0,

variant like varid-variant,

end of it_variant1.

Internal table to store variants for the programs

data: it_variant2 like it_variant1 occurs 0 with header line.

Internal table for storing the selected values

data it_return type ddshretval occurs 0 with header line.

Internal table for storing the mail-ids

data : begin of it_mailid occurs 0,

kokrs like csks-kokrs,

kostl like csks-kostl,

datbi like csks-datbi,

telx1 like csks-telx1,

end of it_mailid.

Internal table for storing the mail-ids

data : it_mailid1 like it_mailid occurs 0 with header line.

----

SELECTION SCREEN *

----

data : v_char type char50.

selection-screen begin of block b1 with frame title text-001.

select-options: s_email for v_char no intervals

lower case

no-display.

select-options: s_email1 for v_char no intervals

lower case

no-display.

selection-screen end of block b1.

selection-screen begin of block a1 with frame title text-028.

selection-screen begin of line.

parameters : p_c1 as checkbox.

selection-screen comment 3(66) text-026 for field p_c1.

selection-screen end of line.

parameters : p_set like tsp1d-papart matchcode object zh_tsp1d.

selection-screen skip 1.

parameters : p_vara1 type rs38m-selset.

selection-screen end of block a1.

selection-screen begin of block a2 with frame title text-029.

selection-screen begin of line.

parameters : p_c2 as checkbox.

selection-screen comment 3(56) text-027 for field p_c1.

selection-screen end of line.

parameters : p_set1 like tsp1d-papart matchcode object zh_tsp1d.

selection-screen skip 1.

parameters : p_vara2 type rs38m-selset.

selection-screen end of block a2.

----

AT SELECTION SCREEN ON VALUE REQUEST

----

at selection-screen on value-request for p_vara1.

For fetching the variants available for the program

perform fetch_variants.

at selection-screen on value-request for p_vara2.

For fetching the variants available for the program

perform fetch_variants1.

----

AT SELECTION SCREEN

----

at selection-screen.

For Validation

perform validation.

----

START OF SELECTION *

----

start-of-selection.

To get the output data and mail

perform fetch_data.

----

END OF SELECTION *

----

end-of-selection.

if f_spool = c_x.

message e000 with 'Spool Not Generated'(060).

endif.

&----

*& Form fetch_data

&----

To get the output data and mail

----

form fetch_data .

To send the output to spool

perform generate_spool.

endform. " fetch_data

&----

*& Form generate_spool

&----

To send the output to spool

----

form generate_spool .

data: l_params like pri_params,

l_days(1) type n value 2,

l_count(3) type n value 1,

l_valid type c,

l_valid1 type c,

l_params1 like pri_params.

data: l_device type usr01-spld.

*Get the printer name for the user

select single spld into l_device from usr01 where bname = sy-uname.

if l_device is initial.

l_device = 'LOCL'.

endif.

For report-1

if p_c1 = 'X'.

Setting the print parameters

call function 'GET_PRINT_PARAMETERS'

exporting

destination = l_device

copies = l_count

list_name = sy-uname

list_text = 'SUBMIT ... TO SAP-SPOOL'(008)

release = c_x

new_list_id = c_x

expiration = l_days

LINE_SIZE = 255
LINE_COUNT = 65

layout = p_set

sap_cover_page = space

cover_page = space

receiver = 'SAP*'(010)

department = 'System'(011)

no_dialog = c_x

importing

out_parameters = l_params

valid = l_valid.

if l_valid <> space.

clear v_spool.

Fetch the spool number b4 submit

perform fetch_recent_spool using v_spool.

Submitting the program to spool

submit rkaep000 to sap-spool

using selection-set p_vara1

spool parameters l_params

without spool dynpro

and return.

clear v_spool1.

Fetch the spool number after submit

perform fetch_recent_spool using v_spool1.

if v_spool = v_spool1.

f_spool = c_x.

if p_c2 is initial.

stop.

endif.

else.

Checking the format ( ABAP/OTF)

perform format_check tables s_email.

endif.

else.

message e000 with 'Problem in print settings'(003).

stop.

endif.

For Report-2

if p_c2 = 'X'.

Setting the print parameters

call function 'GET_PRINT_PARAMETERS'

exporting

destination = l_device

copies = l_count

list_name = sy-uname

list_text = 'SUBMIT ... TO SAP-SPOOL'(008)

release = c_x

new_list_id = c_x

expiration = l_days

LINE_SIZE = 200
LINE_COUNT = 65

layout = p_set1

sap_cover_page = space

cover_page = space

receiver = 'SAP*'(010)

department = 'System'(011)

no_dialog = c_x

importing

out_parameters = l_params1

valid = l_valid1.

if l_valid1 <> space.

clear v_spool.

Fetch the spool number b4 submit

perform fetch_recent_spool using v_spool.

Submitting the program to spool

submit gp3diehxy88snfj0391v7kf9ek7050 to sap-spool

using selection-set p_vara2

spool parameters l_params1

without spool dynpro

and return.

clear v_spool1.

Fetch the spool number after submit

perform fetch_recent_spool using v_spool1.

if v_spool = v_spool1.

message e000 with 'Spool Not Generated'(060).

stop.

endif.

Checking the format ( ABAP/OTF)

perform format_check tables s_email1.

else.

message e000 with 'Problem in print settings'(003).

stop.

endif.

endform. " generate_spool

&----

*& Form fetch_recent_spool

&----

Fetch the recent spool number generated

----

form fetch_recent_spool using p_v_spool type tsp01-rqident .

data: l_user like tsp01-rq2name.

clear : v_rqident,

v_rqclient,

v_rqo1name.

l_user = sy-uname.

Get latest Spool No

select single rqident

rqclient

rqo1name

into (v_rqident , v_rqclient , v_rqo1name)

from tsp01

where rqcretime = ( select max( rqcretime )

from tsp01

where rq2name eq l_user

and rqfinal eq '.' ).

if sy-subrc = 0 .

p_v_spool = v_rqident.

endif.

endform. " fetch_recent_spool

&----

*& Form format_check

&----

Checking the format ( ABAP/OTF)

----

form format_check tables p_s_email structure s_email.

data : l_objtype like rststype-type.

call function 'RSTS_GET_ATTRIBUTES'

exporting

authority = 'SP01'(019)

client = v_rqclient

name = v_rqo1name

part = 1

importing

objtype = l_objtype

exceptions

fb_error = 1

fb_rsts_other = 2

no_object = 3

no_permission = 4.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

if l_objtype(3) = c_otf.

Convert OTF Spool to PDF

perform convert_otf2pdf tables p_s_email.

else.

Convert ABAP Spool to PDF

perform convert_abap2pdf tables p_s_email.

endif.

endform. " format_check

&----

*& Form convert_otf2pdf

&----

Convert OTF Spool to PDF

----

form convert_otf2pdf tables p_p_s_email structure s_email .

clear it_pdf.

refresh it_pdf.

data : l_bytecount type i.

Fn. to get the PDF format

call function 'CONVERT_OTFSPOOLJOB_2_PDF'

exporting

src_spoolid = v_rqident

no_dialog = 'X'

importing

pdf_bytecount = l_bytecount

tables

pdf = it_pdf

exceptions

err_no_otf_spooljob = 1

err_no_spooljob = 2

err_no_permission = 3

err_conv_not_possible = 4

err_bad_dstdevice = 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.

if sy-subrc = 0.

For page format

perform page_format tables p_p_s_email.

else.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

endform. " convert_otf2pdf

&----

*& Form convert_abap2pdf

&----

Convert ABAP Spool to PDF

----

form convert_abap2pdf tables p_p_s_email structure s_email.

clear it_pdf.

refresh it_pdf.

data : l_bytecount type i.

Fn. to convert to PDF format

call function 'CONVERT_ABAPSPOOLJOB_2_PDF'

exporting

src_spoolid = v_rqident

no_dialog = 'X'

importing

pdf_bytecount = l_bytecount

tables

pdf = it_pdf

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.

if sy-subrc = 0.

For page formatting

perform page_format tables p_p_s_email.

else.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

endform. " convert_abap2pdf

&----

*& Form send_mail

&----

For sending mail

----

form send_mail tables mail structure s_email .

Structures and internal tables for the send data

data: objpack like sopcklsti1 occurs 2 with header line,

objhead like solisti1 occurs 1 with header line,

objbin like solisti1 occurs 0 with header line,

objtxt like solisti1 occurs 10 with header line,

reclist like somlreci1 occurs 5 with header line.

data: doc_chng like sodocchgi1,

tab_lines like sy-tabix.

Data for the status output after sending

data: sent_to_all like sonv-flag.

clear: it_reclist, it_reclist[],

it_objtxt , it_objtxt[],

it_objpack, it_objpack[],

it_objbin , it_objbin[],x_doc_chng.

loop at it_html.

objbin-line = it_html-line.

append objbin.

clear objbin.

endloop.

Create the document which is to be sent

doc_chng-obj_name = 'List'(012).

doc_chng-obj_descr = 'Mail'(013).

Heading

objtxt-line = 'Mail with pdf attachment'(014).

append objtxt.

clear objtxt.

Size

describe table objtxt lines tab_lines.

read table objtxt index tab_lines.

doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).

Fill the fields of the packing_list for the main document:

clear objpack-transf_bin.

The document needs no header (head_num = 0)

objpack-head_start = 1.

objpack-head_num = 0.

Body

objpack-body_start = 1.

objpack-body_num = tab_lines.

objpack-doc_type = 'RAW'(015).

append objpack.

Create the attachment (the list itself)

describe table objbin lines tab_lines.

Fill the fields of the packing_list for the attachment:

objpack-transf_bin = 'X'.

Header

objpack-head_start = 1.

objpack-head_num = 0.

Body

objpack-body_start = 1.

objpack-body_num = tab_lines.

objpack-doc_type = 'PDF'(016).

objpack-obj_name = 'Attachment'(017).

objpack-obj_descr = 'Mail with pdf Attachment'(018).

objpack-doc_size = tab_lines * 255.

append objpack.

*-Fill the mail recipient list

loop at mail.

reclist-receiver = mail-low.

reclist-rec_type = c_u.

append reclist.

clear: reclist,

mail.

endloop.

*-Send the document by calling the SAPoffice API1 module for sending

*-documents with attachments

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = doc_chng

put_in_outbox = c_x

commit_work = c_x

importing

sent_to_all = sent_to_all

tables

packing_list = objpack

object_header = objhead

contents_bin = objbin

contents_txt = objtxt

receivers = reclist

exceptions

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

others = 99.

case sy-subrc .

when 0.

message i000 with 'Mail has been sent successfully'(006).

when others.

message e000 with 'Problem in sending the mail'(023).

endcase.

endform. " send_mail

&----

*& Form page_format

&----

For page foramtting

----

form page_format tables email structure s_email .

data : l_lines type i,

l_temp(500) type c,

l_offset type p,

l_lineslen(2) type p,

l_mimelen(2) type p,

l_tabix like sy-tabix.

clear : it_xi_pdf,

it_xi_temp.

refresh : it_xi_pdf,

it_xi_temp.

it_xi_pdf[] = it_pdf[].

Reformat the line to 255 characters wide (~~code from SAP~~)

clear: l_temp, l_offset, it_xi_temp.

describe table it_xi_pdf lines l_lines.

describe field it_xi_pdf length l_lineslen in character mode.

describe field it_xi_temp length l_mimelen in character mode.

loop at it_xi_pdf.

l_tabix = sy-tabix.

move it_xi_pdf to l_temp+l_offset.

if l_tabix = l_lines.

l_lineslen = strlen( it_xi_pdf ).

endif.

l_offset = l_offset + l_lineslen.

if l_offset ge l_mimelen.

clear it_xi_temp.

it_xi_temp = l_temp(l_mimelen).

append it_xi_temp.

shift l_temp by l_mimelen places.

l_offset = l_offset - l_mimelen.

endif.

if l_tabix = l_lines.

if l_offset gt 0.

clear it_xi_temp.

it_xi_temp = l_temp(l_offset).

append it_xi_temp.

endif.

endloop.

clear : it_xi_mime,

it_xi_mime[].

loop at it_xi_temp.

it_xi_mime(255) = it_xi_temp-line.

append it_xi_mime.

clear it_xi_mime.

endloop.

Final Data

clear : it_html,

it_html[].

it_html[] = it_xi_mime[].

For sending mail

perform send_mail tables email.

endform. " page_format

&----

*& Form fetch_variants

&----

For fetching the variants available for the program

----

form fetch_variants .

data : l_program like rs38m-programm value 'RKAEP000',

l_vara1 type dfies-fieldname value 'P_VARA1'.

clear : it_variant1,

it_variant1[].

Get variants

perform get_variants tables it_variant1

using l_program.

F4 Help

if not it_variant1[] is initial.

perform get_f4_help tables it_variant1

using l_vara1

changing p_vara1.

else.

message e000 with 'No variants available for report1'(054).

endif.

endform. " fetch_variants

&----

*& Form validation

&----

For Validation

----

form validation .

data : l_pro1 like rs38m-programm value 'RKAEP000',

l_pro2 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',

l_c1,

l_c2.

If both check-box are unchecked

if p_c1 is initial

and p_c2 is initial.

message e000 with 'Check any one check-box'(049).

endif.

If checked without varaint

if not p_c1 is initial and p_vara1 is initial.

message e000 with 'Please give any one of the variant for report1'(055).

endif.

If checked without varaint

if not p_c2 is initial and p_vara2 is initial.

message e000 with 'Please give any one of the variant for report2'(061).

endif.

Reading the variant and fetching the mail-ids

if p_c1 = c_x.

l_c1 = '1'.

clear : s_email,

s_email[].

perform read_variants tables it_mailid

s_email

using p_vara1

l_pro1

l_c1.

if s_email[] is initial.

message e000 with 'No Id available for given Cost report1'(066).

else.

sort s_email by low.

delete adjacent duplicates from s_email comparing low.

endif.

Reading the variant and fetching the mail-ids

if p_c2 = c_x.

clear : s_email1,

s_email1[].

l_c2 = '2'.

perform read_variants tables it_mailid1

s_email1

using p_vara2

l_pro2

l_c2.

if s_email1[] is initial.

message e000 with 'No Id available for given Cost report2'(067).

else.

sort s_email1 by low.

delete adjacent duplicates from s_email1 comparing low.

endif.

endform. " validation

&----

*& Form GET_VARIANTS

&----

Fetching Variants

----

form get_variants tables p_it_variant structure it_variant1

using p_v_program type rs38m-programm.

select variant

from varid

into table p_it_variant

where report = p_v_program.

endform. " GET_VARIANTS

&----

*& Form GET_F4_HELP

&----

text

----

form get_f4_help tables p_it_variant1 structure it_variant1

using p_l_vara1 like dfies-fieldname

changing p_p_vara like p_vara1.

Fn. for Pop-Up

call function 'F4IF_INT_TABLE_VALUE_REQUEST'

exporting

retfield = p_l_vara1

value_org = 'S'

display = ' '

tables

value_tab = p_it_variant1

return_tab = it_return

exceptions

parameter_error = 1

no_values_found = 2

others = 3.

if sy-subrc = 0.

p_p_vara = it_return-fieldval.

else.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

endform. " GET_F4_HELP

&----

*& Form FETCH_VARIANTS1

&----

text

----

form fetch_variants1 .

data : v_program1 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',

l_vara2 type dfies-fieldname value 'P_VARA2'.

clear : it_variant2,

it_variant2[].

Get Variants

perform get_variants tables it_variant2

using v_program1.

F4 Help

if not it_variant2[] is initial.

perform get_f4_help tables it_variant2

using l_vara2

changing p_vara2.

else.

message e000 with 'No variants available for report2'(050).

endif.

endform. " FETCH_VARIANTS1

&----

*& Form read_variants

&----

Reading the variant and fetching the mail-ids

----

form read_variants tables p_it_mailid structure it_mailid

p_s_email structure s_email

using p_p_vara1 like p_vara1

p_l_pro1 like rs38m-programm

p_l_c1 type c.

data : l_temp(44),

it_valutab like rsparams occurs 0 with header line.

ranges : r_cocen for csks-kostl.

Function Module to get the variant contents

call function 'RS_VARIANT_CONTENTS'

exporting

report = p_l_pro1

variant = p_p_vara1

tables

valutab = it_valutab

exceptions

variant_non_existent = 1

variant_obsolete = 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.

clear : r_cocen,

r_cocen[].

loop at it_valutab where selname = 'KOSTL'

or selname = '_C-CCTR'.

Getting the range of cost centers

if it_valutab-option = 'BT'.

r_cocen-low = it_valutab-low.

For Conversion Routine

perform conversion using r_cocen-low.

r_cocen-high = it_valutab-high.

For Conversion Routine

perform conversion using r_cocen-high.

r_cocen-option = 'BT'.

r_cocen-sign = 'I'.

append r_cocen.

clear r_cocen.

endif.

Getting the single cost centers

if it_valutab-option = 'EQ'.

r_cocen-low = it_valutab-low.

For Conversion Routine

perform conversion using r_cocen-low.

r_cocen-option = 'EQ'.

r_cocen-sign = 'I'.

append r_cocen.

clear r_cocen.

endif.

endloop.

If no cost centers

if not r_cocen[] is initial.

select kokrs

kostl

datbi

telx1

from csks

into table p_it_mailid

where kostl in r_cocen.

if p_it_mailid[] is initial.

if p_l_c1 = '1'.

message e000 with 'No IDs available for report1'(059).

elseif p_l_c1 = '2'.

message e000 with 'No IDs available for report2'(062).

endif.

Deleting the blank entries

delete p_it_mailid where telx1 = space.

clear l_temp.

read table p_it_mailid index 1.

l_temp = p_it_mailid-telx1.

data : l_check.

loop at p_it_mailid where telx1 <> l_temp.

l_check = c_x.

endloop.

For checking the unique ids

if l_check = c_x.

if p_l_c1 = '1'.

message e000 with 'No unique mail-ids for report1'(058).

elseif p_l_c1 = '2'.

message e000 with 'No unique mail-ids for report2'(065).

endif.

Populating the IDs for the cost centers

loop at p_it_mailid.

set locale language sy-langu.

translate p_it_mailid-telx1 to lower case.

set locale language space .

concatenate p_it_mailid-telx1 '@allergan.com' into l_temp.

p_s_email-low = l_temp.

p_s_email-sign = 'I'.

p_s_email-option = 'EQ'.

append p_s_email.

clear p_s_email.

endloop.

else.

if p_l_c1 = '1'.

message e000 with 'No Cost Center Available for report1'(057).

elseif p_l_c1 = '2'.

message e000 with 'No Cost Center Available for report2'(063).

endif.

endform. " read_variants

&----

*& Form CONVERSION

&----

For Conversion Routine

----

form conversion using p_it_valutab_low type c.

call function 'CONVERSION_EXIT_ALPHA_INPUT'

exporting

input = p_it_valutab_low

importing

output = p_it_valutab_low.

endform. " CONVERSION

REPORT Z_RMTIWARI_SEND_SPOOL_MAIL_ATT .

----

PARAMETERS : P_SPOOL TYPE TSP01-RQIDENT OBLIGATORY .

PARAMETERS : P_MAIL TYPE char100 OBLIGATORY .

----

TYPES : TY_LINE type string.

DATA: IT_ATTACHMENT TYPE soli OCCURS 0 WITH HEADER LINE.

DATA: IT_ATTACHMENT_LONG TYPE TY_LINE OCCURS 0 WITH HEADER LINE.

DATA: LV_PDF_SIZE type i.

DATA: LT_PDF type standard table of tline with header line.

----

PERFORM SEND_EMAIL USING P_SPOOL P_MAIL.

----

FORM send_email

----

--> X_SPOOL_ID
--> X_EMAIL

----

FORM send_email USING X_SPOOL_ID X_EMAIL.

DATA: LT_OBJPACK LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,

LT_OBJHEAD LIKE solisti1 OCCURS 1 WITH HEADER LINE,

LT_OBJBIN LIKE solisti1 OCCURS 10 WITH HEADER LINE,

LT_OBJTXT LIKE solisti1 OCCURS 10 WITH HEADER LINE,

LT_RECLIST LIKE somlreci1 OCCURS 5 WITH HEADER LINE,

LV_DOCUMENT_DATA TYPE sodocchgi1.

DATA: L_ATT_LINES TYPE i.

DATA : LV_SPOOL_DESC(68) type c.

CHECK NOT ( X_EMAIL IS INITIAL ).

CLEAR: LT_RECLIST, LT_RECLIST[],

LT_OBJHEAD, LT_OBJHEAD[],

LT_OBJTXT, LT_OBJTXT[],

LT_OBJBIN, LT_OBJBIN[],

LT_OBJPACK, LT_OBJPACK[].

CLEAR LV_DOCUMENT_DATA.

Read spool and get the pdf internal table and name of spool

PERFORM READ_SPOOL USING X_SPOOL_ID LV_SPOOL_DESC.

CHECK NOT ( LT_PDF[] IS INITIAL ).

Convert pdf itab to 255 line itab.

data :LV_COUNTER type i.

data :LV_FROM type i.

loop at LT_PDF.

translate LT_PDF using ' ~' .

concatenate IT_ATTACHMENT_LONG LT_PDF into it_attachment_long.

endloop.

translate IT_ATTACHMENT_LONG using '~ ' .

append IT_ATTACHMENT_LONG.

clear : LV_COUNTER.

DO.

LV_COUNTER = strlen( IT_ATTACHMENT_LONG ).

if LV_COUNTER ge 255.

IT_ATTACHMENT = IT_ATTACHMENT_LONG(255).

append IT_ATTACHMENT.

SHIFT IT_ATTACHMENT_LONG by 255 places.

else.

IT_ATTACHMENT = IT_ATTACHMENT_LONG(lv_counter).

append IT_ATTACHMENT.

exit.

endif.

ENDDO.

Body of email

MOVE 'Email sent to you from SAP' TO LT_OBJTXT.

APPEND LT_OBJTXT.

LV_DOCUMENT_DATA-obj_name = 'SpoolMail'.

Title of the email as spool name

LV_DOCUMENT_DATA-obj_descr = LV_SPOOL_DESC.

LV_DOCUMENT_DATA-sensitivty = 'O'.

LV_DOCUMENT_DATA-expiry_dat = SY-datum + 15.

LV_DOCUMENT_DATA-doc_size = STRLEN( LT_OBJTXT ).

e-mail body

CLEAR LT_OBJPACK.

LT_OBJPACK-head_start = 1.

LT_OBJPACK-head_num = 0.

LT_OBJPACK-body_start = 1.

LT_OBJPACK-body_num = 1.

LT_OBJPACK-doc_type = 'RAW'.

LT_OBJPACK-doc_size = STRLEN( LT_OBJTXT ).

APPEND LT_OBJPACK.

For e-mail attachment

DESCRIBE TABLE IT_ATTACHMENT LINES L_ATT_LINES.

READ TABLE IT_ATTACHMENT INDEX L_ATT_LINES.

CLEAR LT_OBJPACK.

LT_OBJPACK-transf_bin = 'X'.

LT_OBJPACK-head_start = 1.

LT_OBJPACK-head_num = 1.

LT_OBJPACK-body_start = 1.

LT_OBJPACK-body_num = L_ATT_LINES.

LT_OBJPACK-doc_type = 'PDF'.

LT_OBJPACK-obj_name = 'email'.

LT_OBJPACK-obj_descr = LV_SPOOL_DESC.

LT_OBJPACK-doc_size = ( 255 * ( L_ATT_LINES - 1 ) ) + STRLEN( IT_ATTACHMENT-line ).

APPEND LT_OBJPACK.

make recipient list

LT_RECLIST-receiver = X_EMAIL.

LT_RECLIST-rec_type = 'B'. "To external email id

APPEND LT_RECLIST.

send mail with attachment

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = LV_DOCUMENT_DATA

put_in_outbox = 'X'

TABLES

packing_list = LT_OBJPACK

object_header = LT_OBJHEAD

contents_bin = IT_ATTACHMENT

contents_txt = LT_OBJTXT

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

write:/ 'Message sent'.

else.

write:/ 'Error encountered'.

endif.

ENDFORM. " send_email

&----

*& Form read_spool

&----

FORM read_spool USING X_SPOOL_ID Y_SPOOL_DESC.

DATA : LV_SPOOL_TYPE TYPE TSP01-RQDOCTYPE.

SELECT SINGLE RQDOCTYPE RQTITLE

INTO (lv_spool_type, y_spool_desc)

FROM TSP01

WHERE RQIDENT eq X_SPOOL_ID.

IF Y_SPOOL_DESC IS INITIAL.
concatenate 'Spool-' X_SPOOL_ID into Y_SPOOL_DESC.
ENDIF.

IF LV_SPOOL_TYPE eq 'LIST'. " If spool is a list

CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

SRC_SPOOLID = X_SPOOL_ID

NO_DIALOG =
DST_DEVICE =
PDF_DESTINATION =

IMPORTING

PDF_BYTECOUNT = LV_PDF_SIZE

PDF_SPOOLID =
LIST_PAGECOUNT =
BTC_JOBNAME =
BTC_JOBCOUNT =

TABLES

PDF = LT_PDF

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.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ELSE. " If spool is OTF

CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'

EXPORTING

SRC_SPOOLID = X_SPOOL_ID

NO_DIALOG =
DST_DEVICE =
PDF_DESTINATION =

IMPORTING

PDF_BYTECOUNT = LV_PDF_SIZE

PDF_SPOOLID =
OTF_PAGECOUNT =
BTC_JOBNAME =
BTC_JOBCOUNT =

TABLES

PDF = LT_PDF

EXCEPTIONS

ERR_NO_OTF_SPOOLJOB = 1

ERR_NO_SPOOLJOB = 2

ERR_NO_PERMISSION = 3

ERR_CONV_NOT_POSSIBLE = 4

ERR_BAD_DSTDEVICE = 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.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " read_spool

http://www.sap-img.com/abap/sending-fax-from-abap.htm

http://www.sap-img.com/abap/sending-email-with-attachment.htm

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

SAPScript EMAIL Body Text