Heres a script which will give you the choice of sending a reciept to a
incoming mail or not.
I've been using this for more than a year, and still nobody has ever asked why
they did not received a receipt.
Paste the below code in your inbox;
QueryOpenDocument Event found in
Define: ($Inbox) (Folder).
Next time a mail with Return Receipt comes in, you will be prompted.
One small caveat, you will then have to open the mail again.
Place for improvements perhaps.
Dim sess As New NotesSession
Dim docs As NotesDocumentCollection
Dim doc As NotesDocument
Set docs = Source.Documents
Set doc = docs.GetFirstDocument()
If doc.principal(0)=sess.UserName Then End
If doc.ReturnReceipt(0) = "1" Then
resp%=Messagebox("Do you wish to send a receipt?",0+4+16,"Return
Receipt Detected!")
If resp%=7 Then
Call doc.ReplaceItemValue("ReturnReceipt","0")
Call doc.Save(True,True)
End If
End If
This was first published in November 2000