If you want an icon, you should try attaching to the doc instead of embedding.

Pascal.

Hi Pmonnet,

i didn't use embed (i think..) I created an object. When i do this manually i have an option that changes the (word)object to a pictogram in stead of showing the full document. That is what i'm trying to do in VBA...

grtz Flippertje

This is my code:

============================================

dim workspace
dim uidoc
dim bestand9 as string

bestandje="H:\meldingkje.doc"

set workspace=createobject("Notes.NotesUIWorkspace")
set uidoc=workspace.composedocument("servername","databasename","nameofNewNotesDocument")

call uidoc.gotofield ("Fieldname where Attachment will be put")
uidoc.editmode=true
call uidoc.createobject("TestOpject", , bestandje)

set workspace=nothing
set uidoc=nothing
============================================


Many thanks for your trouble!!!

Indeed, you are creating an object, which means you are embedding, not attaching (in NotesSpeak).
I think you should try to use a createobject method instead. That would most probably give you the icon you want.

Pascal.

I'm a superdeluxe beginner at this so this is a dumm question... but what should i try to change to createobject?

Many thanks already!

grtz Flippertje

You will need a NotesRichTextItem and you will probably need to create it on the NotesDocument object - at least, that is the way to do it LotusScript.
Once you have your NotesDocument and RTitem objects, then you use the EmbedObject method of the RTitem class (embeddedObject.EMBED_ATTACHMENT for Java).

That should sort you out.

Pascal.