Problem when sending mails with excel attached

[Former Member]

Hi

I'm tryin to send mails via SAPOffice with attached excel documents. I'm using FM SO_NEW_DOCUMENT_ATT_SEND_API1. I have a problem with the code. Here I post it:

DATA: ti_objbin LIKE solisti1 OCCURS 150 WITH HEADER LINE,

ti_objhex LIKE solix OCCURS 150 WITH HEADER LINE.

DATA: BEGIN OF i_excel,

sobid(8) TYPE c,

tab1 TYPE X VALUE 09, "tab code

name(80) TYPE c,

tab2 TYPE X VALUE 09, "tab code

city(40) TYPE c,

tab3 TYPE X VALUE 09, "tab code

kostl(10) TYPE c,

tab4 TYPE X VALUE 09, "tab code

ktext(20) TYPE c,

tab5 TYPE X VALUE 09, "tab code

fasig(10) TYPE c,

tab6 TYPE X VALUE 09, "tab code

ruta(255) TYPE c,

fin TYPE X VALUE 13, "carriage return

END OF i_excel.

i_excel-sobid = wa_datos-sobid.

i_excel-name = wa_datos-name.

i_excel-city = wa_datos-city.

i_excel-kostl = wa_datos-kostl.

i_excel-ktext = wa_datos-ktext.

i_excel-fasig = wa_datos-fasig.

i_excel-ruta = wa_datos-ruta.

WRITE i_excel TO ti_objbin-line.

APPEND ti_objbin.

CLEAR ti_objbin.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = docdata

put_in_outbox = 'X'

TABLES

packing_list = ti_objpack

object_header = ti_objhead

contents_bin = ti_objbin

contents_txt = ti_objtxt

* contents_hex = ti_objhex

receivers = ti_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 have used this code before, in 4.6C release and it works fine, but now I'm on ECC5.0 and when i check the code, the next error message is generated: ""I_EXCEL" cannot be converted to a character-type field." If i try using MOVE i_excel TO i_objbin-line instead of WRITE, the error message changes to: ""TI_OBJBIN-LINE" and "I_EXCEL" are not mutually convertible in a Unicode program. program.". I have tried using ti_objhex table instead of ti_objbin in order to use 'context_hex' parameter (instead of 'context_bin') on FM, but i get the same result.

I've been searching any other FM to do this, and i've found more FM of SOI1 function group but i didn´t get the expected result. So i need to send the message with the excel attached, using this FM or any other, but I need some help. Anyone can help me?

Thanks and Regards

[Former Member]

Hi Daniel,

I guess you need to mention ti_objpack-doc_type - 'CSV' or 'XLS'.

Reward points if usefull. Thanks!...

Regards,

Ramkumar.K

[Former Member]

Hi Ramkumar!

Sorry, i forgot to write this part of code, i'm using ti_objpack-doc_type = 'XLS'.

More code for more information:

* Write Packing List (Main)

CLEAR ti_objpack.

REFRESH ti_objpack.

DESCRIBE TABLE ti_objtxt LINES v_tab_lineas.

READ TABLE ti_objtxt INDEX v_tab_lineas.

+docdata-doc_size = ( v_tab_lineas - 1 ) * 255 + STRLEN( ti_objtxt ).+

CLEAR ti_objpack-transf_bin.

ti_objpack-head_start = 1.

ti_objpack-head_num = 0.

ti_objpack-body_start = 1.

ti_objpack-body_num = v_tab_lineas.

ti_objpack-doc_type = 'RAW'.

APPEND ti_objpack.

* Write Packing List (Attachment)

CLEAR ti_objbin.

DESCRIBE TABLE ti_objbin LINES v_tab_lineas.

READ TABLE ti_objbin INDEX v_tab_lineas.

+ti_objpack-doc_size = ( v_tab_lineas - 1 ) * 255 ++

STRLEN( ti_objbin ).

ti_objpack-transf_bin = 'X'.

ti_objpack-head_start = 1.

ti_objpack-head_num = 1. "0

ti_objpack-body_start = 1.

ti_objpack-body_num = v_tab_lineas.

ti_objpack-doc_type = 'XLS'.

ti_objpack-obj_name = 'REPORTE'.

ti_objpack-obj_descr = wa_datos-sobid.

APPEND ti_objpack.

Thanks and regards

[Former Member]

Hi

I have fixed my problem using :

CONSTANTS: c_tab VALUE cl_abap_char_utilities=>horizontal_tab, "tab code

c_new VALUE cl_abap_char_utilities=>newline. "new line

DATA: BEGIN OF i_excel,

sobid(8) TYPE c,

tab1 VALUE c_tab,

name(80) TYPE c,

tab2 VALUE c_tab,

city(40) TYPE c,

tab3 VALUE c_tab,

kostl(10) TYPE c,

tab4 VALUE c_tab,

ktext(20) TYPE c,

tab5 VALUE c_tab,

fasig(10) TYPE c,

tab6 VALUE c_tab,

ruta(50) TYPE c,

fin VALUE c_new,

END OF i_excel.

But now i have another problem. The mail is sent to SBWP inbox with an excel file attached, but when I open the file, every data is on the first cell (data is separated by tabs, but Excel doesn't traslate that as a new cell). Any idea? How can i made for fixed that problem?

Thanks and regards

[Former Member]

hi this is a simple example to send the excel sheet as a mail

TABLES: ekko.

PARAMETERS: p_email TYPE somlreci1-receiver .

TYPES: BEGIN OF t_ekpo,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

END OF t_ekpo.

DATA: it_ekpo TYPE STANDARD TABLE OF t_ekpo INITIAL SIZE 0,

wa_ekpo TYPE t_ekpo.

TYPES: BEGIN OF t_charekpo,

ebeln(10) TYPE c,

ebelp(5) TYPE c,

aedat(8) TYPE c,

matnr(18) TYPE c,

END OF t_charekpo.

DATA: wa_charekpo TYPE t_charekpo.

DATA: it_message 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: 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

START-OF-SELECTION.

• Retrieve sample data from table ekpo

PERFORM data_retrieval.

• Populate table with detaisl to be entered into .xls file

PERFORM build_xls_data_table.

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

*END-OF-SELECTION

END-OF-SELECTION.

• Populate message body text

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

'Example .xls documnet attachment'

'XLS'

'filename'

' '

' '

' '

changing gd_error

gd_reciever.

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

PERFORM initiate_mail_execute_program.

&----

---

*& Form DATA_RETRIEVAL

&----

---

• Retrieve data form EKPO table and populate itab it_ekko

----

---

FORM data_retrieval.

SELECT ebeln ebelp aedat matnr

UP TO 10 ROWS

FROM ekpo

INTO TABLE it_ekpo.

ENDFORM. " DATA_RETRIEVAL

&----

---

*& Form BUILD_XLS_DATA_TABLE

&----

---

• Build data table for .xls document

----

---

FORM build_xls_data_table.

data: ld_store(50) type c. "Leading zeros

CONSTANTS: con_cret(5) TYPE c VALUE '0D', "OK for non Unicode

con_tab(5) TYPE c VALUE '09'. "OK for non Unicode

*If you have Unicode check active in program attributes thnen you will

*need to declare constants as follows

*class cl_abap_char_utilities definition load.

*constants:

• con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,

• con_cret type c value cl_abap_char_utilities=>CR_LF.

CONCATENATE 'EBELN' 'EBELP' 'AEDAT' 'MATNR' INTO it_attach SEPARATED BY con_tab.

CONCATENATE con_cret it_attach INTO it_attach.

APPEND it_attach.

LOOP AT it_ekpo INTO wa_charekpo.

*Modification to retain leading zeros

• inserts code for excell REPLACE command into ld_store

• =REPLACE("00100",1,5,"00100")

concatenate '=REPLACE("' wa_charekpo-ebelp '",1,5,"'

wa_charekpo-ebelp '")' into ld_store .

• concatenate ld_store into .xls file instead of actual value(ebelp)

CONCATENATE wa_charekpo-ebeln ld_store wa_charekpo-aedat wa_charekpo-matnr INTO it_attach SEPARATED BY con_tab.

CONCATENATE con_cret it_attach INTO it_attach.

APPEND it_attach.

ENDLOOP.

ENDFORM. " BUILD_XLS_DATA_TABLE

&----

---

*& 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.

• Create attachment notification

t_packing_list-transf_bin = 'X'.

t_packing_list-head_start = 1.

t_packing_list-head_num = 1.

t_packing_list-body_start = 1.

DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.

t_packing_list-doc_type = ld_format.

t_packing_list-obj_descr = ld_attdescription.

t_packing_list-obj_name = ld_attfilename.

t_packing_list-doc_size = t_packing_list-body_num * 255.

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

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.

&----

---

*& Form INITIATE_MAIL_EXECUTE_PROGRAM

&----

---

• Instructs mail send program for SAPCONNECT to send email.

----

---

FORM initiate_mail_execute_program.

WAIT UP TO 2 SECONDS.

SUBMIT rsconn01 WITH mode = 'INT'

WITH output = 'X'

AND RETURN.

ENDFORM. " INITIATE_MAIL_EXECUTE_PROGRAM

&----

---

*& Form POPULATE_EMAIL_MESSAGE_BODY

&----

---

• Populate message body text

----

---

form populate_email_message_body.

REFRESH it_message.

it_message = 'Please find attached a list test ekpo records'.

APPEND it_message.

endform. " POPULATE_EMAIL_MESSAGE_BODY

regards,

venkat.