Optionale Empfangsbestätigung mit DWA?

Hallo,

ich suche nach einer Möglichkeit, in DWA (Domino 7.01) beim Öffnen der Mail eine Message mit "ja" oder "nein" anzuzeigen, wenn der Absender eine Empfangsbestätigung erwartet.
Also: wenn beim Öffnen einer Mail, für die der Absender eine Empfangsbestätigung wünscht, Notes automatisch eine Bestätigung verschickt, möchte ich als Nutzer gern gefragt werden, ob eine Empfangsbestätigung verschickt werden soll.

Das folgende Code-Beispiel funktioniert im Notes-Client, aber irgendwie nicht in DWA.

Wenn man den Code in die normale Mailschablone einfügt (Memo -> QueryOpen), funktioniert es ja auch.
Nur eben ist die DWA-Schablone anders. Dort wird als Event wQueryOpen (wMemo) ein Makro gestartet
und die Bestätigung ohne die gewünschte Message-Box versendet.

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     Set uidoc = Source
     Set doc = Source.document
     If uidoc.IsNewDoc Then
     Else
           RR = doc.GetItemValue("ReturnReceipt")
           If RR(0) = "1" Then
                 boxType& = MB_YESNO
                 answer% = Messagebox("Der Absender erwartet eine Empfangsbestätigung. Möchten Sie diese senden?)",boxType&, "Weiter?" )
                 If answer% = 7 Then
                       doc.ReturnReceipt = "0"
                       Messagebox("Empfangsbestätigung inaktiv. Es wurde keine Nachricht gesendet.")
                 End If

           End If
     End If
End Sub

---

Sailor