OpenNTF Mail Experience - Feature Request: Change code for RR
This our modified version.
Sub MsgReturnReceipt(Source As NotesUIDocument, Continue As Variant)
Dim docBG As NotesDocument
Dim vQ,vRR,viewname,a As Variant
Dim isprev As Boolean
Dim uidoc As NotesUIDocument
Dim uiview As NotesUIView
Set uidoc = Source
Set uiview = ws.CurrentView
Set docBG = source.document
If docBG Is Nothing Then Exit Sub
If getPreference("SuppressRR")(0) = "1" Then Exit Sub
'Check to see if we're dealing with a Sent memo in our own mail box.
If prefDoc.getItemValue("Owner")(0) = docBG.From(0) Then Exit Sub
If prefDoc.getItemValue("Owner")(0) = docBG.Principal(0) Then Exit
Sub
isprev = uidoc.InPreviewPane
If uiview Is Nothing Then
' a = Msgbox("UIView" , , "Debug")
If isprev Then
Call docBG.ReplaceItemValue("ReturnReceipt", "0")
End If
Exit Sub
End If
viewname = uiview.ViewName
If Not docBG Is Nothing Then
If Not (viewname="($Sent)" Or viewname="($All)" Or
viewname="($SoftDeletion)" Or viewname="(Stationery)") And Not isprev Then
If docBG.GetItemValue("ReturnReceipt")(0) = "1" Then
vQ = Msgbox("This message has a return receipt
request." & Chr(13) & "Remove this request?", 3+32, "Return Receipt
Request")
If vQ = "2" Then
Set docBG = source.Document
vRR = docBG.GetItemValue("ReturnReceipt")
Call docBG.ReplaceItemValue("ReturnReceipt",
"0")
' Continue = False
Exit Sub
End If
If vQ = "6" Then
Set docBG = source.Document
vRR = docBG.GetItemValue("ReturnReceipt")
Call docBG.ReplaceItemValue("ReturnReceipt",
"0")
Call docBG.Save(False, False,True)
End If
End If
Else
If isprev Then
Set docBG = source.Document
vRR = docBG.GetItemValue("ReturnReceipt")
Call docBG.ReplaceItemValue("ReturnReceipt", "0")
'Continue = False
Exit Sub
End If
End If
End If
End Sub
Added: Use "OpenNTFLibraryUI" into (Options) Database Script.
(Embedded image moved to file: pic25138.jpg)
WBW,
Alexei Kretov, CLP