Adesso il mio codice č cosė:
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 Double
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.GetNthEntry(i).document
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
|