embed attachment per lotus script mit icon

[Green]

ich möchte eine datei mittels lotus script backend einem dokument anhängen, so wie es der command @Command([EditInsertFileAttachment]) macht.
die datei wird auch mittels script angehängt aber im unterschied zur formula mit einem hässlichen grauen icon.

kennt jemand eine lösung um das icon auch backend hinzukriegen?

mein code:

Dim session As New NotesSession
Dim db As NotesDatabase

Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Dim rtitem As New NotesRichTextItem(doc, "Body")

doc.Form = "frmTest"
Call rtitem.EmbedObject(EMBED_ATTACHMENT,"","c:\Folder.gif")
Call doc.Save(True,False)

[Axel]

Das hatten wir hier schon öfters.

Fazit: mit Backend-Funktionen ist das nicht zu machen.


Axel