Questo è il codice che ho cominciato a scrivere ma che cosa manca ancora ti
ricordo che sono una schiappetta:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase \' db attuale
Dim view As NotesView
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim db2 As NotesDatabase
Dim i As NotesItem
Set db = session.CurrentDatabase
Set db2 = session.GetDatabase(db.Server, "\ovest\site\home.nsf")
Set view = db.GetView( "noteshotelfr" )
For i=1 To view.allentries
Set
doc=view.GetNthDocument(i).document
\'getnthentrid
Set doc2=db2.createdocument
doc2.form="NUOVO ALIAS FORM"
doc2.campo1=doc.campox(0)
doc2.campo2=doc.campox(0)
doc2.campo2=doc.campox(0)
Call doc2.save(False,False)
Next
End Sub
|