Du machst doch in Deiner Formel einen @Dblookup auf den View, d.h. in der ersten indizierten Spalte steht der Suchwert, ergo kann hier nicht der Fehler liegen.
Suchst Du auch in der richtigen Datenbank ? Die Variable "SearchDb" steht für die Datenbank "Adressen.nsf". Ansonsten findet der Lookup einfach das Zieldokument nicht. Du solltest eh ne Fehlerroutine einbauen, falls der Anwender was falsches eingeben hat.
Das ganze sieht dann so aus :
On Error Goto ScriptError
Dim session As New NotesSession
Dim uiWs As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim curDb As NotesDatabase, searchDb As NotesDatabase
Dim searchView As NotesView
Dim searchDoc As NotesDocument
Dim i As Integer
Dim inText As String
Set curDb = session.CurrentDatabase
Set searchDb = New NotesDatabase(curDb.Server, "names.nsf") <-- Hier einfach den DB Namen einsetzten
Set searchView = searchDb.GetView("$VIMPeople") <-- Hier kommt der Name des Views rein
Set uiDoc = uiWs.CurrentDocument
inText = uiDoc.FieldGetText("Test") <-- Name des Feldes mit dem Suchwert
Set searchDoc = searchView.GetDocumentByKey(inText)
Call uiDoc.FieldSetText("Test1", searchDoc.MailFile(0)) <-- Erster Wert ist das Feld, in welches geschrieben werden soll, zweiter Wert ist der zu schreibene Wert. Das musst Du einfach zweimal machen
Exit Sub
ScriptError:
Messagebox"Bitte wiederholen Sie Ihre Eingabe. Bei der Verarbeitung ist ein Fehler aufgetreten.", 0+64, "Fehler"
call uiDoc.GotoField("Feldname")
Meff
