Hallo André,
geniale Lösung. Auch wenn ich es noch nicht beim Kunden testen konnte. Aber so wie es aussieht, wird mit dieser Lösung überhaupt keine Umleitung vorgenommen, sondern es ist schlicht das Ergebnis der URL. Habe es jetzt hier sofort umgesetzt und beim mir getestet. Funktioniert einwandfrei. Es wird nicht einmal ein extra Fenster aufgemacht.
Wenn es interessiert, hier die Umsetzung des Agenten:
Sub Initialize
Dim session As New NotesSession
Dim ctx As NotesDocument
Dim doc As NotesDocument
Dim view As NotesView
Dim rtItem As NotesRichTextItem
Dim param List As Variant
Dim i As Integer
Set ctx = session.DocumentContext
i = GetURLParam(ctx.Query_String_Decoded(0), param)
Set view = session.CurrentDatabase.GetView("viewLookupByKey")
Set doc = view.GetDocumentByKey(param("ID"), True)
If (doc Is Nothing) Then Print "<h1>Not Found</h1>The requested URL was not found on this server." : Exit Sub
Set rtItem = doc.GetFirstItem("rtFile")
Print "[" & Strleftback(ctx.Path_Translated(0), "/") & "/" & doc.UniversalID & "/$File/" & rtItem.EmbeddedObjects(0).Name & "]"
End Sub
GetURLParam berechnet nur eine Liste der Parameter in der Form [PARAM] := Wert.
Der Agentenaufruf erfolgt dann so:
http://server/db/OpenFile?OpenAgent&id=primärschlüssel
Vielen Dank für die Hilfe.
Gruß,
Joachim