Главная страницаОбратная связьКарта сайта

Как отправить 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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как отправить Email, используя почтовую программу по умолчанию", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info