Improving the Mail Template 9.0.1FP9 - Manage Return Receipts according to RFC 2298
Thomas Hampel
19 September 2017According to RFC 2298 http://www.ietf.org/rfc/rfc2298.txt it is recommended to show a dialog box where the recipient of a mail can decide weather or not a return receipt shall be sent back to the originator of the mail. This behavior is not currently part of the Standard IBM Mail template.
To add this feature you have to modify the following design elements:
- Form “Memo”, Event "QueryOpenDocument", added the code shown below
- Form “Reply”, Event "QueryOpenDocument", added the code shown below
- Form “ReplyWithHistory”, Event "QueryOpenDocument", added the code shown below
Insert this code at the end of the QueryOpenDocument event.
Set doc = Source.document
If Source.isNewDoc Then
'# don' t do anything, as this is a new document
Else
If doc.GetItemValue("ReturnReceipt")(0) = "1" And doc.HasItem ("DeliveredDate") Then
If MessageBox ("The sender of this message has asked to be notified when you read this message." & Chr(13) & "Do you wish to notify the sender?", 36, "Send Return Receipt?") = 7 Then
Call doc.ReplaceItemValue ("ReturnReceipt", "0")
Call doc.Save(True, False, true)
End if
End If
End If
Reference:
http://www.ibm.com/developerworks/lotus/library/ls-BlockRetRec/index.html