Tab läßt sich nicht in Memo ziehen

[botschi]

Hallo,

in unserem Ticketsystem gibt es in der Seite einen Knopf, der den User auffodert eine Ticketnummer einzugeben, wenn es das Ticket mit der Nummer gibt, wird dies im Lesemodus in einem neuen Tab geöffnet.

Bis dahin alles in Ordnung.
Nun läßt sich der neue Tab aber nicht mehr in ein Memo oder in ein anderes RT-Feld ziehen, sodass es dort als Verknüpfung auftaucht.

Öffne ich das gleiche Ticket aber manuell, läßt es sich wie gewohnt in ein RT-Feld ziehen.
Ich habs nicht geglaubt, vermute aber jetzt auch, dass es mit meinem Knopf zu tun hat.

Kann das jemand erklären?
Oder noch besser, kennt jemand eine Lösung für das Problem?
Gibt es vielleicht eine Clienteinstellung, die sowas bewirken könnte?

Der Code:
Dim s As New NotesSession
   Dim tts As notesdatabase
   Dim view As NotesView
   Dim ws As New NotesUIWorkspace
   Dim ticket As NotesDocument
   Dim coll As notesdocumentcollection ' alle treffer für die v-nummer
   Dim suchformel As String ' formel für die db-suche der v-nummer
   
   Set tts = s.CurrentDatabase
   Set view = tts.GetView("(Tickets nach Ticketnummer)")
   
   Dim ticketnummer As Variant
   ticketnummer = Trim(ws.Prompt (PROMPT_OKCANCELEDIT,    "Gehe zu Ticket...", "Bitte geben Sie eine Ticketnummer ein. (Unterstrich sucht nach externer Ticketnummer)"))
   If ticketnummer = "" Then
      Exit Sub
   End If
   
   Dim formel As String
   formel = |@replaceSubstring("| & Cstr(ticketnummer) & |";" ";"")|   
   ticketnummer = Evaluate (formel)
   If ticketnummer(0) <> "" Then
      Dim laenge As Integer
      laenge = Len(Cstr(ticketnummer(0)))
      ' wenn das erste zeichen ein unterstrich ist, soll eine v-numer gesucht werden
      'suchformel = |Form = "Ticket" & @contains(externref;| & Cstr(ticketnummer) &|)|
      suchformel = |Form = "Ticket" & (@right(externref;| & laenge & |) = "| & ticketnummer(0) &|" & !@IsResponseDoc)|
      
      If Left(Cstr(ticketnummer(0)),1) = "_" Then
         Set coll = tts.Search( suchformel, Nothing, 0 )   
         Set ticket = coll.GetFirstDocument   
      Else      
         Set ticket = view.GetDocumentByKey(Cstr(ticketnummer(0)), True)
      End If
      
      If Not ticket Is Nothing Then
         Call ws.EditDocument(False, ticket)
      Else
         Msgbox "Es gibt kein Ticket mit dieser Ticketnummer", 64 , "Ticket nicht gefunden"
      End If
   End If

Danke für Hilfe!
Gruss Matthias