How to send arbitrary e-mail with file attaches

// See also: http://pastebin.com/3Q1ykdSH - "how to send feedback instead of bug report"
// See also: http://pastebin.com/jxKB2WDZ - "how to send arbitrary data to bug tracker"

// This code will work in any project - even without EurekaLog active

uses
  ETypes, ESendMail, ESendMailSMAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  Files: TStringList;
begin
  Files := TStringList.Create;
  try
    Files.Add('C:\FileToAttach1.txt');
    Files.Add('C:\FileToAttach2.zip');
    EurekaLogSendEmail(esmSimpleMAPI, '', 'to-email@example.com', 'Subject', 'Body', '', '', '', 0, Files);

    // A similar construct is possible with any other e-mail send method (client, server, MAPI), except Shell/mailto.
    // Simply pass Files as AAttachments argument.
  finally
    FreeAndNil(Files);
  end;
end;