Ich habe sowas mal in grauer Vorzeit gemacht.
Hier mal eine Code-Ausschnitt der die grundlegende Vorgehensweise verdeutlicht:
Dim objView As Object
Dim objDoc As Object
Dim objFirma As Object
Dim objName As Object
Dim sSuchString As String
Dim iResult As Integer
Dim objSession As Object
Dim objDb As Object
sSuchString = "FIELD Name CONTAINS 'Suchbegriff'"
Set objSession = CreateObject("Notes.NotesSession")
Set objDb = objSession.GetDatabase("NamedesServer", "Nameder Datenbank")
If objDb.IsOpen Then
Set objView = objDb.GetView("NamederAnsicht")
iResult = objView.FTSearch(sSuchString, 0)
If iResult = 0 Then
MsgBox "Es wurden keine Einträge gefunden die Ihrem Suchkriterium entsprechen.", _
vbInformation, "Adressübernahme"
Exit Sub
End If 'If iResult = 0
MsgBox "Suche ergab " & Str(iResult) & " Treffer"
'Zugriff auf die gefundenen Dokumente
Set objDoc = objView.GetFirstDocument
While Not (objDoc Is Nothing)
Set objFirma = objDoc.GetFirstItem("Name")
Set objName = objDoc.GetFirstItem("KontaktName")
Msgbox objFirma.Text
Msgbox objName.Text
Set objDoc = objView.GetNextDocument(objDoc)
Wend 'While Not (doc Is Nothing)
Da das ganze schon einige Jahre her ist, ist es aber gut möglich, dass es mit den neueren Versionen auch noch einfacher geht.
Axel