Hallo,
wenn ich in einem geöffnetem Dokument über eine Picklist ein Richtextfeld aus dem gewählten Dokument auslese/kopiere und dann ins uidoc einfüge (Textbausteinfunktion), zeigt es mir den Inhalt zunächst nicht an. Nach einem Speichern, Schließen und erneutem Öffnen sehe ich dann das Kopierte ??
Hat mir jemand einen Tipp, wie ich das sofort sehen kann?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim P_SRV As String
Dim P_DB As String
Dim P_VIEW As String
Dim P_TIT As String
Dim P_TXT As String
Dim x0 As String
Dim x1 As Variant
Set uidoc=workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
P_SRV = "Server01/de"
P_DB = "alle\aaw.nsf"
P_VIEW = "($ADM2)"
P_TIT = "Auswahl"
P_TXT = "Bitte wählen Sie den gewünschten Textbaustein aus."
Set collection = workspace.PickListCollection(PICKLIST_CUSTOM, True, P_SRV, P_DB, P_VIEW, P_TIT, P_TXT )
Set docp = collection.GetFirstDocument
Call uidoc.save
Set rtitemB = docp.GetFirstItem( "RF02" )
Set rtitemA = doc.GetFirstItem( "RT1" )
If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
doc.SaveOptions = "0"
Call doc.Save(False, True)
Call uidoc.Reload
Call uidoc.Refresh
Call uidoc.save
End If
End Sub
Vielen Dank für Tipps.
Gruß Anton
