Текущий архив: 2003.08.07;
Скачать: CL | DM;

Вниз

Отправка e-mail   Найти похожие ветки 

← →
Сергей Енин   (2003-07-23 13:17) [0]

Делаю следующее:

Uses Shellapi;
...
procedure Tform1.label1Click(Sender: TObject);
begin
ShellExecute(0,
"open",
PChar("mailto:"+dbText30.Caption),
nil,
nil,
WS_VISIBLE);

end;


Каким образом в создаваемое сообщение подставить тему?

Заранее благодарен.

---

← →
Sergio_nnm ©   (2003-07-23 13:28) [1]

Никак. Через ShellExecute нельзя заполнить структуру письма. Используй Mapi или стандартные Delphi-компоненты для отправки писем.

---

← →
Юрий Зотов ©   (2003-07-23 13:36) [2]

Попробуйте так:

PChar(Format("mailto:%s?subject=%s", [адрес, тема]))

---

← →
Сергей Енин   (2003-07-23 13:52) [3]

> Юрий Зотов


Спасибо, помогло... :)))

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c