@Axel: ja hab ich schon probiert, aber er hängt mir das immer am Ende des Feldes dran.
@Diri: nein, die DocLinks hat der User per Drag&Drop reingehängt. Ich möchte jetzt hinter den Link einen Text schreiben, der den DocLink näher beschreibt.
@klauss: Ist eigentlich 1zu1 der code aus der Designer-Hilfe, nur ich möchte halt jetzt das bisschen anpassen
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 )
'Betreff bei Kommentar einfügen und speichern
rtlink.DisplayComment = doc_neu.subject( 0 )
Call doc.Save( True, False )
Loop While rtnav.FindNextElement
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