Script question, members of group

HCL Domino Domino Forum
,
1

Hello,

I would like to convert the members of a group to internet addresses using an agent in the action menu.

Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim persons As Variant
Set uidoc = workspace.CurrentDocument
persons= uidoc.FieldGetText( "Members" )
End Sub

The persons looks like a long string, how to iterate thru this string? Any idea?

Kind regards, Barend

2

Please use the modified script as below

On Error Goto Handle
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim members As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Set members= doc.GetFirstItem("Members")
Forall m In members.Values
Msgbox m
End Forall
Exit Sub
Handle:
Msgbox "Error is " & Error() & " On Line " & Cstr(Erl())

Output will be List of Members:

Community-Pasted-Attachment-1655115468386.png632×399 62.9 KB

3

Thanks, exactly where I was looking for!