Ciao a tutti ...
ho bisogno di uno script che vada a prendere l\'elenco delle risorse inserite nel domino addess book,
io utilizzo questo script ma prende la address book locale ....
Function FullNamePerson (szNome As String) As String
Dim session As New NotesSession
Dim books As Variant
Dim view As NotesView
Dim doc As NotesDocument
Dim done As Variant
Dim person As String
Dim b As Variant
Dim namesDB As NotesDatabase
Dim nam As NotesName
Set nam = New NotesName(szNome)
szNome = nam.Canonical
FullNamePerson = szNome
Exit Function
books = session.AddressBooks
done = False
person = szNome
Set namesDB = session.GetDatabase("","names.nsf")
If ( namesDB.IsPublicAddressBook ) And ( Not done ) Then
Call namesDB.Open( "", "" )
\' look up person\'s last name
\' in People view of address book
Set view = namesDB.GetView( "($Users)" )
Set doc = view.GetDocumentByKey(person)
\' if person is found, display the phone number item
\' from the Person document
If Not ( doc Is Nothing ) Then
FullNamePerson= doc.GetItemValue("FullName")(0)
done = True
End If
End If
\' if done is still False, the person wasn\'t found
If Not done Then
FullNamePerson = szNome
End If
End Function
|