DocLink aus RichTextItem auslesen

[buzi]

Hallo zusammen,

wie kann ich denn den Rückweg von appendDocLink gehen? Also DocLink im RichTextItem ablegen ist klar.

Code

Call rtitem.AppendDocLink(kontaktDoc, "Kontakt")

Und was, wenn ich aus dem RichTextItem wieder das Dokument herausholen will?

Mein Versuch:

Code

	Dim rtKontakt As NotesRichTextItem
	Dim rtEmbObj As NotesEmbeddedObject
 
	Set rtKontakt = doc.GetFirstItem("Kontakt")
	Set rtEmbObj = rtKontakt.Embeddedobjects(0)

Nur, wie bekomme ich aus dem NotesEmbeddedObject den DocLink bzw. das NotesDokument heraus? Ich habe schon viel gesucht, mit Sicherheit weis einer von euch wo die Lösung eh schon steht.... oder??

DANKE!

[ascabg]

Hallo,

Eventuell bringen dich ja diese beiden Klassen weiter.

NotesRichtTextNavigator und NotesRichTextDocLink


Andreas

[buzi]

Danke, die Lösung ist einfach. Ich hatte den Navigator schon gesehen, aber nicht entdeckt, dass man sich dort die Objekte direkt raus holen kann.

Code

	Set rtKontakt = angDoc.GetFirstItem("Kontakt")
	Set rtNav = rtKontakt.CreateNavigator()
	Set rtDocLink = rtNav.GetFirstElement(5)
	
	If rtDocLink Is Nothing Then
		MessageBox "Es ist kein Dokument zugeordnet!", 48, "Aktion nicht möglich"
		Exit Sub 
	End If
	
	universalIDAdr = rtDocLink.Docunid
 
        ...