Sortierenbutton in Maske,Gruppe,Mitglieder finden

[notesman]

Im pers. Adressbuch kann man unter
Gruppen - (Modus bearbeiten) die Mitglieder einer Gruppe alph. sortieren.
Ich möchte das in einer anderen externen Adressdatenbank nachbauen.
Finde aber schon im pers. Adressbuch nicht heraus
welche Maske die Button und den Code enthält.

Bitte helft mir. Habe Notes 5.08 mit Designer.

Gruss Frank.
ggs-edv@gmx.de

[eknori]

Hab dir gerade ne Demo rübergebeamt  

[Andysun]

Sub Click(Source As Button)
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim uidoc As notesuidocument
     Dim flag As String
     Dim w As New NotesUIWorkspace
     Dim s As New NotesSession
     Set db = s.CurrentDatabase
     Set uidoc=w.currentdocument
     Set doc = uidoc.document
     
     On Error Resume Next
     'Because canonical names are used in combination with flat names
     'we need to abbreviate the list coming in to do the sort correctly.
     'otherwise, the sort would be off because canonical names internally all start with CN=
     'which causes a flat name to sort before a canonical one even if the first letter of the common name
     'comes before the first letter of the flat name.  To insure correct return values, we canonicalize before
     'we save the note.  We use Evaluate because it is faster to run the @Name on the list then looping
     'through all possible members and abbreviating them in script.
     FieldList=Evaluate(|@Name([Abbreviate];P1Liste)|,doc)
     Call QuickSort(FieldList)
     Call doc.ReplaceItemValue("P1Liste",SortedArray)
     Call doc.ReplaceItemValue("P1Liste", Evaluate(|@Name([Canonicalize];P1Liste)|,doc))
     Call uidoc.refresh
End Sub

Gruss
Andy

[Wipe]

Hallo Frank,

wenn Du die Maske Gruppe öffnest, dann gehe mit der Maus ganz auf die rechte Seite. Dann ziehe das Fenster nach links auf und die Aktionsschaltflächen erscheinen.

Gruss
Andreas