POPUP "Lesebestätigung senden ja/nein" blockiert Client

[VolkerBr]

Ich habe in der Mailschablone die Möglichkeit implementiert Lesebestätigungen zu deaktivieren. Code siehe bitte ganz unten.

Klappt soweit auch gut.
Gibt aber folgenden Problemfall bei folgender Arbeitsweise:

Ich gehe in die Maileingang und öffne eine beliebige Mail und sage oben in der Leiste "Löschen". Dann wird diese Mail gelöscht und automatisch die nächste Mail geöffnet, usw.
Wenn dann aber die nächste Mail eine Lesebestätigung erhält tritt das Problem auf.
Nach dem Löschen der Mail, friert Notes ein, bevor es die Mail  mit der Lesebestätigung öffnet. Im Taskmanager steht nlnotes.exe auf 99 CPU-Nutzung.
Der Lotusclient ist gesperrt, man sieht nur noch einen Teil der gelöschten Mail und eine weiße Fläche. Das Phänomen ist wiederholbar.
Für den normalen Uer ist Notes abgestürzt und er bootet seinen PC durch.

Mit ALT+TAB läßt sich das Problem lösen. Der Grund ist nämlich,
daß das POPUP-Fenster "Diese Nachricht enthält eine Empfangsbestätigung
Möchten Sie diese schicken? ja/nein"
verdeckt nicht sichtbar  im Hintergrund steht und alles blockiert.
ALT+TAB holt es sichtbar in den Vordergrund und man kann es dann beantworten und weiterarbeiten.

Was muss ich tun, damit dieses POPUP-Fenster automatisch im  Vordergrund steht ?

danke Volker

CODE:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Set uidoc = Source
   Set cMemoObject = New UIMemoDocument       
   Call cMemoObject.Init(Source,Isnewdoc) 
   Set doc = Source.document
   If uidoc.IsNewDoc Then
   ' don't do anything, as this is a new document ...
   Else
      RR = doc.GetItemValue("ReturnReceipt")
      If RR(0) = "1" Then
         boxType& = MB_YESNO
         answer% = Messagebox("  Möchten Sie diese schicken? (Nein, unterdrückt eine Empfangsbestätigung)",boxType&, "Diese Nachricht enthält eine Empfangsbestätigung!" )
         If answer% = 7 Then
   ' determine if the user would like to return the receipt
            doc.ReturnReceipt = "0"
            Messagebox("Empfangsbestätigung deaktiviert. Es wird keine Nachricht versendet")
   'Call doc.save (True, True) enable this if you want to totally disable
   'RR on this message;
         End If
      End If
   End If
End Sub

[MartinG]

Hab Dir leider keinen Tipp, ausser:

Bei dieser Frage (es geht ja klar um Programmierung) bekommst Du im Entwicklerforum sicherlich schneller und besser eine Antwort...