使用LotusScript获得群组中的用户列表

Declarations

Dim count As Integer
Dim persons List As String
Dim groups List
Dim tg As Integer
Dim xy As Integer


Sub Initialize
'The advantate of this code is that we can process any nested groups without any size limitaions.
Dim session As New notessession
Dim ws As New notesuiworkspace
Dim uidoc As NotesUIDocument

Dim db As notesdatabase
Dim namesdb As notesdatabase
Dim groupdoc As notesdocument
Dim groupview As notesview
Dim insidegroupdoc As notesdocument
Dim insidegroups As notesview
Dim doc As notesdocument
Dim curview As notesview
Dim newlist List

Set db=session.CurrentDatabase
Set namesdb=session.GetDatabase(db.Server,"names.nsf")
Set groupview=namesdb.GetView("($Users)")
Set insidegroups=namesdb.getview("($VIMGroups)")
Set curview=db.getview("second")
Set uidoc=ws.CurrentDocument

Set doc=curview.getfirstdocument 'you can set your own doc here. This the backend document for the currently opened uidoc. You can find other alternatives to run this agent.
groupName$ =uidoc.FieldGetText("names") ' Here we are entering the group or person names.

Dim ritem As Variant
Set ritem = doc.GetFirstItem( "all" ) ' Here we are going to store the group extracted people's name

'Call uidoc.FieldSetText("saveoptions","1")
Call uidoc.FieldSetText("Total","") ' Here we will list the total participant list.
Call uidoc.FieldSetText("all","") ' making the field null to print a new value.
Call uidoc.Save
Call uidoc.reload
Call uidoc.save

Forall entry In doc.names
gtype=group(entry) 'Checking whether the entry is a group or People.
If gtype="Group" Then
tg=tg+1
groups(tg)=entry
Else
Call addtolist(entry) ' If entry is a person, then adding to a list called People.
End If
End Forall



'now we have got two lists one is person and another one is group
'This loop will returns you a list in the people's view. and remove the each group entry after processing.
xy=0
Do Until xy = tg
xy=xy+1
et=groupget(groupview,groups(xy))
Erase groups(xy)
Loop

If ( ritem.Type <> RICHTEXT ) Then
Exit Sub
End If

'Iam adding the list to another array, because iam not getting the list with unique values. You can try some other code if you can retruns the list as unique
Dim nar() As String
Forall nvals In Persons
newcount=newcount+1
Redim Preserve nar(newcount)
nar(newcount)=Persons(newcount)
End Forall

'Then make the array as unique
finarray=Arrayunique(nar,0)

'Now print the values one by one in an array. See if you want to process the contents of this rtfield.
' Use the item.values and split the values using newline. So you will get an array.

Forall fins In finarray
If fins <> "" Then
fin=fin+1
Call ritem.Appendtext(fins)
Call ritem.addnewline(1)
End If
End Forall


'This code will close the doc without saving and re-open it.
Call doc.ReplaceItemValue("Total",Cstr(fin))
Call doc.save(True,True)
doc.saveoptions="0"
Call uidoc.close
Call ws.EditDocument(False,doc)
'You can use the notesname class to format the contents and use the evaluate to sort the contents. The code you can get it from my 'Other agent in the same db.
End Sub


Function group(entry As Variant) As String
'Getting first 3 characters will give u an idea whether it is a group or person. In our case every user will have a heirarhical name. In your case you can use ur own code to get this info.
If Left(entry,3)="CN=" Then
group="Person"
Else
group="Group"
End If
End Function


Function addtolist(entry As Variant)
count=count+1
If Isarray(entry) Then ' In some rare cases by mistake or so we have two entries in a document. So run this check before proceed.
Forall ad In entry
persons(count)=ad
End Forall
Else
persons(count)=entry
End If
End Function


Function groupget(gview As notesview,entry As Variant) As String
'here first we are getting group name. Then get the group document and get the members for the group. Then add the person entries to Person array.
'Rest group entries will add to group list.

Set groupdoc=gview.GetDocumentByKey(entry,True)
If Not groupdoc Is Nothing Then
allentries=groupdoc.GetItemValue("members")
Forall ent In allentries
'Set pdoc=gview.GetDocumentByKey(entry,True)
If Left(ent,3)="CN=" Then
count=count+1
persons(count)=ent
Else
tg=tg+1
groups(tg)=ent
ab=ab+1
End If
End Forall
End If
End Function