Listenfeldauswahl berechnen?

    Ich habe ein Dialogfeld das aus einer Mail heraus geöffnet werden kann.
    Im PostOpen des Dialogfeldes gehe ich die Anhänge der Mail durch und lasse sie mir in ein Feld schreiben.


    Hier der Code:


    Sub Postopen(Source As Notesuidocument)
    Dim doc As Notesdocument
    Dim item1 As notesrichtextitem
    Dim item2 As notesitem
    Set doc=Source.document
    Set item1 = doc.GetFirstItem( "Body" )
    Set item2 = doc.getfirstitem("hiddenAnhänge")
    If ( item1.Type = RICHTEXT ) Then
    Forall o In item1.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    Call item2.appendtotextlist(o.name)
    End If
    End Forall
    End If

    End Sub


    Soweit funktioniert es auch. Nun möchte ich die im Feld hiddenAnhänge gelisteten einzelnen Anhänge in einem Listenfeld als Auswahl anzeigen.


    Ist dies möglich und wenn ja wie? Wenn nein gibt es einen anderen Ansatz um dies zu lösen?