Ciao Daniele ci sono risucito ecco io codice
Sub Initialize
Dim s As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim nView As NotesView
Dim nDoc As NotesDocument
Dim key As String
Dim newDoc As NotesDocument
Set db = s.CurrentDatabase
Set nView = db.GetView("vistanew")
Set old = s.GetDatabase(db.Server, "pippo\pluto\paperino.nsf")
Set view = old.GetView("vistaold")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
\' Set nDoc = Nothing
\' key = Cstr(doc.Ship(0))+Cstr(doc.Voy(0))
\' Set nDoc = nView.GetDocumentByKey(key)
If nDoc Is Nothing Then
\'creazione nuovo documento
Set newDoc = db.CreateDocument
\'campi
newDoc.Form = "musei"
newDoc.localitamusei = doc.localitafr(0)
newDoc.orarioopenmusei = doc.orariopenfr(0)
Call newDoc.Save(True, False, True)
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub
l\'unico problema e che non riesco a prendere il contenuto di un rich text che
poi è un immagine
|