Muchas GRacias! Voy a revisar la funcion a ver como funciona, igual me hice yo esta funcion que hace lo que necesito en base a la vista que mencionas:
Sub Initialize
On Error GoTo cath
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim userS As String
Dim userB As Variant
Dim groups As Variant
Dim groupsXgroups As Variant
Dim server As String
Dim dbN As String
Dim view As String
Dim GruposTodos As variant
userS = xxx
server = xxx
dbN = "Names.nsf"
view = "($ServerAccess)"
userB = Evaluate(|@LowerCase(@Name([Canonicalize];"| + userS + |"));|)
groups = Evaluate(|@DbLookup("":"";"|+ server +|":"|+ dbN +|";"| + view + |";"|+userB(0)+|";2)|)
ForAll grupo In groups
If CStr(grupo) <> "" Then
groupsXgroups = Evaluate(|@DbLookup("":"";"|+ server +|":"|+ dbN +|";"| + view + |";"|+CStr(grupo)+|";2)|)
Call AddToArray(groupsXgroups, CStr(""))
ForAll grupoEnGrupo In groupsXgroups
If CStr(grupoEnGrupo) <> "" Then
Call AddToArray(groups, CStr(grupoEnGrupo))
End If
End ForAll
End If
End ForAll
ForAll msgrupo In groups
MsgBox CStr(msgrupo)
End ForAll
Exit Sub
cath:
MsgBox Error() & ". Error " & Err() & ". " & "En línea: " & Erl() & " <- "
Exit Sub
End Sub
Me ha funcionado bien, peor no se que tan confiable sea!!
saludos.