Sending a document with a doclink from a mail db

I’d like to have a form action which sends the current document, plus a doclink to it, and have it first open in the sender’s mail database. The following LotusScript almost does this - it sends an image of the current document (which is OK) plus a doclink. (Thanks Stan Rogers for suggesting this solution.) However, it doesn’t first open the document in the sender’s mail database.

Set docA = uidoc.Document

Set docB = New NotesDocument( db )

Set rtitem = New NotesRichTextItem(docB, “Body” )

docB.Form = “Main Topic”

success = docA.RenderToRTItem( rtitem )

docB.SendTo = “John Smith/Atlanta/IBM”

Call docB.Send(True)

I’m interested in whether this LotusScript can be modified so that it does open the document in the sender’s mail database, or whether there’s a formula that can do this. @Command([MailForward])and @Command([MailSend])can send the current document from a mail database, but they apparently cannot include a doclink. @MailSend has an [IncludeDocLink] parameter, but when any parameter is included, a new memo rather than the current document is sent.

I’d appreciate any suggestions on how to send a document, plus a doclink, and have it first open in the sender’s mail database.

Thanks.