Hallo,
ich meine das, wenn beim Öffnen einer Mail, für die der Absender eine Empfangsbestätigung wünscht, Notes automatisch eine Bestätigung verschickt. Da möchte ich als Nutzer gern gefragt werden, ob eine Empfangsbestätigung verschickt werden soll.
Wenn man den hier im Forum gefundenen 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("Die Mail verlangt eine Empfangsbestätigung. Möchten Sie diese senden? (Nein temporär abschalten)",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