Domino 9 und frühere Versionen > Entwicklung

derzeitigen User auslesen

(1/6) > >>

mattu82:
Hi,

hab nen Problemchen mit dem Auslesen des User, der derzeit ein Dokument bearbeitet.

Bisher lese ich den User mit
UserName = session.EffectiveUserName
aus.
Allerdings wird gewünscht, dass ich den User über getAbbreviated herausfinde, da das Format, das wiedergegeben wird vorteilhafter ist.
Allerdings weiß ich nicht, wie ich das Anstellen soll, da auch die Hilfe keine Hinweise geben konnte.
Zurzeit arbeite ich mit Lotus Script.

Kann  mir jemand nen Tipp geben, wie ich den derzeitigen User mit dem getAbbreviated auslesen kann??

animate:
Vermutung:
du holst dir den Namen von deinem Session Objekt mit s.Username
erzeust ein NotesName-Objekt und übergibts ihm den Namen
set nn = new NotesName(s.UserName)

dann bekommst du das was du willst von dem Abbreviated-Attribut der NotesName-Klasse

sName = nn.Abbreviated


Ach übrigens: das hab ich aus der Hilfe  ;D

mattu82:
um vermutungen überflüssig zu machen hier der Code

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim session As New NotesSession
   Dim session1 As New NotesSession
   Dim db As NotesDatabase
   Dim db1 As NotesDatabase
   Dim doc As NotesDocument
   Dim NotesDocument As NotesUIDocument
   Dim UserName As Variant
   Set db = session.CurrentDatabase
   UserName = session.EffectiveUserName
   Set db1 = New NotesDatabase ("server",  "names.nsf")
   Set doc = view.GetDocumentByKey( UserName )
End Sub

wenn ich das Programm im debugger ablaufen lasse, zeigt er in den session variablen (session und session1) schon die falschen werte an, hier sollten die mit getAbbreviate geholten Werte drinstehen, dass man nachher damit weiterarbeiten kann.

mfg
mattu

Semeaphoros:
Das geht, man kann aber auch direkt NotesSession.CommonUserName verwenden.

oder man greift das Object NotesSession.UserNameObject ab, statt ein neues NotesName-Object selber zu instanziieren.

mattu82:
heißt das, dass ich die zeile
UserName = session.EffectiveUserName

ändern muss das sie nachher so aussieht:
UserName = NotesSession.UserNameObject

oder hab ich dich da falsch verstanden?
muss ich noch irgendwas deklarieren oder reicht es einfach aus die zeile zu verändern?

Navigation

[0] Themen-Index

[#] Nächste Seite