Hallo Entwickler,
ich will im UI von einem gewählten Dokument das Body Feld in ein geöffnetes Dokument kopieren.
Im Backend funktioniert es ohne Probleme nur der Nutzer muss das Dokument neu öffnen.
Kann ich sowas mit Script auch im UI realisieren?
So das direkt das eingefügte Body Feld sichtbar ist.
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument,emaildoc As NotesDocument
Dim db As NotesDatabase
Dim rtitemA As Variant
Dim rtitemB As Variant
Set db = session.currentdatabase
Set uidoc = workspace.currentDocument
Set doc = uidoc.Document
doc.AutoReload = True
ProfDB="mail\mail.nsf"
ProfServer="server"
OrgView="($All)"
Set Auswahl=workspace.PickListcollection(PICKLIST_CUSTOM,True,ProfServer,ProfDB,OrgView,"Auswahl RAG","Wählen Sie eine Dokument aus")
If Auswahl.count = 0 Then
Exit Sub
End If
Set emaildoc=auswahl.getfirstdocument
Call uidoc.Save
Set rtitemA = doc.GetFirstItem( "Body_bea" )
Set rtitemB = emaildoc.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
Call uidoc.FieldAppendText _
( "Body_bea", rtitemB )
Call doc.Save(False, True)
Call uidoc.Close
End If
