Get all field values in a document

Sometimes for debugging I am required to check all the field values in a document. It can get tiresome (and boring). So for this purpose I had created a small formula code snippet that would loop through all the fields in a document, get its values and put it in an email to the current user. I simply put this in a toolbar button of my Notes client and its good to go. Here's the code:

allFields := @Sort(@DocFields; [Ascending]);
unid := @Text(@DocumentUniqueID);

message := "";

@For(i:=1; i<=@Elements(allFields); i:=i+1;
   @Do(
      fieldValue := @Trim(@Implode(@Text(@GetDocField(unid; allFields[i])); ", "));
      message := message : (allFields[i] + " - " + fieldValue)
   )
);

message := @Trim(message);
message := @Implode(message; @NewLine);

@MailSend(@UserName; ""; ""; "All field values"; message; "")

Needless to say it doesn't work for rich text fields.