|
Om toegang te krijgen tot het "About Document kun je eenvoudig naar het document openen met het noteID. Het document dient al wel aanwezig te zijn in de database!
Het "About document" heeft altijd FFFF0002 als noteID, "Using this database" FFFF0100.
Deze voorbeeld code zet een doclink naar het eerste document uit een view in de About database:
Dim db As notesdatabase Dim Session As New NotesSession Dim AboutDoc As notesdocument Dim Body As NotesRichTextItem Dim View As NotesView Dim doc As NotesDocument Set db = Session.CurrentDatabase Set View = db.GetView("test") Set aboutdoc = db.getdocumentbyid("FFFF0002") If AboutDoc Is Nothing Then Exit Sub Call AboutDoc.RemoveItem("$Body") Set body = New NotesRichTextItem(AboutDoc,"$Body") Set doc = view.GetFirstDocument If Doc Is Nothing Then Exit Sub Call body.AppendDocLink(Doc,"") Call aboutdoc.Save(True,False)
|