Salve,
Sto provando da Notes, ad aggiungere degli attach ad un documento, ma riesco a
vedere tali attach solo riaprendo il documento e non subito dopo l\'operazione
di attachment.
Il codice che utilizzo è il seguente:
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
Set docContesto= uidoc.Document
uidoc.EditMode = True
filenames = ws.OpenFileDialog( _
False, "Scegli il file 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.Refresh(True)
Call docContesto.Save(False,True)
Call uidoc.Save
End If
End Sub
Ripeto il doc viene creato con l\'attachment ma a me servirebbe vederlo in real
time in quanto vorrei permettere all\'utente di eseguire altri attach.....
Grazie a tutti
|