I have used this little routine a few times and it has worked for me assuming a table with the name message and the associated fields.

oNotes = CreateObject("Notes.NotesUIWorkspace")
oNotes.OpenDatabase("","mail\someone's name.nsf")
oDocument = oNotes.ComposeDocument(,,"Memo")
lcRecipient = message.cRecip
lcSubject = message.cSubject
lcContents = message.mContents
oDocument.FieldSetText("SendTo",lcRecipient)
oDocument.FieldSetText("Subject",lcSubject)
oDocument.FieldSetText("Body",lcContents)
ODocument.Send()
oDocument.Close()

hope this works as I have not used it in quite some time.