![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
---|Ветка была без названия|---
Валет © (2002-06-04 13:05:00)Как сделать кнопку "Послать письмо автору"
т.е. чтобы принажатии на неё получился такой-же эфект что и в вэб (Mailto:MyEmail@Mail.ru)
ilysha (2002-06-04 13:39:00) [1]Напишет, он злыдень, жди ... Ж)
Шутка.
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;
..
Валет (2002-06-04 13:37:00) [2]>Виктор Щербаков © (04.06.02 13:33)
ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);
Ничего не происходит
Song (2002-06-04 13:35:00) [3]Мне тоже раньше казалось, что много.. но благодаря помощи таких как Вы (не в обиду) я уже их выучил :))
ShellExecute(Handle,"open","mailto:coolsong@mail.ru",nil,nil,SW_SHOWNORMAL);
Валет (2002-06-04 13:34:00) [4]Ок
Виктор Щербаков (2002-06-04 13:33:00) [5]ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);
Валет (2002-06-04 13:33:00) [6]
ShellExecute(handle, nil,"MyMail@mail.ru", nil, nil, SW_SHOWNORMAL);
Что не так делаю ?
Валет (2002-06-04 13:28:00) [7]Там параметров очень много можешь помочь ?
Напиши плиз пример.
Song (2002-06-04 13:09:00) [8]ShellExecute()