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

Советы » Почтовый клиент » Как отправить 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
;

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

Другое по теме:

Категории

Статьи

Советы