Die Schlussfolgerung aus der Formel, die André zog, ist falsch (leer oder "0" führen beide zu "kein ReturnReceipt").
Diese Function aus der Mail-DB sollte alle Fragen klären:
Function wReturnReceipt( note As notesdocument )
Dim receipt As notesdocument
If (note.HasItem("DeliveredDate")) And (note.getitemvalue("ReturnReceipt")(0) = "1") Then
If Not NameCompare(session.EffectiveUserName,note.GetItemValue("From")(0)) Then
Set receipt = New NotesDocument (db)
Call receipt.replaceitemvalue("Form", "Return Receipt")
If wGetCalendarProfile() Then
Call receipt.replaceitemvalue("IntendedRecipient", Owner)
Else
Call receipt.replaceitemvalue("IntendedRecipient", session.CommonUserName)
End If
Dim dtNow As New NotesDateTime ("")
Call dtNow.setNow()
Call receipt.replaceitemvalue("DeliveryDate", dtNow)
Call receipt.replaceitemvalue("Path_Info", note.getitemvalue("RouteServers")(0))
Call receipt.replaceitemvalue("Subject",note.getitemvalue("Subject")(0))
Call receipt.MakeResponse(note)
Call receipt.send (False, note.getitemvalue("From")(0))
Call note.replaceitemvalue("ReturnReceipt", "0")
Call note.Save (True, False)
End If
End If
End Function
Da wird nix anderes mehr gespeichert als das auf "0" gesetzte Item "ReturnReceipt".
HTH,
Bernhard