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") ' = Name der Toolbar
Set srce = toutl.GetFirst()
Set parnt = boutl.CreateEntryFrom(srce) ' Haupteintrag (=Toolbar) in der bookmark erstellen
Set toutl = thisDb.GetOutline("entry") ' = Icon
Set srce = toutl.GetFirst()
Set entry = boutl.CreateEntryFrom(srce,parnt,True,True) ' Unter dem Haupteintrag das Symbol anhängen
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