Текущий архив: 2002.06.17;
Скачать: 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 вся ветка
Текущий архив: 2002.06.17;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.006 c
