Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Getting Short Name from NAB for a member of a group

Posted on 2004-10-11
2
Medium Priority
?
368 Views
Last Modified: 2013-12-18
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.

Thanks

smeyer4314

      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")
      Else
            Forall member In nabdoc.members
                  Print #filenum, member
                  Msgbox(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")
                  Else
                        short_name = nabdoc2.shortname(0)
                        Print #filenum, short_name
                        
                  End If
            End Forall
      End If
      
      Close #fileNum
      
      
      
End Sub
0
Comment
Question by:smeyer4314
2 Comments
 
LVL 31

Accepted Solution

by:
qwaletee earned 500 total points
ID: 12280635
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=...)
0
 

Author Comment

by:smeyer4314
ID: 12280978
Qwaltee;

Thanks, that worked.

Steve m
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Notes Document Link used by IBM Notes is a link file which aids in the sharing of links to documents in email and webpages. The posts describe the importance and steps to create a Lotus Notes NDL file in brief.
This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…

972 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question