Moin,
wie wärs hiermit ?
In das Queryopen der Maildatenbank kopieren.
(Vorhandene Einträge überschreiben!):
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Set cMemoObject = New UIMemoDocument
Call cMemoObject.Init(Source,Isnewdoc)
Set uidoc = Source
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 ("Der Absender erwartet eine Empfangsbestätigung." + Chr(13) + " >>>> Wollen Sie diese versenden ? ", boxType&, "Empfangsbestätigung ?")
If answer% = 7 Then
doc.ReturnReceipt="0"
End If
End If
End If
End Sub
Wenn ReturnReceipt vorhanden erscheint ein PopUp Fenster mit einer Abfrage
Gruß
Hardy