Alignment while sending mail as XLS attachment

[Former Member]

Hi All,

i am sending internal table as attachment using SO_DOCUMENT_SEND_API1,

but in the attachment alignment of first column is not appearing properly.

Only first row first column is left aligned, where as for remaining rows it's either centre aligned or right aligned, kindly let me know if any one has over come such a problem.

SOrg

SG01

SG01

SG01

SG01

Thanks and Regards,

Raghavendra

[Former Member]

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

[Former Member]

Check these links...

Regards,

Pavan