@Name([CN];Username) in Script

[Don Pasquale]

Hallo liebe Notes-Gemeinde,

ich benötige Eure Hilfe.

Ich habe eine Variable Bearbeiter, da steht ein Benutzername drin, aber im Format cn=Name/o=orga
Wie kann ich in Script das erhalten, was die Formelsprache
mit @Name([CN];Username) erstellen würde.
Ich habe einen Versuch mit Evaluate gemacht,
aber nur eine Fehlermeldung erhalten.

Wer mag mir helfen ?


Ciao

Don Pasquale

[ata]

... nimm

vName = Evaluate("Formel")

ata

[Axel]

Hi,

versuch' mal mit

Dim session As New NotesSession
Dim strName As String

strName = session.CommonUsername


Axel

[Don Pasquale]

Vielen Dank Ihr Beiden, ich hab es jetzt.

@Axel:  Leider habe ich vergessen zu erwähnen, dass der Bearbeiter nicht der aktuelle User ist.  

@Ata: Also war ich auf der Spur :-)

Das Problem lag u.A. daran, dass ich den Bearbeiter nur als Variable in Script hatte, ich musste ihn aber in ein Feld im Dokument schreiben.

So funzt es bei mir.


Dim Bearbeiter As String
Dim BearbeiterAnzeige As Variant

Dim item As NotesItem
Dim Text As String

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim Session As New NotesSession
Dim db As NotesDatabase
   
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.document
Set db = session.CurrentDatabase   
   
Bearbeiter = IstBearbeitervonID(uidoc.FieldGetText("e4fldIdentnummer"))
Set item = doc.ReplaceItemValue("Bearbeiter",Bearbeiter)   
   
text = "@Name([CN];Bearbeiter)"
BearbeiterAnzeige = Evaluate(text,doc)
      
      
@Axel
@Anton

Herzlichen Dank Ihr Beiden.


Viele Grüße

Don Pasquale