15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как отправить email, используя почтовую программу поумолчанию

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;