Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: buzi am 03.05.16 - 11:02:53

Titel: DocLink aus RichTextItem auslesen
Beitrag von: buzi am 03.05.16 - 11:02:53

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!

Titel: Re: DocLink aus RichTextItem auslesen
Beitrag von: ascabg am 03.05.16 - 12:07:27

Hallo,

Eventuell bringen dich ja diese beiden Klassen weiter.

NotesRichtTextNavigator und NotesRichTextDocLink


Andreas

Titel: Re: DocLink aus RichTextItem auslesen
Beitrag von: buzi am 03.05.16 - 12:47:45

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

        ...