title image


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



ich bekomms leider nicht auf die Reihe.



Ich habe mir zum Test eine neue Maske angelegt.



Das RichTextFeld "PC1" soll den Doklink enthalten.

Das Textfeld "UNID" enthält die DokumentUniqueID des Dokuments auf das der Link zeigen soll.



Unter QuerySave der Maske habe ich folgendes Eingetragen.



Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim session As New NotesSession

Dim db As NotesDatabase

Dim rtitem As NotesRichTextItem

Dim doc As NotesDocument



Set db = session.CurrentDatabase

Set Doc = Source.Document



Set rtitem = New NotesRichTextItem(Doc, "UNID")

Call rtitem.AppendDocLink(doc.unid(0),"TEST")

End Sub



So bekomme ich die Fehlermeldung "Variant does not contain a container".



Zum Test habe ich die UNID des Dokuments direkt eingetragen



Call rtitem.AppendDocLink("05BD366A6E4EC675C1256F9700354C5F","TEST")



Jetz bekomme ich die Fehlermeldung "AppendDocLink requires a NotesDocument, NotesView or Database argument".



Kan mir jemand weiterhelfen wo der Fehler liegt.



Dank im voraus.



MfG

Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: