Die Smarticons sind Outlines.
Du musst dir einmal eine Toolbar und ein (oder mehrere) Icons erstellen.
Dann öffnest du die "bookmark.nsf" im Designer und kopierst dir unter "DesignerToolbar" (oder wo du es erstellt hast) den OutlineEntry für die Toolbar in eine neue Outline in deiner DB (im Beispielcode: 'parent')
Dann machst du das Selbe noch für das Icon und kopierst dieses ebenfalls in eine eigene Outline (='entry')
In deiner Ziel-DB hast du dann 2 Outlines ("parent" und "entry") mit je einem Eintrag.
Diese kannst du dann wie Folgt in eine bookmark.nsf kopieren (Logik, ob der Eintrag schon vorhanden ist, fehlt unten!)
| Set boutl = bookmarkDB.GetOutline("DesignerToolbar") |
| Set toutl = thisDb.GetOutline("parent") |
| Set srce = toutl.GetFirst() |
| Set parnt = boutl.CreateEntryFrom(srce) |
| Set toutl = thisDb.GetOutline("entry") |
| Set srce = toutl.GetFirst() |
| Set entry = boutl.CreateEntryFrom(srce,parnt,True,True) |
| Call boutl.Save() |
WICHTIG: Man darf die Entries nur kopieren, keinesfalls im Designer irgendwelche Eigenschaften ändern, da sie sonst nicht mehr funktionieren. Man muss dann i.d.R. Notes neu starten oder etwas an der Symbolleiste ändern, damit das Icon angezeigt wird
ggf nochmal nach "lotusscript smarticon NotesOutlineEntry" googlen
Gruß
Roland