Delphi-Help

Главная Статьи E-mail Как отправить E-mail, используя почтовую программу по умолчанию

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

Оцените материал
(0 голосов)


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

uses SHELLAPI;
 
procedure AutoSendMail;
var
  EMailDestinationString, SubjectString, Line1String,
    Line2String, mailstring: string;
begin
  EMailDestinationString := '
 Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript
 ';
  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;
Прочитано 4095 раз

Авторизация



Счетчики