Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Detlef am 13.07.04 - 16:34:18

Titel: notesRichTextItem.EmbeddedObjects ist leer??
Beitrag von: Detlef am 13.07.04 - 16:34:18

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

Titel: Re:notesRichTextItem.EmbeddedObjects ist leer??
Beitrag von: animate am 13.07.04 - 17:16:37

ein DocLink ist kein EmbeddedObject.

guck dir mal die NotesRichTextDocLink - Klasse an.

Titel: Re:notesRichTextItem.EmbeddedObjects ist leer??
Beitrag von: koehlerbv am 13.07.04 - 17:41:13

Thomas stimme ich vollkommen zu. Wegen

Zitat

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

Titel: Re:notesRichTextItem.EmbeddedObjects ist leer??
Beitrag von: Detlef am 13.07.04 - 20:48:47

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