Personal Blog of Thomas Hampel - Creative Mythbusting in Development and Collaboration

Who am I?

Feeds

Archives

Query results for : Mail

Improving the Mail Template in 12.0.x and 14.0 - Manage Return Receipts according to RFC 2298- 24 September 2024 - (0) Comments

Thomas Hampel
 24 September 2024

Just a short revisit of a previous blog post which I wrote 7 years ago based on a friendly request from a customer.
mail-template-9.0.1-feature-pack-9-manage-return-receipts-according-to-rfc-2298.htm


The code below is almost the same. It is just now avoiding to introduce a new variable named 'doc' and it is put at the beginning of the event to also cover situations where the document is opened in preview mode.


According 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 HCL 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 “Reply With History”, Event "QueryOpenDocument", added the code shown below


Insert this code at the BEGINNING of the QueryOpenDocument event.


If Source.isNewDoc Then

 '# don' t do anything, as this is a new document

Else

       If Source.document.GetItemValue("ReturnReceipt")(0) = "1"  And Source.document.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 Source.document.ReplaceItemValue ("ReturnReceipt", "0")

                       Call Source.document.Save(True, False, True)

               End If

       End If

End If



For clarity, this is what the QueryOpen event looks like BEFORE the modification:

Image:Improving the Mail Template in 12.0.x and 14.0 - Manage Return Receipts according to RFC 2298

and AFTER the modification it looks like this:

Image:Improving the Mail Template in 12.0.x and 14.0 - Manage Return Receipts according to RFC 2298

Run Mail Rules on existing mail- 18 January 2018 - (0) Comments

Thomas Hampel
 18 January 2018

Maybe you noticed but with Notes 9.0.1 FP9 you can (finally) run mail rules on existing messages (see SPR #BLIO8TGDUW )
You can use mail rules to run actions on mail already in mail folders. This feature existis within the FP9 mail template and is hidden by default.
To use it, your administrator must upgrade your mail file to the Feature Pack 9 template.

Then the owner of the mail file will then need to enable this feature by clicking on File > Preferences > Mail.
In Mail Options, select Enable Run Rules On Existing Mail.
Image:Run Mail Rules on existing mail

References:
http://www-10.lotus.com/ldd/fixlist.nsf/5c087391999d06e7852569280062619d/bb0745a647ada8f985258183005803d9?OpenDocument

Improving the Mail Template 9.0.1FP9 - Manage Return Receipts according to RFC 2298- 19 September 2017 - (0) Comments

Thomas Hampel
 19 September 2017

According 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

Thomas Hampel, All rights reserved.