Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 16.12.02 - 13:11:17
-
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
-
Hi,
vielleciht bringt dir session.CommonUsername was. Das benutze ich immer.
Axel
-
hi Axel,
in diesem fall nutzt das nicht, da ich nicht den
Session user benötige.
Danke
Don Pasquale
-
{
text1 = "@Name([CN]; Bearbeiter)"
tmp_feld_1 = Evaluate(text1,doc)
}
...probiere mal:
text1 = {@Name([CN]; "} & Bearbeiter & {")}
Sorry, war wieder ein wenig hastig
-
probiers mal ueber die notesName - Klasse.
Feine sache ist das.
till
-
Dim Benutzer As New NotesName(doc.Bearbeiter(0))
tmp_feld_1 = Benutzer.common
cu