Notes-Benutzer ermittlen und Daten auslesen

[LordKiri]

Hi,

ich hätte gerne eine Aktion, die den Benutzer von Notes ermittelt und dann die zum Benutzer gehörenden Daten im DominoVerzeichnis ausliest....

Kann mir jemand helfen???

[eknori]

Die DesignerHilfe und die NotesDirectory class ist dein Freund ...

[koehlerbv]

Und auch die Forumsregeln, denn dies ist ein Doppelposting!

[WernerMo]

Hallo,

nur so als Tipp fürs weitere Suchen z.B. "@Username" gibt Dir den Namen des aktuellen Users zurück, damit kannst Du dann z.B. einen "DBLookup" auf das DD machen.
Alles weitere findest Du gut beschrieben in der Designerhilfe.

Gruß Werner
-edit- ich war wieder zu langsam 

[LordKiri]

Ja ich hab was entscheidendes vergessen, sorry:
ich will natürlich dass das ganze von OpenOffice aus abgefragt wird.
Mein Code bis dahin:

Code

sub main
   Dim oleService as Object
   Dim oWS as Object
   oleService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   oWS = oleService.createInstance("Notes.NotesSession")
   oWS.GetValue("UserName")
end sub

er bringt mir aber dann den Fehler:

BASIC-Laufzeitfehler
Es ist eine exception aufgetreten
Type: com.sun.star.uno.RuntimeException
Message: [automation bridge]The dispatch object does not support ITypeInfo!.