Pass default mail delivery options from address book entries to memo (R5)

Recently, I was in a hurry sending out important Internet mail but forgot to request a return receipt for confirmation. As a result, I had to resend the mail to everyone and add a few apologies too. Now that things have calmed down a bit, I have come up with a mail template design change that works quite well.

The trick is to flag Internet addresses you want to request a return receipt from and have your Select Addresses dialog pick them up. The easiest way to do this is add this information to the recipient's Internet address using the RFC822 address format. For example, "Wolfgang Flamme [RRR]" <wflamme@mainz-online.de> where '[RRR]' stands short for 'Request Return Receipt.' You can use this trick to develop a syntax of your very own and easily pass other default options. Therefore, [R!*+] could mean request return receipt, high importance and delivery priority, trace path.

The simple return receipt example I want to show implements the following rule:
When string '[RRR]' is found at least once in the recipients list (To, Cc, Bcc)
*or*
the mail is high priority
*or*
return receipt has already been enabled
*then*
a return receipt will be requested automatically.

Please stay on the safe side. Never apply 'hot' design changes and never ever roll out a modified template without extensive validation.

Replace the first Shared Action "Send" (for Notes clients) with the code below. Save your changes and confirm with "Yes" disregarding Script Errors.
Yes, Notes *might* crash but hopefully you will get away with it.

FIELD ActionInProgress:=ActionInProgress;
FIELD ReturnReceipt:=ReturnReceipt;
FIELD Importance:=Importance;
MEMO_SEND:=1024;
Rec:=@Trim(EnterSendTo:EnterCopyTo:EnterBlindCopyTo);

@If(@Contains(@Explode(Rec);"[RRR]") | Importance="1" |
ReturnReceipt="1";
@SetField("ReturnReceipt";"1");
@SetField("ReturnReceipt";"0"));

@SetField("ActionInProgress";MEMO_SEND);
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""))