I face a problem on render a document, i have a document store a attachment,when i click on the button i want the attahment to be render and show on the bottom of the document.Below is my LS, when i run the code it does not give me any error,but the attchment is not render at all .Any Comment,Thank !
Dim ws As New NotesUIWorkspace
Dim session As New notessession
Dim uidoc As NotesUIDocument
Dim doc As Notesdocument
Dim faxdb As Notesdatabase
Set uidoc = ws.CurrentDocument
Set doc=uidoc.Document
Set faxdb=session.Currentdatabase
Dim faxdoc As New Notesdocument(faxdb)
faxdoc.form="Teo"
Dim rtitem As NotesRichTextItem
Dim success As Variant
Set rtitem = New NotesRichTextItem( faxdoc ,"Body" )
success=doc.Rendertortitem(rtitem)
Call ws.EditDocument(True,faxdoc)