usesSHELLAPI; 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
;