Domino 9 und frühere Versionen > ND8: Entwicklung

Text hinter Doc-Link in RT-Feld schreiben

<< < (3/4) > >>

awagner:
Jetzt kann ich auf jeden Fall schon was schreiben  :) :) :)

nru leider kommt jetzt in der Zeile
"Loop While rtnav.FindNextElement" die Fehlermeldung
"Position is not valid"

 ??? ??? ???

Driri:
Kannst Du bitte noch einmal den Code posten, wie er jetzt ist ?

awagner:
klar...


--- Code: ---Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink

Dim doc_neu As NotesDocument
Dim db_neu As NotesDatabase
Dim rtRange As NotesRichTextRange

Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set rti = doc.GetFirstItem("Body")
Set rtnav = rti.CreateNavigator

'Mail-DB von User
Set db_neu = New NotesDatabase("Server", "mail.nsf")

If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
Messagebox "No doclinks in Body item",, "No doclinks"
Exit Sub
End If
Do
Set rtlink = rtnav.GetElement
msg$ = "Replica ID = " & rtlink.DbReplicaID
If  rtlink.ViewUNID <> String$(32, "0") Then
msg$ = msg$ & Chr(13) & "View UNID = " & rtlink.ViewUNID
End If
If  rtlink.DocUNID <> String$(32, "0") Then
msg$ = msg$ & Chr(13) & "Doc UNID = " & rtlink.DocUNID
End If
'Messagebox msg$,, rtlink.DisplayComment
Set doc_neu = db_neu.GetDocumentByUNID(rtlink.DocUnID)
'Messagebox doc_neu.subject( 0 )

Call rti.BeginInsert( rtnav )
Call rti.AppendText( doc_neu.subject( 0 ) & " => ")
Call rti.EndInsert

'Betreff bei Kommentar einfügen und speichern
Call doc.Save( True, False )
Loop While rtnav.FindNextElement
End Sub
--- Ende Code ---

Driri:
Da fehlt auch ein Parameter bei FindNextElement im Loop.

Das Save würde ich auch hinter die Schleife stellen, sonst speicherst Du ja in jedem Durchgang das Dokument einmal.

awagner:
und welche wären das?
habs jetzt mit Loop While rtnav.FindNextElement(5, 1)
und es kommt die gleiche Fehlermeldung

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete