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"