notesRichTextItem.EmbeddedObjects ist leer??

[Detlef]

Hallo ,

wer weiß, warum mein notesRichTextItem.EmbeddedObjects feer ist?

Also, ich erstelle mit dem folgenden Script einen ViewLink.
...
Set rtitem = New NotesRichTextItem( proj_doc , "projekt_mails" )
  Call  rtitem.AppendDocLink( view, view.Name,  "Hier Klicken" )
  proj_doc.ComputeWithForm True,True
  proj_doc.save True,False
End If
...
soweit so gut. Jetzt möchte ich aber sicherstellen, das im rtitem noch kein Link enthalten ist, also dachte ich an die EmbeddedObjects. Diese sind aber leider immer leer. Warum weiß ich nicht. Selbst wenn ich von hand ein File im rtitem anhänge, sind die EmbeddedObjects leer.

Hat jemand einen Rat?

Danke
Detlef

[animate]

ein DocLink ist kein EmbeddedObject.

guck dir mal die NotesRichTextDocLink - Klasse an.

[koehlerbv]

Thomas stimme ich vollkommen zu. Wegen

Selbst wenn ich von hand ein File im rtitem anhänge, sind die EmbeddedObjects leer.

:
Das passiert auf jeden Fall dann, wenn Du VOR dem Speichern des Frontend-Documents im Backend nach EmbeddedObjects fahndest.
Ich kann mich auf jeden Fall über keine Fehlfunktion der genannten Property beklagen.

Bernhard

[Detlef]

Jo danke für den Denkanstoß!

habs jetzt so gelöst:
Set rtitem = proj_doc.GetFirstItem("projekt_mails")
Set rtnav = rtitem.CreateNavigator            
If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
    Call rtitem.AppendDocLink( view, view.Name,  "Hier Klicken" )
    proj_doc.ComputeWithForm True,True
    proj_doc.save True,False   
End If

Gruß
Detlef