Hallo zusammen,
ich habe eine Datenbank.
In dieser Datenbank gibt es eine Maske "BRIEF" und eine Maske "TEXTBAUSTEIN".
Wenn ein leerer "BRIEF" erstellt wird, soll per Button aus einer Picklist von abgespeicherten "TEXTBAUSTEINEN" ein Baustein ausgewählt werden können.
Wenn ein "TEXTBAUSTEIN" ausgewählt wurde soll aus der Maske "TEXTBAUSTEIN" ein enthaltenes RTF in den leeren "BRIEF" kopiert werden.
Den Textbaustein in der Piclist kann ich auswählen, jedoch übernimmt er das RTF Feld nicht.
Vielleicht kann mir jemand helfen....
Anbei der gesamte Code aus dem Button
Code
Sub Click(Source As Button)
Dim wsp As New NotesUIWorkspace
Dim sourceuidoc As NotesUIDocument
Dim sourcedoc As NotesDocument
Dim curruidoc As NotesUIDocument
Dim currdoc As NotesDocument
Dim ns As New NotesSession
Dim db As NotesDatabase
Set db=ns.CurrentDatabase
'PICKLIST START
Dim picklist As Variant
Dim messagelist As String
picklist = wsp.PickListStrings( _
PICKLIST_CUSTOM, _
True, _
db.Server, _
db.FilePath, _
"ANSICHT_Textbaustein", _
"Baustein-Auswahl", _
"Bitte ein Baustein auswählen.", _
4)
'PICKLIST ENDE
Dim item1 As NotesRichTextItem
Dim item2 As NotesRichTextItem
Set sourcedoc=sourceuidoc.Document
Set currdoc=curruidoc.Document
Set item1 = sourcedoc.GetFirstItem("TEXTBAUSTEIN_RTFFELD")
Set item2 = currdoc.GetFirstItem( "BRIEF_RTFFELD" )
Call item2.appendrtitem(item1)
End Sub
Alles anzeigen
Danke