Domino 9 und frühere Versionen > ND7: Entwicklung

Common-Name

<< < (2/2)

Axel:
Auf die Schnelle würde ich das mal so probieren.

Function getPersonMembers(groupName As String) As Variant
   Dim nab As New NotesDatabase("","names.nsf")
   Dim grpView As NotesView, personView As NotesView
   Dim doc As NotesDocument , doc2 As NotesDocument
   Dim namesList As Variant
   Dim memberList() As String
   Dim grpname As NotesName
   Dim person As NotesName

....

                  Redim Preserve memberList(0 To tmnE + Ubound(namesList))
                  Forall nms In namesList
                     Set person = New NotesName(Cstr(nms))
                     memberList(tmnE + x) = person.common
                     x=x+1
                  End Forall
               End If
            Else
               Redim Preserve memberList(0 To tmnE + x)
               memberList(tmnE + x) = Cstr(mbrs)
            End If   
         End Forall
...

End Function


Axel

Hedwig14:
@Axel: Vielen Dank ! Hat super geklappt !
Perfekt !

Navigation

[0] Themen-Index

[*] Vorherige Sete