Hallo!
Ich muss zu dem Thema doch nochmal nachfragen. Der folgende Script funktioniert bei den meisten Docs in der Ansicht, aber bei manchen bringt er den Fehler "invalid universal id", wenn ich mir das beim Link hinterlegte Doc ("... set docLink ... ) öffnen will:
Sub Initialize
Dim session As NotesSession
Dim dirLink As NotesDbDirectory
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim MailDoc As NotesDocument
Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Dim x As Variant
Dim odosview As NotesView
Set session = New NotesSession
Set db = session.CurrentDatabase
Set odosview = db.GetView( "1A" )
Set doc = odosview.GetFirstDocument
Do While Not(doc Is Nothing)
'ROUTINE
Set rti = doc.GetFirstItem("GROB_ABLAUF")
Set rtnav = rti.CreateNavigator
On Error Goto NächstesDokument
If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
Resume NächstesDokument
End If
Do
LDoc$ =""
View$=""
server$ =""
On Error Goto ErrHandler
Set rtlink = rtnav.GetElement
server$="Servername"
End If
DbRep$ = rtlink.DbReplicaID
Dim dbLink As New NotesDatabase( "", "" )
On Error Goto InvalidUNID
If Not dbLink.OpenByReplicaID(server$, DbRep$ ) Then
Messagebox "No local replica",, "Cannot find database"
Exit Sub
End If
'd = dbLink.OpenByReplicaID( server$, DbRep$ )
If rtlink.ViewUNID <> String$(32, "0") Then
Meldung$ = rtlink.DisplayComment
View$ = rtlink.ViewUNID
End If
If rtlink.DocUNID <> String$(32, "0") Then
LDoc$ = rtlink.DocUNID
Dim docLink As NotesDocument
Set doclink=Nothing
On Error Goto ErrHandler
Set docLink = dbLink.GetDocumentByUNID( rtlink.DocUNID )
Messagebox docLink.NrUndGliederungGesamt(0),, "Subject of document"
End If
Loop While rtnav.FindNextElement
NächstesDokument:
Set doc = odosview.GetNextDocument(doc)
Loop
Exit Sub
ErrHandler:
Messagebox "Cannot locate document",, "No document"
Resume NächstesDokument
InvalidUNID:
Messagebox "Cannot locate document",, "No document"
Resume NächstesDokument
End Sub
Kann mir bitte jemand sagen, welchen Grund das haben kann?
Oder auch, wie ich den Fehler umgehen kann, denn das "On Error Goto ErrHandler" funktioniert hier irgendwie nicht.
Danke
Tino