LOTUSSCRIPT/COM/OLE CLASSES
Examples: NotesDirectory class
1. This LotusScript agent gets the value in the item "email" of the first instance of the name "John" in the view "Contacts" in the directory on the default server.
Sub Initialize
Dim s As New NotesSession
Dim direct As NotesDirectory
Dim nav As NotesDirectoryNavigator
Dim value As Variant
Set direct = s.getDirectory
Set nav = direct.LookupNames("Contacts","John","email")
value = nav.GetFirstItemValue
Msgbox "Value: " + Cstr(value(0))
End Sub
2. This LotusScript agent gets the values in the items "email" and "ShortName" of the first instances of the names "Anne", "Bob", and "Carlos" in the view "Contacts" in the directory on the default server.
Sub Initialize
Dim s As New NotesSession
Dim direct As NotesDirectory
Dim nav As NotesDirectoryNavigator
Dim value As Variant
Dim searchArray (1 To 3) As String
Dim itemArray (1 To 2) As String
Set direct = s.getDirectory
searchArray(1) = "Anne"
searchArray(2) = "Bob"
searchArray(3) = "Carlos"
itemArray(1) = "email"
itemArray(2) = "ShortName"
Set nav = direct.LookupNames("Contacts", searchArray, itemArray)
End Sub
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario