topic Re: problem about sending email in Application Development and Automation Discussions

problem about sending email

Former Member — Thu, 12 Jul 2007 02:26:41 GMT

i am having internal table contains values.

i want that output should be send as an email attachment

to email id given in selection screen.

but chinese can't diaplay rightly in attachment .

the code is this:

data: begin of TAB,

X(1) type x value '09',

end of tab,

C(10) type c.

class cl_abap_char_utilities definition load.

c+5(1) = cl_abap_char_utilities=>horizontal_tab.

&----

*& Form SEND_EMAIL

&----

text

----

--> p1 text
<-- p2 text

----

FORM SEND_EMAIL.

READ TABLE TA_YP043D INDEX 1.

IF SY-SUBRC = 0 .

Retrieve sample data from table ekpo
PERFORM DATA_RETRIEVAL.

Populate table with detaisl to be entered into .htm file

PERFORM BUILD_XLS_DATA_TABLE.

Populate message body text

PERFORM POPULATE_EMAIL_MESSAGE_BODY.

Send file by email attached as .htm file

PERFORM SEND_FILE_AS_EMAIL_ATTACHMENT

TABLES it_message

it_attach

USING p_email

'条码系统出库有问题的条码'

'HTML'

'WC_Document'

' '

CHANGING gd_error

gd_reciever.

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

PERFORM INITIATE_MAIL_EXECUTE_PROGRAM.

ENDIF.

ENDFORM. " SEND_EMAIL

&----

*& Form BUILD_XLS_DATA_TABLE

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_XLS_DATA_TABLE .

CONCATENATE '<' 'HTML' '>' INTO it_attach .

APPEND it_attach.

CONCATENATE '<' 'HEAD' '>' INTO it_attach .

APPEND it_attach.

CONCATENATE

'<meta http-equiv=Content-Type content=' '"' 'text/html; charset= GB2312

''"' '>' INTO it_attach.

APPEND it_attach.

CONCATENATE '<' '/HEAD' '>' INTO it_attach .

APPEND it_attach.

CONCATENATE ' 批次：' pa_zbat

'' INTO it_attach SEPARATED BY

CL_ABAP_CHAR_UTILITIES=>horizontal_tab.

APPEND it_attach.

CONCATENATE ' 日期：' sy-datum

'' INTO it_attach SEPARATED BY

CL_ABAP_CHAR_UTILITIES=>horizontal_tab.

APPEND it_attach.

CONCATENATE '' '硫化未上传的条码有： '

'' INTO it_attach SEPARATED BY

CL_ABAP_CHAR_UTILITIES=>horizontal_tab.

APPEND it_attach.

*CONCATENATE '' ' ' ' ' INTO

*it_attach.

*APPEND it_attach.

LOOP AT TA_YP043D .

*CONCATENATE '< style=''font-size:12.0pt''> ' TAB-ZBARCD ''

CONCATENATE ' ' TA_YP043D-ZBARCD ' ' INTO

it_attach .

APPEND it_attach.

ENDLOOP.

ENDFORM. " BUILD_XLS_DATA_TABLE

&----

*& Form POPULATE_EMAIL_MESSAGE_BODY

&----

text

----

--> p1 text
<-- p2 text

----

FORM POPULATE_EMAIL_MESSAGE_BODY .

DATA: TP_TEST0(255) TYPE C,

TP_TEST3(255) TYPE C,

TP_TEST(255) TYPE C.

TP_TEST = '当轮胎进行X光机数据上传时,有些条码在硫化阶段不存在资料'.

TP_TEST0 = '请您查看并尽快解决.'.

CONCATENATE TP_TEST TP_TEST0 INTO TP_TEST3 SEPARATED BY ' , '.

APPEND '尊敬的先生/女士,' TO it_message.

APPEND ' ' TO it_message.

APPEND TP_TEST3 TO it_message.

APPEND '具体问题请查看附件.' TO it_message.

APPEND ' ' TO it_message.

APPEND '谢谢.' TO it_message.

APPEND ' ' TO it_message.

APPEND '来自,' TO it_message.

APPEND SY-UNAME TO it_message.

ENDFORM. " POPULATE_EMAIL_MESSAGE_BODY

*&----

*& Form D_FILE_AS_EMAIL_ATTACHMENT *

&----

*& Send *

&----

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_email2 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 value

'no-reply@silverstoneluhe.com.cn',

ld_sender_address_type LIKE soextreci1-adr_typ,

ld_receiver LIKE sy-subrc.

data: TMP_MAIL(40) TYPE C.

DATA: MAIN_EMAIL(40) TYPE C.

DATA: TMP_POS TYPE I .

DATA: ADD_EMAIL(40) TYPE C.

DATA: L_POS TYPE I, R_POS TYPE I, MAIL_LEN TYPE I.

ld_email = p_email.

ld_email2 = p_email2.

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-obj_name = ld_attfilename.

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.

TP_MAIL_MAIN = PA_MAIL.

TP_MAIL = PA_MAIL1.

if sy-subrc = 0 .

t_receivers-receiver = TP_MAIL_MAIN.

t_receivers-rec_type = 'U'.

t_receivers-com_type = 'INT'.

t_receivers-notif_del = 'X'.

t_receivers-notif_ndel = 'X'.

APPEND t_receivers.

ENDIF.

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

*READ FROM TP_MAIL LIST

TP_MAIL_TMP = TP_MAIL .

WHILE SY-SUBRC = 0 .

SEARCH TP_MAIL_TMP FOR ', ' .

MAIL_LEN = STRLEN( TP_MAIL_TMP ) .

IF SY-SUBRC = 0 .

TMP_POS = sy-fdpos .

ADD_EMAIL = TP_MAIL_TMP+0(TMP_POS) .

R_POS = TMP_POS + 2 .

L_POS = MAIL_LEN - TMP_POS .

TP_MAIL_TMP = TP_MAIL_TMP+R_POS(L_POS) .

ELSE.

ADD_EMAIL = TP_MAIL_TMP .

ENDIF.

t_receivers-receiver = ADD_EMAIL.

t_receivers-rec_type = 'U'.

t_receivers-com_type = 'INT'.

t_receivers-notif_del = 'X'.

t_receivers-notif_ndel = 'X'.

t_receivers-COPY = 'X' .

APPEND t_receivers.

ENDWHILE.

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

SUBMIT rsconn01 WITH mode = 'INT'

WITH output = 'X'

AND RETURN.

ENDFORM. " INITIATE_MAIL_EXECUTE_PROGRAM

please help me its urgent.thank you.

Message was edited by:

shanjing du

Message was edited by:

shanjing du

Re: problem about sending email

jaideeps — Thu, 12 Jul 2007 13:22:45 GMT

hi,

chkout this code...

1..intab to CSV

tYPE-POOLS: truxs.

TYPES:

BEGIN OF ty_Line,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

END OF ty_Line.

ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.

DATA: itab TYPE ty_Lines.

DATA: itab1 TYPE truxs_t_text_data.

SELECT

vbeln

posnr

UP TO 10 ROWS

FROM vbap

INTO TABLE itab.

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

EXPORTING

i_field_seperator = ';'

TABLES

i_tab_sap_data = itab

CHANGING

i_tab_converted_data = itab1

EXCEPTIONS

conversion_failed = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = 'C:TEMP est.txt'

TABLES

data_tab = itab1

EXCEPTIONS

OTHERS = 1.

2) to send email

&----

*& Report ZEMAIL

&----

REPORT ZEMAIL.

data: itcpo like itcpo,

tab_lines like sy-tabix.

Variables for EMAIL functionality

data: maildata like sodocchgi1.

data: mailpack like sopcklsti1 occurs 2 with header line.

data: mailhead like solisti1 occurs 1 with header line.

data: mailbin like solisti1 occurs 10 with header line.

data: mailtxt like solisti1 occurs 10 with header line.

data: mailrec like somlrec90 occurs 0 with header line.

data: solisti1 like solisti1 occurs 0 with header line.

perform send_form_via_email.

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

FORM SEND_FORM_VIA_EMAIL *

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

form send_form_via_email.

clear: maildata, mailtxt, mailbin, mailpack, mailhead, mailrec.

refresh: mailtxt, mailbin, mailpack, mailhead, mailrec.

Creation of the document to be sent File Name

maildata-obj_name = 'TEST'.

Mail Subject

maildata-obj_descr = 'Subject'.

Mail Contents

mailtxt-line = 'Here is your file'.

append mailtxt.

Prepare Packing List

perform prepare_packing_list.

Set recipient - email address here!!!

mailrec-receiver = 'you@yourcompany.com'.

mailrec-rec_type = 'U'.

append mailrec.

Sending the document

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = maildata

put_in_outbox = ' '

tables

packing_list = mailpack

object_header = mailhead

contents_bin = mailbin

contents_txt = mailtxt

receivers = mailrec

exceptions

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

others = 99.

if sy-subrc = 0.

submit rsconn01 with mode = 'INT' and return.

endif.

endform.

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

Form PREPARE_PACKING_LIST

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

form prepare_packing_list.

clear: mailpack, mailbin, mailhead.

refresh: mailpack, mailbin, mailhead.

describe table mailtxt lines tab_lines.

read table mailtxt index tab_lines.

maildata-doc_size = ( tab_lines - 1 ) * 255 + strlen( mailtxt ).

Creation of the entry for the compressed document

clear mailpack-transf_bin.

mailpack-head_start = 1.

mailpack-head_num = 0.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'RAW'.

append mailpack.

mailhead = 'TEST.TXT'.

append mailhead.

File 1

mailbin = 'This is file 1'.

append mailbin.

describe table mailbin lines tab_lines.

mailpack-transf_bin = 'X'.

mailpack-head_start = 1.

mailpack-head_num = 1.

mailpack-body_start = 1.

mailpack-body_num = tab_lines.

mailpack-doc_type = 'TXT'.

mailpack-obj_name = 'TEST1'.

mailpack-obj_descr = 'Subject'.

mailpack-doc_size = tab_lines * 255.

append mailpack.

*File 2

mailbin = 'This is file 2'.

append mailbin.

data: start type i.

data: end type i.

start = tab_lines + 1.

describe table mailbin lines end.

mailpack-transf_bin = 'X'.

mailpack-head_start = 1.

mailpack-head_num = 1.

mailpack-body_start = start.

mailpack-body_num = end.

mailpack-doc_type = 'TXT'.

mailpack-obj_name = 'TEST2'.

mailpack-obj_descr = 'Subject'.

mailpack-doc_size = tab_lines * 255.

append mailpack.

With PDF Attachment:

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'Z_TEST'

IMPORTING

fm_name = v_fname.

CALL FUNCTION v_fname

EXPORTING

control_parameters = x_ctrl_p

IMPORTING

job_output_info = x_output_data.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

format = 'PDF'

max_linewidth = 134

IMPORTING

bin_filesize = v_size

TABLES

otf = x_output_data-otfdata

lines = it_lines

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3

OTHERS = 4.

CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'

EXPORTING

line_width_dst = 255

TABLES

content_in = it_lines

content_out = it_soli

EXCEPTIONS

err_line_width_src_too_long = 1

err_line_width_dst_too_long = 2

err_conv_failed = 3

OTHERS = 4.

CALL FUNCTION 'FUNC_CONVERT_DATA_ODC01'

EXPORTING

iv_byte_mode = 'X'

TABLES

it_data = it_lines

et_data = it_table.

*-----To caluculate total number of lines of internal table

DESCRIBE TABLE it_table LINES v_lines.

*-----Create Message Body and Title and Description

it_mess = 'successfully converted smartform from otf format to pdf' .

APPEND it_mess.

wa_doc_data-obj_name = 'smartform'.

wa_doc_data-expiry_dat = sy-datum + 10.

wa_doc_data-obj_descr = 'smartform'.

wa_doc_data-sensitivty = 'F'.

wa_doc_data-doc_size = v_lines * 255.

APPEND it_pcklist.

*-----PDF Attachment

it_pcklist-transf_bin = 'X'.

it_pcklist-head_start = 1.

it_pcklist-head_num = 0.

it_pcklist-body_start = 1.

it_pcklist-doc_size = v_lines_bin * 255 .

it_pcklist-body_num = v_lines.

it_pcklist-doc_type = 'PDF'.

it_pcklist-obj_name = 'smartform'.

it_pcklist-obj_descr = 'smart_desc'.

it_pcklist-obj_langu = 'E'.

it_pcklist-doc_size = v_lines * 255.

APPEND it_pcklist.

*-----Giving the receiver email-id

CLEAR it_receivers.

it_receivers-receiver = abcd@yahoo.com'.

it_receivers-rec_type = 'U'.

APPEND it_receivers.

*-----Calling the function module to sending email

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = wa_doc_data

put_in_outbox = 'X'

commit_work = 'X'

TABLES

packing_list = it_pcklist

contents_txt = it_mess

contents_hex = it_table

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

also chk these links..

https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=sendingmailsfrominternaltable&adv=false&sortby=cm_rnd_rankvalue

thanks

jaideep

*reward points if useful...