.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetFirstItemValue method
This code looks up all entries containing "Smith" in the $Users view, and creates a directory navigator of the person's short name and internet address.

  Dim s As New notessession
 Dim myname As String
 myname = "Smith"  
 
 Dim myitems() As String
 Redim myitems(1 To 2)  
 
 myitems(1) =  "ShortName"
 myitems(2) =  "InternetAddress"
 
 Set mydir = s.GetDirectory("myserver")
 
 Set mynav = mydir.LookupNames("$Users", myname, myitems, True)
 
 While mynav.NameLocated  
   While mynav.MatchLocated    
     v = mynav.getFirstItemValue
     mynav.FindNextMatch  ' sets MatchLocated T/F
   Wend
'    resume name loop
   mynav.FindNextName  ' sets NameLocated T/F
 Wend
 Msgbox "complete"