Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: ewald am 16.05.07 - 10:26:34
-
Hallo,
hab ein (wahrscheinlich) relativ einfaches Problem mit einer MsgBox:
Ich hab in der Form ein Feld CurrUser stehen. Das beinhaltet einen Notes namen. Nun möchte ich in einer MsgBox, bei der man mit Yes oder No entscheiden kann, einen Text ausgeben und zwischendiesem Text auch noch den Inhalt dieses Feldes CurrUser. Dazu hab ich folgenden Code, der bis auf den MsgBox Teil auch soweit funktioniert.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.currentdocument
Set doc = ws.currentdocument.document
Dim rc As Integer, boxtitle As String
boxtitle = "Info"
rc = Msgbox ("Die Mail wird an " + doc.CurrUser(0) + " geschickt. Möchten sie weitermachen." , 4 , boxtitle)
If rc = 6 Then
Msgbox "weiter"
'weiterer code
Else
Msgbox "schluss"
End If
End Sub
Nur das mit dem doc.CurrUser(0) funktioniert nicht. Wie zeig ich denn in der MsgBox den Inhalt dieses Feldes an?
Grüße Ewald
-
Hallo,
zwei Dinge :
1) ws ist nicht definiert. Bei "Set uidoc =..." sollte das Script also schon aussteigen.
2) In Script wird Text mit "&" verkettet.
Ansonsten sollte das so funktionieren.
-
Ingo,
funktioniert super. Allerdings hab ich bei dem Namen jetzt auch noch CN OU und O drinstehen. Kann ich denn an der Stelle im Script das beeinflussen oder muss ich das Feld entsprechend ändern (Abbreviate)?
Ewald
-
Hallo,
da hast Du zwei Möglichkeiten. Entweder benutzt Du Evaluate und erzeugst dann mit @Name den gekürzten Namen oder Du wandelst den Inhalt des Feldes in ein Objekt vom Typ NotesName um und kannst dann dort hin- und herkonvertieren.
Grob sähe das dann so aus :
Dim result As Variant
result = Evalute(|@Name([Abbreviate];"| & doc.CurrUser(0) & |")|
oder eben
Dim user As NotesName
Dim userAbr As String
Set user = New NotesName(doc.CurrUser(0))
userAbr = user.Abbreviated
Aber Achtung, das ist jetzt frei dahingeschrieben. Kontrolliert vorsichtshalber mal anhand der Designer-Hilfe.
-
Hallo Ingo,
funktioniert perfekt! Vielen Dank für die schnelle Hilfe.
Grüße Ewald