Re: Alignment while sending mail as XLS attachment

Former Member — Fri, 10 Aug 2007 10:12:47 GMT

Check your code properly.... there might be some problem in the code....

This code works properly..........

&----

*& Report ZTESTMAIL *

*& *

&----

*& *

&----

REPORT ZMATURITY .

tables: bseg.

parameters: p_email type somlreci1-receiver default

'@yahoo.com'.

parameters: p_email1 type somlreci1-receiver default

'@yahoo.com'.

data: it_message type standard table of solisti1 initial size 0

with header line.

data: it_message1 type standard table of solisti1 initial size 0

with header line.

data: it_attach type standard table of solisti1 initial size 0

with header line.

data: text(150).

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,

gd_error type sy-subrc,

gd_reciever type sy-subrc.

start-of-selection.

data: lv_date type sy-datum.

data: lv_date1 type sy-datum.

data: lv_formatdate(10) type c.

data: lv_formatdate1(10) type c.

data: var1(4) type c,

var2(2) type c,

var3(2) type c.

data: begin of int_bseg occurs 0,

BELNR LIKE BSEG-BELNR,

ZUONR LIKE BSEG-ZUONR,

GJAHR LIKE BSEG-GJAHR,

end of int_bseg.

data: begin of int_bkpf occurs 0,

BELNR LIKE BKPF-BELNR,

BUKRS LIKE BKPF-BUKRS,

GJAHR LIKE BKPF-GJAHR,

BUDAT LIKE BKPF-BUDAT,

end of int_BKPF.

data: 2days_out type sy-datum.

2days_out = sy-datum + 2.

lv_date = 2days_out.

var1 = lv_date+(4).

var2 = lv_date+4(2).

var3 = lv_date+6(2).

concatenate var3 var2 var1 into lv_formatdate separated by '.'.

data: var4(4) type c,

var5(2) type c,

var6(2) type c.

select zuonr belnr bukrs GJAHR from bseg into

corresponding fields of table int_bseg

where bukrs = 'COMPANY CODE' and

ZUONR = lv_formatdate.

loop at int_bseg.

*it_message = int_bseg-belnr.

*ENDLOOP.

*endselect.

select BUDAT BUKRS BELNR GJAHR from BKPF into

corresponding fields of table int_BKPF

where bukrs = 'COMPANY CODE'.<-- YOUR COMPANY CODE

*and GJAHR = INT_BSEG-GJAHR.

append int_BKPF.

*lv_date1 = int_bkpf-budat.

var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).

*concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.

*endselect.

perform populate_email_message_body.

Send file by email as .xls speadsheet

perform send_file_as_email_attachment

tables it_message

it_attach

using p_email

'Assignment Date after 2 days'

'XLS'

'filename'

' '

changing gd_error

gd_reciever.

Instructs mail send program for SAPCONNECT to send email(rsconn01)

perform initiate_mail_execute_program.

*endif.

end-of-selection.

*&----

*& Form SEND_FILE_AS_EMAIL_ATTACHMENT

*&----

Send email

*----

form send_file_as_email_attachment tables pit_message

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

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[] = pit_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.

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

object_header = t_object_header

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. "send_file_as_email_attachment

*&----

*& Form INITIATE_MAIL_EXECUTE_PROGRAM

*&----

Instructs mail send program for SAPCONNECT to send email.

*----

form initiate_mail_execute_program.

wait up to 2 seconds.

if gd_error eq 0.

submit rsconn01 with mode = 'INT'

with output = 'X'

and return.

endif.

endform. " INITIATE_MAIL_EXECUTE_PROGRAM

*&----

*& Form POPULATE_EMAIL_MESSAGE_BODY

*&----

Populate message body text

*----

form populate_email_message_body.

refresh it_message.

refresh it_message1.

if int_bseg-belnr = int_bkpf-belnr.

loop at int_BSEG.

read table int_bKPF WITH KEY BELNR = INT_BSEG-BELNR

GJAHR = INT_BSEG-GJAHR.

lv_date1 = int_bkpf-budat.

var4 = lv_date1+(4).

var5 = lv_date1+4(2).

var6 = lv_date1+6(2).

concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.

it_message = int_bseg-belnr.

it_message1 = lv_formatdate1.

it_message = 'Assignment Date is coming After 2 Days'.

concatenate 'Doc. No : 'it_message

'Posting Date : ' it_message1

'Assignment Date is coming After 2Days' into

it_message separated by space.

append it_message.

append it_message1.

clear it_message.

clear it_message1.

endloop.

*endif.

endform. " POPULATE_EMAIL_MESSAGE_BODY

Regards,

Pavan

topic Alignment while sending mail as XLS attachment in Application Development and Automation Discussions

Alignment while sending mail as XLS attachment

Re: Alignment while sending mail as XLS attachment

Re: Alignment while sending mail as XLS attachment