Code not working in ECC 6

[Former Member]

Hi all,

The sample code below is not working in ECC 6, but works fine in 4.7. The problem is in ECC 6, the output contains unwanted characters.

Also note that if i use less than no of characters, i.e the field bodymail contains less than about 100 characters it works fine in ECC 6.

Sample Code

-

---

REPORT ZRR_TEST_OULTOOK_MAIL.

INCLUDE OLE2INCL.

DATA: OUTLOOK TYPE OLE2_OBJECT,

MAILITEM TYPE OLE2_OBJECT,

ATTACHMENTS TYPE OLE2_OBJECT,

SUCCES TYPE OLE2_OBJECT,

APPT TYPE OLE2_OBJECT,

BODYMAIL(600) TYPE C.

TYPE-POOLS OLE2 .

CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.

CREATE OBJECT OUTLOOK 'Outlook.Application'.

CALL METHOD OF OUTLOOK 'CREATEITEM' = MAILITEM EXPORTING #1 = 0.

SET PROPERTY OF MAILITEM 'TO' = 'P_TO'.

SET PROPERTY OF MAILITEM 'CC' = 'P_CC'.

SET PROPERTY OF MAILITEM 'SUBJECT' = 'P_SUBJECT'.

concatenate 'Body of the Mail Line 1'

CL_ABAP_CHAR_UTILITIES=>CR_LF

'Body of the Mail Line 2'

into bodymail.

concatenate bodymail

CL_ABAP_CHAR_UTILITIES=>CR_LF

'Body of the Mail Line 3'

into bodymail.

concatenate bodymail

CL_ABAP_CHAR_UTILITIES=>CR_LF

'Body of the Mail Line 4'

into bodymail.

concatenate bodymail

CL_ABAP_CHAR_UTILITIES=>CR_LF

'Body of the Mail Line 5'

into bodymail.

concatenate bodymail

CL_ABAP_CHAR_UTILITIES=>CR_LF

'Body of the Mail Line 6'

into bodymail.

SET PROPERTY OF MAILITEM 'BODY' = bodymail.

CALL METHOD OF MAILITEM 'DISPLAY'.

FREE SUCCES.

FREE ATTACHMENTS.

FREE MAILITEM.

[Former Member]

Issue is solved