Thanks Larry,

with the link I managed to get it to work.

Now the user asked for one more thing. He wants to be able to write only a few charaters of the sendto field [email address] and have notes resolve the address for him with the addressbook. [just as if he was typing directly in the field in notes.]

Right now I'm passing the address to notes like this

lcEmailRecipient = ''
lcEmailRecipient = INPUTBOX("Email address","Email ",lcEmailRecipient)
.
.
.
laSendTo[1] = lcEmailRecipient
loDoc.ReplaceItemValue("SendTo", @laSendTo)

How would one 'Validate' the address type in the inputbox before issuing the send?

Any help appreciated

TIA,

Yanick

>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