Скачать: CL | DM;

---|Ветка была без названия|---   Найти похожие ветки 

← →
Валет   (2002-06-04 13:05) [0]

Как сделать кнопку "Послать письмо автору"
т.е. чтобы принажатии на неё получился такой-же эфект что и в вэб (Mailto:MyEmail@Mail.ru)

---

← →
Song ©   (2002-06-04 13:09) [1]

ShellExecute()

---

← →
Валет   (2002-06-04 13:28) [2]

Там параметров очень много можешь помочь ?
Напиши плиз пример.

---

← →
Виктор Щербаков ©   (2002-06-04 13:33) [3]

ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);

---

← →
Валет   (2002-06-04 13:33) [4]

ShellExecute(handle, nil,"MyMail@mail.ru", nil, nil, SW_SHOWNORMAL);

Что не так делаю ?

---

← →
Валет   (2002-06-04 13:34) [5]

Ок

---

← →
Song ©   (2002-06-04 13:35) [6]

Мне тоже раньше казалось, что много.. но благодаря помощи таких как Вы (не в обиду) я уже их выучил :))

ShellExecute(Handle,"open","mailto:coolsong@mail.ru",nil,nil,SW_SHOWNORMAL);

---

← →
Валет   (2002-06-04 13:37) [7]

>Виктор Щербаков © (04.06.02 13:33)

ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);
Ничего не происходит

---

← →
ilysha ©   (2002-06-04 13:39) [8]

Напишет, он злыдень, жди ... Ж)
Шутка.

uses Windows, SysUtils, Classes, Controls, ShellApi;

...

procedure SendEmail;
var
em_subject, em_body, em_mail : string;
begin
em_subject:= "Тема письма - ответ Валету";
em_body:= "Горячего Вам рабочего дня, господа товарищи разработчики!";
em_mail:= "mailto:gratis97@mail.ru" +"?subject="+ em_subject+ "&body="+ em_body;
ShellExecute(Application.Handle, "open", PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

..


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c