I am trying to work on disabling the Return Reciepts. I want to have the control, as to who should get the return reciept and who should not, once I open the mail, like in Outlook. Is there a way we can set it up…??
…but prev I used this little script, dont know if it helps.Might be other solutions…
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
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