Es geht (bedingt*) mit LS2J
UseLSX "*javacon"
Sub Initialize
On Error GoTo handle
Dim jSession As New JavaSession
Dim nSession As New NotesSession
Dim db As NotesDatabase
Set db = nSession.Currentdatabase
Dim serverClass As JavaClass
Dim dominoServer As JavaObject
Set serverClass = jSession.Getclass("lotus.notes.addins.DominoServer")
' create DominoServer Object for current server
Set dominoServer = serverClass.Createobject("(Ljava/lang/String;)V", db.Server)
Dim namesCollection As Javaobject
' create Collection<String> for current user
Set namesCollection = dominoServer.getNamesList(nSession.Effectiveusername)
MsgBox namesCollection.toString()
Exit Sub
handle: MsgBox "Error " & Error & " in line " & Erl
Exit sub
End sub
* Leider wird das Charset-Encoding irgendwo vermurkst, so dass Gruppen mit Sonderzeichen/Umlauten nicht korrekt zur?ck gegeben werden.
(Weiterhin ist in vielen JVM-Patches der letzten Zeit die LS2J Ansteuerung nicht möglich. Man kann keine Konstruktoren mit Parameter aufrufen)
Gruß
Roland