Phil,

This is the code I use:

Procedure email_from_lotus
lParam recipient, em_subject, em_attachment, em_body_text

Session = CreateObject("Notes.Notessession")
db = Session.GetDatabase("", "bookmark.nsf")
Doc2 = db.CreateDocument()
Doc2.Form = "memo"
Doc2.Subject = em_subject

rtitem = Doc2.CreateRichTextItem("body")
rtitem.AppendText(em_body_text)
If Len(AllT(em_attachment)) > 1 Then && Is there an attachment?
rtitem.EmbedObject(1454, "", em_attachment)
EndIf

*e1 = AllT(recipient)
Doc2.Send(.F., AllT(recipient))

EndProc