Yanick,
Check out http://www-12.lotus.com/ldd/doc/domino_notes/5.0.3/help5_designer.nsf/f4b82fbb75e942a6852566ac0037f284/a1264e37fcd4581e8525687e0059961c?OpenDocument. The NotesRichTextStyle is available through the NotesSession.CreateRichTextStyle method.

HTH.

>Hi all,
>
>I'm looking to have a fixed width font to write the body of my Notes email.
>
>here's the code I have up to now :
>
>

>	DIMENSION laSendTo[1]
>
>*** Get a hook on Lotus Notes
>	oNotesSession = CREATEOBJECT("Lotus.NotesSession")
>	oNotesSession.Initialize(ALLTRIM(""))
>
>*** ask the user for the recipient
>	lcEmailRecipient = "recipient@isp.com"
>	lcEmailRecipient = INPUTBOX("Email address","Email ",lcEmailRecipient)
>
>
>	lsMailServer = oNotesSession.GetEnvironmentString("MailServer", .T.)
>	lsMailDB = oNotesSession.GetEnvironmentString("MailFile", .T.)
>
>	loDB = oNotesSession.GetDatabase(lsMailServer, lsMailDB)
>	loDoc = loDB.CreateDocument()
>	loDoc.ReplaceItemValue("Subject", "Here was the subject of the email")
>
>	laSendTo[1] = lcEmailRecipient
>
>	loDoc.ReplaceItemValue("SendTo", @laSendTo)
>	loRTF = loDoc.CreateRichTextItem("Body")
>	WITH loRTF
>
>*** Add the selected trades as the body of the email
>		lcBody = ''
>		SCAN FOR rv_blotter.lSelect
>			lcAcct = rv_blotter.cAcctno
>                        lcBody = lcBody + lcAcct "|" + "123456iop"+ CHR(13)
>		ENDSCAN
>		.AppendText(lcBody)
>
>		.AddNewLine(2, .T.)
>		.AppendText("***THIS IS AN AUTOMATED E-MAIL***")
>		.AddNewLine(1,.T.)
>		.AppendText("You can reply to this message, if necessary.")
>
>	ENDWITH &&loRTF
>
>	SELECT rv_blotter
>	REPLACE ALL lSelect WITH .F.
>	=TABLEUPDATE(.T.)
>
>	loDoc.SaveMessageOnSend = .T. && Saves a copy to sent folder
>	loDoc.SEND(.F.) && Sends the message
>	=MESSAGEBOX("Email Sent", 64+0, "Lotus Automation")
>

>
>How does one changes the font of a RichTextItem Object ?!?
>
>TIA and have a good one,
>
>Yanick