Posted by: Mark Wilson I'm using the library created by Jörg Ellinghaus to send email from Centura
2.0 via Lotus Notes (R5) ActiveX.
Sending a simple bit of text in the email body works fine, so i've tried to
expand this by using Rich Text Styles to put bold, italic etc. into the
text.
The following lines were added to the SendMail function:
Variables:
lotus_NOTESRICHTEXTSTYLE: oRichTextStyle [ from the Lotus
ActiveX apl ]
Variant: v_style
Variant v_style_app
Actions: [ after oDocument.CreateRichTextItem( "Body",
oRichTextItem ) ]
Set bOk = bOk AND oSession.CREATERICHTEXTSTYLE( v_style )
Set bOk = bOk AND v_style.GetObject( oRichTextStyle )
Set bOk = bOk AND oRichTextStyle.PropSetBOLD( TRUE )
Set bOk = bOk AND v_style_app.SetObject( oRichTextStyle )
Set bOk = bOk AND oRichTextItem.APPENDSTYLE( v_style_app )
Set bOk = bOk AND oRichTextItem.APPENDTEXT( 'Bold Test' )
It all compiles and runs ok, but when the email is received the text is just
normal, with no extra formatting applied.
This follows a method in some examples i found online for Visual Basic, but
am i doing something wrong?
Any help much appreciated.