Paste to Email Body

I’m attempting to copy an entire document using the following method:

Call uiDoc.SelectAll

Call uiDoc.Copy

Works fine. Now, I’m creating an e-mail on the back end and I want to paste the what I just copied and resides on the clipboard to the Body of the e-mail.

Set maildoc = New NotesDocument(db)

maildoc.Form = "Memo"

maildoc.Subject = SubjectLine

Set rtitem = New NotesRichTextItem(maildoc, "Body")

The copying was easy, but Paste won’t work since I’m not dealing with a UI document. Am I missing an easy solution here? I should note that the UI doc can’t be in edit mode, otherwise I’d just copy from one rt item to the next.