Neues Outlineentry in UserBookmarkOrder(in Bookmark.nsf)...

Hi,

lege mit folgendem Code einen neuen Bookmark in der Bookmarkbar von Notes an:

Dim outline As NotesOutline
	Dim NewOE As NotesOutlineEntry
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim thisdb As NotesDatabase
	Dim ws As New NotesUIWorkspace

	Set thisdb = ws.CurrentDatabase.Database
	Set db = New NotesDatabase( "", "bookmark.nsf" )
	Set outline = db.GetOutline("UserBookmarkOrder")

	Set NewOE = outline.CreateEntry("Uebersicht")
	Call NewOE.SetNamedElement(thisdb, "Uebersicht", 2196)

	'Call NewOE.SetNoteLink( DB )

	NewOE.ImagesText = "Link zur Uebersicht"

	Call outline.save()

Naja, klappt so halblebig, aber ich hab noch zwei Probleme:
- Der neue Bookmark wird nicht gleich angezeigt, sondern erst nach Neustart von Notes. Wie kann ich das umgehen bzw. die Bookmarkbar aktualisieren?
- Dem Bookmark wird ein StandartIcon zugewiesen. Gibt es nicht eine Möglichkeit dem Bookmark ein vernünftiges Icon zuzuweisen?

Grüsse

Hi RockWilder,

tja, das kommt davon wenn man in der Hilfe nicht richtig nachguckt! Dachte dieses property setzt einen Text zum Bild und nicht den Namen des Bildes!!! Naja, eine etwas unglückliche Namensgebung, aber was solls...

Hättest du mir jetzt noch nen Tip, wie ich Notes dazu bringe seine BookMarkBar zu aktualisieren, damit der Bookmark gleich angezeigt wird?

Grüsse