Hallo,
ich lege per folgendem Script ein Lesezeichen in der bookmark.nsf des Anwenders an. Die wichtigen Stellen sind fett im Code markiert.
Sub Click(Source As Button)
Dim session As New notessession
Dim db As notesdatabase
Dim db2 As New NotesDatabase("","")
Dim outline As notesoutline
Dim entry As notesoutlineentry
Dim FirstEntry As notesoutlineentry
'Open the bookmark database
Set db = New NotesDatabase ("","bookmark.nsf")
'Get the handle of the UserBookmarkOrder outline
Set outline = db.GetOutline( "UserBookmarkOrder")
Set LastEntry=outline.GetFirst()
'Create the entry in the bookmark bar
Set entry = outline.Createentry("Title",LastEntry,True)
Call entry.Setaction("@Command[FileOpenDatabase];""Server"":""mydb.nsf"")")
entry.Label="Meine DB"
'entry.Imagestext="C.\Temp\logo.gif"
'Das geht nicht!
entry.imagestext="$Icon"
' Das geht, zeigt aber das DB-Icon der bookmark.nsf an
'entry.imagestext="mypic.gif"
'das geht, zeigt aber nur Bildressourcen der boookmark.nsf an
Call outline.save()
End Sub
Klappt soweit ganz gut, aber: Ich will als Icon das DB-Icon der "mydb.nsf" nutzen. Es muss ja irgendwie gehen, da ich das ja über das UI einfach festlegen kann. Hat jemand eine Idee.
alternativ könnte ich natürlich eine Bildressource in der bookmark.nsf anlegen, aber wie mache ich das denn per Sript?
Vielen Dank für Ideen oder auch nur ein Forget it, warte auf Notes 10.x