function OnSendEmail(const ProfileName:UnicodeString;
                    var TheSubject:UnicodeString;
                    var HighImportance,UseDigest:Boolean;
                    var ResultSummary:UnicodeString;
                    const SomethingWasDone,ErrorHasOccurred:Boolean;
                    const FailedPathsCommaText:UnicodeString;
                    const StartedAt,EndedAt:Double;
                    var RecipientsCommaText:UnicodeString;
                    var SenderName:UnicodeString;
                    var SenderEmail:UnicodeString):Boolean;
begin
  ClearBody;
  AddBodyText('A simple email for profile '+ProfileName);
  AddBodyText('');
  AddBodyText('Summary:'+ResultSummary);
  AddBodyText('');
  AddBodyText('Actions:');
  AddBodyText(GetActionList);
  Result:=true
  end;