Username umwandeln in Script

[ewald]

Hallo zusammen,

hab da mal ne Frage (Problemchen):

Ich hol mir in Script mit  user = session.UserName  den aktuellen User.
Geht auch. Nun steht aber in user der vollständige Notesname, z.B.
CN=Max Meier/OU=Germany/O=Firma
Ich brauch' aber Max Meier/Germany/Firma  also quasi Abbreviated.
Wie kann ich denn in Script das Abbreviate anwenden. In Formelsprache ist das ja kein Problem.

Grüße Ewald

[MadMetzger]

Beispielsweise mit einem Evaluate?

[koehlerbv]

Dafür ist die NotesName-Klasse da. Siehe DesignerHelp - das Procedere ist ganz einfach.

Bernhard

[eknori]

mite der NotesName Klasse ist das auch kein Problem

  Dim session As New NotesSession
  Dim nam As NotesName
  Set nam = session.UserName
  Messagebox nam.Abbreviated,, "Abbreviated name"

[MadMetzger]

Das ist die Alternative... Habe ich eben auch erst nochmal nachgelesen, was denn die Klassenbibliothek sagt.

[ewald]

Ulrich,

ich krieg da nen Fehler in der Zeile
Set nam = session.UserName

SET may only be used on class instance assignments

Den Code hab ich im Querymodechange stehen

Gruß Ewald

[koehlerbv]

Set nam = New NotesName (session.UserName)
wäre die korrekte Syntax.

Bernhard

[ewald]

Perfekt Berhard, funktioniert einwandfrei.

Danke!

Grüße Ewald

[MadMetzger]

Alternative:

set nam = session.CreateName(session.UserName)