title image


Smiley Re: ich würds mit Script versuchen...
Hallo Matthias,



versuchs mal mit folgendem Code:



Dim session As New NotesSession

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Dim collection As NotesDocumentCollection

Dim coldoc As NotesDocument

Dim newDoc As NotesDocument

Dim rtitem As NotesRichTextItem

Dim doc2 As NotesDocument

Dim uidoc As NotesUIDocument

Dim unid As String

Dim item As NotesItem





Set db=session.CurrentDatabase

Set uidoc = ws.CurrentDocument



Call uidoc.Save

Set Doc2 = uidoc.Document



Set collection = ws.PickListCollection(1, True,"", "Test-DB.nsf","Ansicht","Dialog", _

"Please select a document or two.")

Set coldoc = collection.GetFirstDocument



Set rtitem = New NotesRichTextItem( Doc2, "Link" )

Call rtitem.AppendDocLink( coldoc, "Dokument" )

Doc2.Form = "Datum"

Doc2.Saveoptions = "0"

Call Doc2.Save(True, False)

unid = Doc2.UniversalID



Set Doc2 = db.GetDocumentByUNID( unid )





Set uidoc = ws.EditDocument( Doc2 )



uidoc.editmode = True







In eine Aktionsschaltfläche. Der link ist drin und schon gespeichert. Der einzige Wermutstropfen ist, daß weitere Änderungen des im Edit-Mode geöffneten Dokuments nicht gespeichert werden bei esc.-Taste.



Das müßte dann noch in einer separaten Schaltfläche passieren.



Gruß

FPN60

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: