Ok ho trovato l\'arcano.
Lo posto anche x gli altri.
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim docContesto As NotesDocument
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Dim nid As String
Dim tmpdoc As NotesDocument
Set docContesto= uidoc.Document
uidoc.EditMode = True
filenames = ws.OpenFileDialog( _
False, "Scegli il file xml da importare",, "c:\","")
Set rtitem = New NotesRichTextItem( docContesto, "Body" )
If Not(Isempty(filenames)) Then
Forall filename In filenames
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", filename)
End Forall
Call uidoc.Save
nid=docContesto.UniversalID
Set tmpdoc = db.GetDocumentByUNID(nid)
Call uidoc.Refresh(True)
Call ws.OpenFrameSet("Frame-Navigazione")
Call ws.SetTargetFrame("dx")
Call docContesto.Save(False,True)
Call ws.EditDocument(False,tmpdoc,,,False,)
End If
End Sub
Basta anche mettere un FileSave sotto al bottone che chiama l\'agente in modo da
non frselo chiedere da Notes.
Il codice è migliorabile e pieno di righe in + che ho messo x le mie provo.
Grazie
|