Lotus-Notes client's button in universal toolbar for generating simple-text mail header

1. Menu: File |Preferences |Toolbar prefrences
2. Edit Toolbar Button

Button caption text, Popup help text = "Insert mail header"
Formula:

xx := @Prompt([OkCancelList]; "Name format"; "Choose between CN (domain suppressed) and Abbreviate (Internet-oriented)."; "CN"; "CN" : "Abbreviate");

@Command([EditDocument]; "1");
@Command([EditGotoField]; "Body");
@Command([EditInsertText]; @NewLine);

x1 := "; " +@Text(@If(@IsAvailable(PostedDate); PostedDate; @Created)) +@NewLine;

@If(xx = "CN"; @Do(
@Command([EditInsertText]; "From:" +@Char(9) +@Name([CN]; From) +x1);
@Command([EditInsertText]; "To:" +@Char(9) +@Implode(@Name([CN]; SendTo); ", ") +@NewLine);
@Command([EditInsertText]; "CC:" +@Char(9) +@Implode(@Name([CN]; CopyTo); ", ") +@NewLine);
@Command([EditInsertText]; "BCC:" +@Char(9) +@Implode(@Name([CN]; BlindCopyTo); ", ") +@NewLine)
); @Do(
@Command([EditInsertText]; "From:" +@Char(9) +@Name([Abbreviate]; From) +x1);
@Command([EditInsertText]; "To:" +@Char(9) +@Implode(@Name([Abbreviate]; SendTo); ", ") +@NewLine);
@Command([EditInsertText]; "CC:" +@Char(9) +@Implode(@Name([Abbreviate]; CopyTo); ", ") +@NewLine);
@Command([EditInsertText]; "BCC:" +@Char(9) +@Implode(@Name([Abbreviate]; BlindCopyTo); ", ") +@NewLine)
));

@Command([EditInsertText]; "Subj:" +@Char(9) +Subject +@NewLine);
@Command([EditInsertText]; @NewLine);
@All