I'm trying to get the short name field out of the nab for individual members of a group in the nab.
My attempts so far are below with the problem (at least the first one) is that the evaluate statement for
searchname is evaluating to a blank. The first part works (it brings back the group members names in the following format CN = John Smith/OU=xyz/O=abc). So i basically want to convert that to John Smith, go to the $VIMPeople View of the NAB and extract the shortname from the document.
Any ideas would be appreciated.
Dim nabdb As notesdatabase
Dim nabdoc As notesdocument
Dim nabdoc2 As notesdocument
Dim nabview As notesview
Dim nabview2 As notesview
Dim nabsession As New notessession
filenum = Freefile()
Open "c:\my documents\group_list.txt" For Output As #Freefile
srv = "myserver"
dbn = "names.nsf"
Set nabdb = New notesdatabase(srv,dbn)
Set nabview = nabdb.getview("Groups")
Set nabview2 = nabdb.getview("$VIMPeople")
docname = "MyLookupGroup"
Set nabdoc = nabview.getdocumentbykey(docname,True)
If nabdoc Is Nothing Then
Forall member In nabdoc.members
Print #filenum, member
' ok to here
' searchname = Evaluate(|@name([Abbreviate];member)|)
tname = searchname(0)
' returns a blank tname
Set nabdoc2 = nabview2.getdocumentbykey(tname,True)
If nabdoc2 Is Nothing Then
Msgbox("no document on internet name lookup")
short_name = nabdoc2.shortname(0)
Print #filenum, short_name