Hab jetzt "strLeft" benutzt.
Doch ich habe ein Casting Problem:
Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Set uiDoc = ws.CurrentDocument
If (uiDoc.FieldGetText("ManagerNameGeordnet") = "") Then
Dim nameTest As New NotesName(uiDoc.Document.getItemValue("ManagerName")(0))
Dim strCommonName As String
Dim strLeer As String
strLeer = " "
strCommonName = nameTest
Ich kann das NotesName-Ding nicht in einen String umwandeln! Wie geht das?
strCommonName = Strleft(CommonName, strLeer)
End If
Call uidoc.FieldSetText("ManagerNameGeordnet", strCommonName)