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