Hallo,
ich versuche den DB-Eigentümer im globalen Adressbuch zu suchen mittels GetDocumentByKey (und zu finden), bin aber leider bisher erfolglos.
Welche View (People, $People, $VIMPeople) oder welches Namensformat für den Owner (Common, Abbreviated, Canonical) muss ich wählen?
Ich erhalte in allen bisher versuchten Kombinationen immer nur Error 103.
So sieht mein Script aus:
Set db1 = s.CurrentDatabase
Set pdoc= db1.GetProfileDocument("CalendarProfile")
Set owner= pdoc.getFirstItem("Owner")
Dim userName As New NotesName(owner.Text)
ownerName = userName.Common
Msgbox(ownerName)
Set ndb = s.GetDatabase("10.10.10.10, "Names.nsf")
If Not ndb.IsOpen Then Call ndb.Open("", "")
If Not ndb.IsOpen Then
Error 101, "Fehler. Konnte Datenbank nicht öffnen!"
Exit Sub
End If
Set qview = ndb.GetView( "People" )
If qview Is Nothing Then
Error 102, "Fehler. Konnte View nicht öffnen!"
End If
Set qdoc = qview.GetDocumentByKey( ownerName )
If qdoc Is Nothing Then
Error 103, "Fehler. Konnte User " & ownerName & " nicht finden!"
End If
Set item = qdoc.GetFirstItem( "InternetAddress" )
Msgbox (item.Text)