使用lotusscript获得群组中的用户列表_lotus notes代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】使用lotusscript获得群组中的用户列表_lotus notes

作者: / 发布于2016/8/5/ 799

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 peoples 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 peoples 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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　lotusscript　

同语言下

可能有用的

贡献的其它代码Label