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) |
| |