Delphi-Help

uses SHELLAPI;

procedure AutoSendMail;

var

  EMailDestinationString, SubjectString, Line1String,

    Line2String, mailstring: string;

begin

  EMailDestinationString := 'gbamber@_bamber.com';

  SubjectString := 'Message Subject';

  Line1String := 'This is the first line';

  Line2String := 'This is the second line';

  // Можно использовать несколько адресов, разделяя их точкой с запятой

  mailstring := 'mailto:' + EMailDestinationString +

    '?subject=' + SubjectString +

    '&body=' + Line1String +

    '%0d' + Line2String;

  if (ShellExecute(0, 'open', PChar(mailstring), '', '',

    SW_SHOWNORMAL) <= 32) then

    ShowMessage('Auto method failed.');

end;