problem with text area in module pool....

[sonu_p2]

Hello Gurus!!!

I am using Text area for accepting E-mail id's from the user . When the user clicks on SEND button, mail to corresponding recipient goes.

check out the code below :-

data : s_container1 TYPE REF TO cl_gui_custom_container,

obj_textedit TYPE REF TO cl_gui_textedit.

MODULE STATUS_0200 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

IF s_container1 is INITIAL.

CREATE OBJECT s_container1

EXPORTING container_name = 'EDIT_CONTAINER'.

ENDIF.

create object obj_textedit

exporting

MAX_NUMBER_CHARS = 1000

• STYLE = 0

• WORDWRAP_MODE = WORDWRAP_AT_WINDOWBORDER

• WORDWRAP_POSITION = -1

• WORDWRAP_TO_LINEBREAK_MODE = FALSE

• FILEDROP_MODE = DROPFILE_EVENT_OFF

parent = s_container1

• LIFETIME =

• NAME =

EXCEPTIONS

ERROR_CNTL_CREATE = 1

ERROR_CNTL_INIT = 2

ERROR_CNTL_LINK = 3

ERROR_DP_CREATE = 4

GUI_TYPE_NOT_SUPPORTED = 5

others = 6

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0200 OUTPUT

WHEN 'SEND'.

DATA : outlook LIKE obj_record,

outmail LIKE obj_record,

lattach TYPE obj_record ,

v_char(3000) TYPE c.

DATA: v_hex TYPE c ,TXT_EMAIL(60) TYPE C , TXT_CC(100) TYPE C.

DATA : EMAIL_NM TYPE TEXT_SYMBOLS,

EMAIL_NM(100) TYPE C,

• * EMAIL_NM TYPE REF TO cl_gui_textedit,

EMAIL_CC(100) type c.

EMAIL_NM = TXT_EMAIL.

EMAIL_CC = TXT_CC.

• EMAIL_NM = obj_textedit.

CREATE OBJECT outlook 'Outlook.Application'.

CALL METHOD OF outlook 'CREATEITEM' = outmail EXPORTING #1 = 0.

SET PROPERTY OF outmail 'TO' = <b>EMAIL_NM.</b>

<b>* what to do for passing the values of the text area in container</b>

SET PROPERTY OF outmail 'SUBJECT' = 'hello'.

SET PROPERTY OF outmail 'CC' = EMAIL_CC.

SET PROPERTY OF outmail 'BODY' = 'This is excel attachment'.

CALL METHOD OF outmail 'Attachments' = lattach.

CALL METHOD OF lattach 'Add' EXPORTING #1 = 'C:\exceldown\tree2.xls'.

CALL METHOD OF outmail 'SEND'.

FREE OBJECT outlook.

IF sy-subrc = 0.

MESSAGE 'Message sent successfully' TYPE 'I'.

ENDIF.

Please let me knw ur suggestions..........its urgent!!

Helpful answers will be rewarde

Thanks,

Sachin

[sonu_p2]

The problem in text area is solved.....

types : begin of line_email,

line(255) type c,

end of line_email.

data : line_email_tab type table of line_email.

data : line_email_wa type line_email.

data : line type line_email-line.

MODULE STATUS_0200 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

IF s_container1 is INITIAL.

CREATE OBJECT s_container1

EXPORTING container_name = 'EDIT_CONTAINER'.

ENDIF.

IF s_container2 is INITIAL.

CREATE OBJECT s_container2

EXPORTING container_name = 'EDIT_CONTAINER1'.

ENDIF.

endmodule.

CALL METHOD obj_textedit->get_text_as_r3table

IMPORTING

table = line_email_tab

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

MESSAGE 'There is a problem in email text. Please re-enter' TYPE 'I'.

ENDIF.

loop at line_email_tab into line_email_wa.

endloop.

line = line_email_wa-line.

Thanks a lot for viewing this question.......