Hallo zusammen,
ich hab ein kleines Problem mit einem Schalter, der mir aus einem auswählbaren Vorlagendokument den Inhalt eines RichText-Feldes in mein aktuell geöffnetes Dokument (neu, nicht gespeichert) kopieren soll. Leider bin ich kein Script-Profi und sehe den vermutlich offensichtlichen Irrtum nicht. :)
Ich habe es mit folgendem Code versucht:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doctext As NotesDocument 'Quelle des Richtextfelds
Dim uidoc As NotesUIDocument
Dim docantwort As NotesDocument
Dim view As NotesView
Dim rtitem_Source As NotesRichTextItem
Dim rtitem As NotesRichTextItem
Dim pickView As String
Dim picklist As Variant
Dim messagelist As String
Set db = session.CurrentDatabase
Set view = db.GetView( "Textblöcke" )
pickView = "Textblöcke"
Set uidoc = workspace.CurrentDocument
Set docantwort = uidoc.Document
picklist = workspace.PickListStrings( _
PICKLIST_CUSTOM, _
False, _
db.Server, _
db.FilePath, _
pickView, _
"Mustertext wählen", _
"Bitte den gewünschten Mustertext auswählen", _
4)
Forall plist In picklist
messagelist = messagelist & plist & Chr(10)
End Forall
Set doctext = view.GetDocumentByKey( Trim(messagelist) )
Set rtitem_Source = doctext.GetFirstItem( "TB_RTBody" )
'Set rtitem = rtitem_Source.CopyItemToDocument( docantwort, "TB_Body")
Call docantwort.CopyItem( rtitem_Source, "TB_Body" )
Call uidoc.Refresh
Call uidoc.Save
Call uidoc.Reload
End Sub
Leider bleibt mein Anzeigefeld für den hineinkopierten Mustertext leer, obwohl das Script ohne Fehlermeldung durchläuft und ich im Debuger auch sehe, dass den beiden rtItems die im Mustertext hinterlegten Inhalte zugewiesen werden.
Ich mache also was falsch und wäre für einen Schubs in die richtige Richtung dankbar.