Questo script ti permette di allegare il file e fare il refresh del acampo cosė
che tu hai il tuo file nel campo con documento aperto
FileName=path+nomefile
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "",FileName)
doc.form="NOME FORM"
Call uidoc.document.save(True, False)
Call uidoc.Refresh
uidoc.document.SaveOptions= "0"
Call uidoc.close
Set uidoc = ws.EditDocument(True, uidoc.document, True)
Set doc = uidoc.document
uidoc.document.SaveOptions = "1"
Kill FileName
|