11-18-2008 10:00 AM
Hi All,
I am sending a mail using the class CL_DOCUMENT_BCS.
I have a Disclaimer at the end of the matter of the body.
Is there any chance to change the font of the Disclaimer so that it is displayed in Italic ?
Can anyone help in this regard?
Thanks,
Swathi
11-19-2008 7:38 AM
Hi Swathi,
Instead of passing a RAW internal table u can pass a HTM internal table.... where we can give any formatting options.
Kindly chk the below example...
TYPE-POOLS ABAP.
PARAMETER MAILTO TYPE ADR6-SMTP_ADDR.
DATA: LO_SEND_REQUEST TYPE REF TO CL_BCS,
LO_DOCUMENT TYPE REF TO CL_DOCUMENT_BCS,
LO_RECIPIENT TYPE REF TO CL_CAM_ADDRESS_BCS,
LO_EXCEPTION TYPE REF TO CX_BCS,
LV_SENT_TO_ALL TYPE OS_BOOLEAN,
LT_HTML TYPE TABLE OF W3HTML WITH HEADER LINE.
APPEND '<html><body><p>Hi Swathi, - normal text </p><p><i>Italics - text</i></p></body></html>' TO LT_HTML.
TRY.
LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT( I_TYPE = 'HTM'
I_TEXT = LT_HTML[] " Html content
I_SUBJECT = 'Table' ).
LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).
LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( MAILTO ).
LO_SEND_REQUEST->ADD_RECIPIENT( EXPORTING I_RECIPIENT = LO_RECIPIENT
I_EXPRESS = 'X' ).
LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
LV_SENT_TO_ALL = LO_SEND_REQUEST->SEND( 'X' ).
COMMIT WORK.
CATCH CX_BCS INTO LO_EXCEPTION.
EXIT.
ENDTRY.
Cheers,
Jose.
11-19-2008 7:38 AM
Hi Swathi,
Instead of passing a RAW internal table u can pass a HTM internal table.... where we can give any formatting options.
Kindly chk the below example...
TYPE-POOLS ABAP.
PARAMETER MAILTO TYPE ADR6-SMTP_ADDR.
DATA: LO_SEND_REQUEST TYPE REF TO CL_BCS,
LO_DOCUMENT TYPE REF TO CL_DOCUMENT_BCS,
LO_RECIPIENT TYPE REF TO CL_CAM_ADDRESS_BCS,
LO_EXCEPTION TYPE REF TO CX_BCS,
LV_SENT_TO_ALL TYPE OS_BOOLEAN,
LT_HTML TYPE TABLE OF W3HTML WITH HEADER LINE.
APPEND '<html><body><p>Hi Swathi, - normal text </p><p><i>Italics - text</i></p></body></html>' TO LT_HTML.
TRY.
LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT( I_TYPE = 'HTM'
I_TEXT = LT_HTML[] " Html content
I_SUBJECT = 'Table' ).
LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).
LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( MAILTO ).
LO_SEND_REQUEST->ADD_RECIPIENT( EXPORTING I_RECIPIENT = LO_RECIPIENT
I_EXPRESS = 'X' ).
LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
LV_SENT_TO_ALL = LO_SEND_REQUEST->SEND( 'X' ).
COMMIT WORK.
CATCH CX_BCS INTO LO_EXCEPTION.
EXIT.
ENDTRY.
Cheers,
Jose.