ok, hier mal ein "quick hack"
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As notesdocumentcollection
Dim replyToUIDoc As NotesUIDocument
Dim stationeryDoc As NotesDocument
Set db = session.CurrentDatabase
Set replyToUIDoc = ws.ComposeDocument("","","Reply")
Set collection = ws.Picklistcollection(PICKLIST_CUSTOM, False, db.server, db.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
Set stationeryDoc = collection.getfirstdocument
If Not stationeryDoc Is Nothing Then
Dim stationeryBodyItem
Set stationeryBodyItem = stationeryDoc.getfirstitem("Body")
Call replyToUIDoc.GotoField( "Body" )
Call replyToUIDoc.SelectAll
Call replyToUIDoc.Cut
Call replyToUIDoc.InsertText( stationeryBodyItem.GetFormattedText( False, 0 ) )
Else
Call replyToUIDoc.Close
End If
End Sub