I have a Notes database with a form action that opens a memo in the user’s mail database and adds to this memo an image of the current document as well as a doclink. However, if the memo is received by somone without a Notes client, the document image in the memo does not appear correctly. (Much of the formatting and graphics are lost.)
Here is most of the code:
Dim maildb As New NotesDatabase( “”, “” )
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set docA = uidoc.Document
Call uidoc.Save
Call docA.Save(True,False)
Call maildb.OpenMail
Set docB = New NotesDocument( maildb )
Set rtitem = New NotesRichTextItem(docB, “Body” )
success = docA.RenderToRTItem( rtitem )
docB.SendTo = “John Smith/Atlanta/ABC”
docB.Subject = “This is a Test”
Call rtitem.AddNewline(2)
Call rtitem.AppendDocLink(docA, “Link”)
Call rtitem.Update
Call uidoc.close
Set mailuidoc = workspace.EditDocument(True, docB)
Is there a means of programmatically adding the image of a Notes document to a memo so that it could be received and viewed by someone without a Notes client? For example, could the image of a Notes document be programmatically added (not manually copied and pasted) to a Word document which would be attached to a memo?
Thanks.