Evaluate CN Name in LotusScript ???

[Don Pasquale]

Hallo LN- Fans,

Es ist doch alles so klar und einfach,
ich muss sichergehen, dass alle
Namen im CN Format vorliegen.

Aber die Evaluate Funktionen werden nicht
ausgewertet.


   Dim IDENT As String   
   Dim ADRESSAT As String
   Dim Kommando As Integer   
   Dim Bearbeiter As String
   Dim CN_Bearbeiter As String
   Dim CN_Adressat As String
   Dim Anzeige As String
   Dim item As NotesItem
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim Session As New NotesSession
   Dim db As NotesDatabase
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.document
   Set db = session.CurrentDatabase   
   
   ADRESSAT = uidoc.FieldGetText("e4fld_Weiterleiten")
   IDENT       = uidoc.FieldGetText("e4ihk_Identnummer")
   Bearbeiter    = IST_BEARBEITER_VON_ID(IDENT)
   
   
   Dim Text1 As String
   Dim Text2 As String
   text1 = "@Name([CN]; Bearbeiter)"
   text2 = "@Name([CN]; ADRESSAT)"
   
   tmp_feld_1 = Evaluate(text1,doc)
   cn_bearbeiter = tmp_feld_1
   tmp_feld_2 = Evaluate(text2,doc)
   CN_Adressat = tmp_feld_2(0)


wer hilft ?

ciao

Don Pasquale

[Axel]

Hi,

vielleciht bringt dir session.CommonUsername was. Das benutze ich immer.

Axel

[Don Pasquale]

hi Axel,
in diesem fall nutzt das nicht, da ich nicht den
Session user benötige.

Danke

Don Pasquale

[wflamme]

{
text1 = "@Name([CN]; Bearbeiter)"
tmp_feld_1 = Evaluate(text1,doc)
}

...probiere mal:

text1 = {@Name([CN]; "} & Bearbeiter & {")}

Sorry, war wieder ein wenig hastig

[Till_21]

probiers mal ueber die notesName - Klasse.
Feine sache ist das.
till

[Performance]

Dim Benutzer As New NotesName(doc.Bearbeiter(0))
tmp_feld_1 = Benutzer.common


cu