Feldinhalt in MsgBox anzeigen

[ewald]

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

[Driri]

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.

[ewald]

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

[Driri]

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.

[ewald]

Hallo Ingo,

funktioniert perfekt! Vielen Dank für die schnelle Hilfe.

Grüße Ewald