Mail program doubt

Former Member — Mon, 21 Apr 2008 15:13:03 GMT

i have used this program for sending mail through SAP.It has two options.First for sending as an html attachement,second for plain text inline with the body of the message.Actually i need the message in html format inline with the body of the message itself(not as an attachement)

In simple words the body of the message want to be in html format,not an attachement..

&----

*& Report ZMAIL *

*& *

&----

*& *

&----

report zmail .

tables: soos1.

*type-pools: sbdst.

parameters: report like varis-report obligatory.

parameters: variant like varis-variant obligatory.

parameters:reptitle like soos1-recrem obligatory.

select-options: recnam for soos1-recrem obligatory.

*{ INSERT EDPK900415 1

selection-screen skip 1.

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

selection-screen begin of line.

parameters: r1 radiobutton group g1.

selection-screen comment:5(40) text-003 for field r1.

selection-screen position 35.

selection-screen end of line.

selection-screen begin of line.

parameters: r2 radiobutton group g1.

selection-screen comment: 5(40) text-002 for field r2.

selection-screen end of line.

selection-screen end of block b1.

*} INSERT

data: begin of html_tab occurs 0.

include structure w3html.

data: end of html_tab.

data : it_pack_list like soxpl occurs 0 with header line.

data: begin of html_tab_converted occurs 0,

line(255) type c,

end of html_tab_converted.

data: listobject like abaplist occurs 20 with header line.

data: abap_list like abaplist occurs 20 with header line.

data: icontab(32) occurs 10 with header line.

data: lineno type i, length type i, size type i,

l_filename like rlgrap-filename.

data: icon_wa type icon,

internal type icon-internal,

existing type c.

data: my_bds type ref to cl_bds_document_set,

key type sbdst_object_key,

files type sbdst_files,

wa type bapifiles.

data: filename type string,

filefilter type string,

path type string,

fullpath type string.

data: user_action type i.

data: cur_guicopdepage(4) type c.

data: gui_codepage(4) type n, " added for message 500824

is_unicode type rststype-sel_ok.

data: convert_output type xstring,

convert_buffer type xstring.

data i type i.

data tablength type i.

data dummy type i.

data list_index like sy-lsind .

data begin of new_pack_list occurs 10.

include structure soxpl.

data end of new_pack_list.

data : owner like soud-usrnam.

data: fg_sysdli like sonv-flag,

fg_folrg like soxdl-folrg,

dli_tab_save like soxdl occurs 20 with header line.

data: rec_count like sy-tabix.

data: object_type like sood-objtp value 'RAW'.

data: object_hd_change like sood1 occurs 0 with header line.

data: objcont like soli occurs 0 with header line.

data: attcont_tab like soli occurs 0 with header line.

data: atthead_tab like soli occurs 0 with header line.

data so_ali like soli occurs 100 with header line.

data document_data like sodocchgi1.

data msg_text(80) type c. "Message text

data: length type i, size type i.

data profile like soprd.

data subrc like sy-subrc value 0.

data so_ali_hex type standard table of solix. "note 604603

data: objpara like selc occurs 0 with header line.

data: objparb like soop1 occurs 0 with header line.

data: receivers like soos1 occurs 0 with header line.

*data: receivers like soos5 occurs 0 with header line.

data: r_dliq type c. "Shared Distrbution List

data: r_dlip type c. "Private Distrbution list

data: rep_title(50) type c. "Report Title

data : begin of dis_lst occurs 10. "Internal table to store DL

include structure sodm1.

data : end of dis_lst.

data : begin of listtab occurs 100. "Internal Table for List CONTAINER

include structure abaplist.

data : end of listtab.

data : begin of downtab occurs 1,

line(255),

end of downtab.

data ls_cnt type n.

data:begin of it_mailid occurs 0,

mailid(100), " TYPE ZSENDINT_MAILID-MAILID,

end of it_mailid.

data c1.

c1 = ' '.

shift reptitle left deleting leading c1.

*SELECT MAILID FROM ZSENDINT_MAILID INTO TABLE IT_MAILID WHERE SUBJECT = REPTITLE AND FLAG <> 'X'.

"IF SY-SUBRC = 0.

"CLEAR RECNAM.

"REFRESH RECNAM.

"LOOP AT IT_MAILID.

"MOVE 'I' TO RECNAM-SIGN.

"MOVE 'EQ' TO RECNAM-OPTION.

"MOVE IT_MAILID-MAILID TO RECNAM-LOW.

"APPEND RECNAM.

"ENDLOOP.

"ENDIF.

*S.KARTHIKRAJA 07.10.2006

call function 'LIST_FREE_MEMORY'

tables

listobject = listobject

exceptions

others = 1.

submit (report)

using selection-set variant

exporting list to memory and return.

import listobject from memory id '%_LIST'.

if listobject[] is initial.

exit.

endif.

call function 'WWW_HTML_FROM_LISTOBJECT'

exporting

REPORT_NAME =

template_name = 'WEBREPORTING_REPORT'

tables

html = html_tab

listobject = listobject

listicons = icontab.

call function 'LIST_TO_ASCI'

exporting

list_index = -1

tables

listasci = downtab

listobject = listobject

exceptions

empty_list = 1

list_index_invalid = 2

others = 3.

call function 'TABLE_COMPRESS' "Schneller Tabellencopy

tables

in = listobject

out = so_ali. "note 604603

out = so_ali_hex. "note 604603

call function 'SO_SOLIXTAB_TO_SOLITAB' "note 604603

exporting

ip_solixtab = so_ali_hex[]

importing

ep_solitab = so_ali[].

call function 'SO_DLI_LIST_READ_XDL'

exporting

private = 'X'

public = 'X'

subscript = 'X'

tables

dli_display_tab = dli_tab_save

exceptions

communication_failure = 1

dl_list_no_entries = 2

owner_not_exist = 3

system_failure = 4

x_error = 5

parameter_error = 6

others = 7.

call function 'SO_DLI_EXPAND'

exporting

system_dli = fg_sysdli

convert = 'X'

tables

member = dis_lst

objpara = objpara

objparb = objparb

exceptions

active_user_not_exist = 1

communication_failure = 2

component_not_available = 3

dl_name_not_exist = 4

folder_not_exist = 5

folder_no_authorization = 6

forwarder_not_exist = 7

object_not_exist = 8

object_no_authorization = 9

operation_no_authorization = 10

owner_not_exist = 11

parameter_error = 12

recurrency_exist = 13

substitute_not_active = 14

substitute_not_defined = 15

system_failure = 16

x_error = 17

others = 18.

refresh receivers.

clear receivers.

move sy-datum to receivers-rcdat .

move sy-uzeit to receivers-rctim.

refresh object_hd_change.

object_hd_change-objla = sy-langu. "Language

object_hd_change-objcp = ' '. " Object can be changed byUSER

object_hd_change-objsns = 'F'. " Msg Sensitivity private orbusiness

object_hd_change-objdes = reptitle.

object_hd_change-objnam = object_hd_change-objdes.

append object_hd_change.

if r1 = 'X'.

move html_tab[] to objcont[].

else.

move downtab[] to objcont[].

endif.

describe table objcont lines i.

it_pack_list-head_start = 1.

it_pack_list-head_num = 0.

it_pack_list-body_start = 1.

it_pack_list-body_num = i.

it_pack_list-OBJTP = 'RAW'.

move variant to it_pack_list-objnam.

move variant to it_pack_list-objdes.

move 'HTM' to it_pack_list-file_ext.

append it_pack_list.

loop at html_tab.

call function 'SCP_TRANSLATE_CHARS'

exporting

inbuff = html_tab

outcode = gui_codepage

csubst = 'X'

substc_space = 'X'

substc = '00035'

importing

outbuff = convert_output

exceptions

invalid_codepage = 1

internal_error = 2

cannot_convert = 3

fields_bad_type = 4

others = 5.

concatenate convert_buffer convert_output into convert_buffer in

byte mode.

endloop.

i = 0.

describe field html_tab_converted length tablength in byte mode.

while i < xstrlen( convert_buffer ).

dummy = xstrlen( convert_buffer ) - i.

if tablength > dummy.

html_tab_converted-line = convert_buffer+i(dummy).

else.

html_tab_converted-line = convert_buffer+i(tablength).

endif.

i = i + tablength.

append html_tab_converted.

endwhile.

receivers-sel = 'X'.

receivers-sndex = ' '. "

receivers-sndpri = '1'. "Priority of the message

receivers-deliver = ' '.

receivers-not_deli = ' '.

receivers-read = ' '.

receivers-recnam = 'U-'.

receivers-mailstatus = 'E'.

receivers-sortclass = '5'.

receivers-recesc = 'U'. " U means Internet Address

receivers-SAP_BODY = 'X'.

receivers-sndart = 'INT'.

loop at recnam.

receivers-adr_name = recnam-low.

receivers-recextnam = recnam-low.

append receivers.

endloop.

owner = sy-uname.

if r1 = 'X'.

call function 'SO_OBJECT_SEND'

exporting

object_hd_change = object_hd_change

object_type = object_type

outbox_flag = 'X'

owner = owner

sender = sy-uname

tables

receivers = receivers

packing_list = it_pack_list

att_cont = objcont

att_head = atthead_tab

exceptions

active_user_not_exist = 1

communication_failure = 2

component_not_available = 3

folder_not_exist = 4

folder_no_authorization = 5

forwarder_not_exist = 6

note_not_exist = 7

object_not_exist = 8

object_not_sent = 9

object_no_authorization = 10

object_type_not_exist = 11

operation_no_authorization = 12

owner_not_exist = 13

parameter_error = 14

substitute_not_active = 15

substitute_not_defined = 16

system_failure = 17

too_much_receivers = 18

user_not_exist = 19

x_error = 20

others = 21.

else.

call function 'SO_OBJECT_SEND'

exporting

object_hd_change = object_hd_change

object_type = object_type

outbox_flag = 'X'

owner = owner

sender = sy-uname

tables

objcont = objcont

receivers = receivers

exceptions

active_user_not_exist = 1

communication_failure = 2

component_not_available = 3

folder_not_exist = 4

folder_no_authorization = 5

forwarder_not_exist = 6

note_not_exist = 7

object_not_exist = 8

object_not_sent = 9

object_no_authorization = 10

object_type_not_exist = 11

operation_no_authorization = 12

owner_not_exist = 13

parameter_error = 14

substitute_not_active = 15

substitute_not_defined = 16

system_failure = 17

too_much_receivers = 18

user_not_exist = 19

x_error = 20

others = 21.

endif.

commit work.

call function 'SO_DEQUEUE_UPDATE_LOCKS'.

topic Mail program doubt in Application Development and Automation Discussions

Mail program doubt

Re: Mail program doubt