Getting Short Name from NAB for a member of a group

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
            Msgbox("no document")
            Forall member In nabdoc.members
                  Print #filenum, member
' ok to here
'                  searchname = Evaluate(|@name([Abbreviate];member)|)
                            tname = searchname(0)
                  Msgbox (tname)      
' 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
                  End If
            End Forall
      End If
      Close #fileNum
End Sub
Who is Participating?
qwaleteeConnect With a Mentor Commented:
Instead of $VIMPeople, use .getView("($Users)")

You can drop the whole Evaluate.  Just use nabView2.getDocumentByKey(member,true) -- because that view includes all users sorted by canonical name (CN=...)
smeyer4314Author Commented:

Thanks, that worked.

Steve m
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.