Dim uidoc As NotesUIDocument
Set uidoc = Source
Dim doc As NotesDocument
Set doc = Source.document
If uidoc.IsNewDoc Then
' don't do anything, as this is a new document ...
Else
If doc.GetItemValue("ReturnReceipt")(0) = "1" Then
Dim answer As Integer
answer% = Messagebox("a return receipt was requested, send one?", 36, "ReturnReceipt" )
If answer% = 7 Then
' determine if the user would like to return the receipt
doc.RemoveItem("ReturnReceipt")
Call doc.save (True, True)
End If
End If
End If
Nach Tests hab ich gemerkt, dass das Feld gelöscht werden muss, einfach auf "0" setzen wird bei uns vom System ignoriert