title image


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



das Problem mit der Fehlermeldung "Couldn´t get default view for database (G:\Documente\test.nsf)" habe ich in den Griff bekommen.



Jedoch erstellt mir das Script keinen DokLink im angegebenen RichText-Feld.



Wo könnte das Problem liegen ? Bin für jeden Hinweis dankbar.



-------------------------------------------------------------------------

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim session As New notessession

Dim db As notesdatabase

Dim invdoc As notesdocument

Dim testdoc As notesdocument

Dim rtitem As notesrichtextitem



Set db = session.currentdatabase

Set view = db.getview("(TEST-Auswahl)")



Set testdoc = Source.document

Set invdoc = db.getdocumentbyunid(testdoc.unid(0))

Set rtitem = New notesrichtextitem(testdoc, "LINK")



Call rtitem.AppendText("")



Print "Test1"



Call rtitem.AppenddocLink(invdoc, "Test Link")



Print "Test2"



End Sub

-------------------------------------------------------------------------





MfG

Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: